ASP连接access和mssql数据库的全能代码
来源:CSDN 时间:2008-10-12 13:17:00
解决了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
标签:access,mssql,数据库,连接,代码
0
投稿
猜你喜欢
SQL Server 2005 SSIS技巧:动态目的文件名
2008-12-05 15:47:00
JS代码混淆加密工具
2008-05-25 13:49:00
谈谈网页设计中的字体应用 (1) Font Set
2009-11-24 12:55:00
XML简易教程之四
2008-09-05 17:19:00
布局篇(1)—If you love css …
2008-04-16 14:14:00
在生成的静态页面中统计点击次数
2009-11-19 13:20:00
扫盲大讲堂:SQL查询结果集对注入的影响及利用
2009-09-05 09:49:00
MYSQL数据库设计的一点总结
2008-05-24 09:36:00
详解CSS3中的属性选择符
2008-04-24 14:30:00
asp 简单分页代码
2011-03-11 10:53:00
Microsoft Enterprise Library 5.0 如何集成MyS
2011-03-16 15:19:00
通过优化CSS代码 减小对系统资源的占用
2010-08-03 12:33:00
页面新开窗口的一点补充
2008-09-10 12:57:00
快速认识CSS中的overflow属性
2009-05-29 16:36:00
仿QQ和MSN消息提示的效果代码
2010-03-16 12:17:00
教程javascript的function(函数)
2007-09-30 13:38:00
互联网产品的用户体验看着“很美”
2009-07-07 12:04:00
Asp操作Xml的精炼类,含示例代码
2011-02-28 11:11:00
微软的jQuery国际化插件
2010-07-02 12:46:00
CSS改变字体而不影响网页
2010-10-20 20:11:00