ASP连接数据库的全能代码
来源:互联网 发布:淘宝店铺保证金30元 编辑:程序博客网 时间:2024/04/26 22:06
<%
'解决了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数据库路径的问题!
'采用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
%>
- ASP连接数据库的全能代码
- ASP连接数据库的全能代码
- ASP连接数据库的全能代码
- ASP连接数据库的全能代码
- ASP连接数据库的全能代码
- ASP连接数据库的全能代码
- ASP连接数据库的全能代码
- ASP连接数据库的全能代码
- ASP 连接数据库代码
- asp连接数据库的代码方法
- asp连接access数据库的一段代码
- ASP连接SQL Server数据库的代码
- ASP连接各种数据库的代码
- ASP连接数据库ACCESS2007的代码
- ASP.NET 连接 ACCESS 数据库的代码
- asp.net连接多种数据库的代码
- asp连接access数据库代码
- ASP连接ACCESS数据库代码
- C#入门代码
- 浅谈C# XML WebServer数据序列化及数据压缩
- 有点疑惑的地方
- C#实现类似qq的屏幕截图程序
- 春节小偷过年,手机放在办公桌上被偷
- ASP连接数据库的全能代码
- 详解SQL Server的两个存储过程:sp_MSforeachtable/sp_MSforeachdb
- 谁都想拥有完美的界面,它可以给你一些启示
- asp.net 取得远程的IP地址和浏览器类型
- 一个往环境变量path中添加路径的工具
- C#语言参考---方法(1)
- 一个普通IT人的十年回顾
- Windows 的关机命令
- 20个windows秘密