ASP的一些自定义函数整理第1/2页(2)

language_arr(1) = "数据库连接的类型参数设置错误！" 
language_arr(2) = "数据库连接失败！" 
language_arr(3) = "非法的参数值！" 
language_arr(4) = "参数值不是有效的日期格式！" 
language_arr(5) = "操作失败！" 
language_arr(6) = "栏目有重名！" 
language_arr(7) = "栏目名称为空！" 
language_arr(8) = "栏目文件夹创建失败！" 
language_arr(9) = "您没有此权限！" 
'============================================================================================================================ 
'函数ID：1 
'函数作用：建立数据库的连接 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-15 10：28 
'修改时间： 
'传人参数： 
'    connectStr：数据库连接字符串 
'    connectType：数据库类别-数字型，0为Access,1为MS SQL 
'返回值： 
'============================================================================================================================ 
sub ConnOpen(DataBaseConnectStr,DBType,Conn_object) 
    Set Conn_object = Server.Createobject("adodb.connection") 
    if DataBaseConnectStr = "" then call ShowErr(language_arr(0)) 
    if DBType = 0 then 
        Conn_object.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DataBaseConnectStr 
    elseif DBType = 1 then 
        Conn_object.Open "Provider=SQLOLEDB.1;" & DataBaseConnectStr 
    else 
        call ShowErr(language_arr(1)) 
    end if 
    err.clear 
end sub 
'============================================================================================================================ 
'函数ID：2 
'函数作用：断开数据库的连接 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-16 15:10 
'修改时间： 
'传人参数： 
'返回值： 
'============================================================================================================================ 
Sub ConnClose(Conn_object) 
    Conn_object.close 
    set Conn_object = nothing