ASP连接数据库的全能代码

asp连接数据库的全能代码     
'解决了access数据库路径的问题！
'采用dbtype=0或dbtype=1来区分ac库还是mssql库
'具体采用ac库时应注意的事项，请看程序说明

--------------------------------------------------------------------------------
dim dbtype,conn,strconn
dbtype=0        '0为access数据库，1为mssql数据库 

if(dbtype=0) then
    '********************************access数据库*************************************
    dim dbfoldername,dbfolder_path,sitefolder
    dbfoldername="articledata"   '数据库所在文件夹名称
    dbfolder_path = server.mappath(dbfoldername)   '数据库所在路径
    sitefolder="article"                    '系统所在根目录名称

    if session("rootdir") = "" then 
        session("rootdir") = mid(dbfolder_path, 1, instr(1,dbfolder_path,sitefolder,1) -1) & sitefolder 
    end if
    set conn = server.createobject("adodb.connection")
    strconn = "driver={microsoft access driver (*.mdb)};dbq=" & session("rootdir") & "\"& dbfoldername & "\data.mdb"  '连接到数据库
    conn.open strconn
    '**********************************************************************************
elseif(dbtype=1) then
    '*****************************mssql server数据库*************************************
    dim dbuserid,dbpassword,dbname,dbip
    '修改以下信息以适合你的网站
    dbuserid="sa"  '数据库登陆名
    dbpassword=""  '数据库密码
    dbname="dbname" '数据库名称
    dbip="local" '数据库所在地址，如果是本地数据库则为：(local)

    set conn=server.createobject("adodb.connection")
    strconn = "provider=sqloledb.1;data source="&dbip&";initial catalog="&dbname&";persist security info=true;user id="&dbuserid&";password="&dbpassword&";connect timeout=30"
    conn.open strconn
    '**********************************************************************************
else
    '***********************数据库设置错误*************************************************
    response.write"数据库设置错误，请联系管理员！"
    response.end
end if
'response.write strconn