|
|||||||||
|
|||||||||
|
|||||||||||||||
| | 网站首页 | 文章 | 图片 | 下载 | 资源下载 | 电脑 | 音乐 | AMD | 论坛 | | ||
 |
||
|
||
|
|||||
| ASP连接数据库的全能代码 | |||||
作者：佚名 文章来源：转帖 点击数： 更新时间：2006-9-8  |
|||||
|
采用DBType=0或DBType=1来区分AC库还是MSSQL库 具体采用AC库时应注意的事项，请看程序说明 Dim DBType,Conn,StrConn DBType=0 0为Access数据库，1为MSSQL数据库 ********************************ACCESS数据库************************************* Dim DbFolderName,DbFolder_Path,SiteFolder DbFolderName="ArticleData" 数据库所在文件夹名称 DbFolder_Path = Server.MapPath(DbFolderName) 数据库所在路径 SiteFolder="Article" 系统所在根目录名称 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) 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 |
|||||
| 文章录入：浅水游龙 责任编辑：浅水游龙 | |||||
| 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 | |||||
| 最新热点 | 最新推荐 | 相关文章 | ||
| 用手机挂QQ 你也能快速升级为… 制作一个百毒不侵的系统 修改Win XP开机画面最简单办… 将WindowsXP加速到极限 用脚本恢复Windows XP的用户… 如何创建自己的网站 Windows操作系统中必须禁止的… Windows目录下几大需清理的地… 经典常见计算机密码破解实用… 网络攻击的几种攻击与防御手… |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 网站公告 | 中国网址 | 管理登录 | | |||
|
