 解决了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 |
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
