'解决了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[来源 www.iocblog.net]
'*****************mssql server数据库******
   dim dbuserid,dbpassword,dbname,dbip
   '修改以下信息以适合你的网站
   dbuserid="sa"  '数据库登陆名
   dbpassword=""  '数据库密码
   dbname="dbname" '数据库名称
   dbip="local" '数据库所在地址，如果是本地数据库则为：(local)[来源 www.iocblog.net]

   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