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
如对本文有疑问，
点击进行留言回复！！
我要评论
网友评论