 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'解决了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 返回类别: 教程 上一教程: 用.NET开发ASP组件 下一教程: 为输入及输出的数据库的资料做造型 您可以阅读与"ASP连接数据库的全能代码"相关的教程: · ASP连接数据库的5种方式 · 连接数据库的ASP树图生成程序 · 将连接数据库的代码隐藏在DLL中 · 用VB生成DLL封装ASP代码，连接数据库 · ASP中五种连接数据库的方式 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
