通过driver建立连接
代码如下 | 复制代码 |
<% Const DataBaseType=1 If DataBaseType=0 then DBPath="/jb51/news.asp" SqlNowString = "Now()" ystr=true nstr=false suiji="rnd(id)" Else '如果是SQL数据库,请认真修改好以下数据库选项 DataServer = "www111cnnet" '数据库服务器IP DataUser = "jb51net" '访问数据库用户名 DataBaseName = "jb51net" '数据库名称 DataBasePsw = "密码" '访问数据库密码 SqlNowString = "getdate()" ystr=1 nstr=0 suiji="newid()" End if On Error Resume Next If DataBaseType = 1 Then ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename Else ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) End If Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。":Response.End %> |
通过driver建立连接
通过driver建立页面与数据库的连接,同样不需要创建ODBC DSN数据源,但必须知道实际的数据库文件路径或者数据源名(例如,SQLserver的数据库)。
代码如下 | 复制代码 |
Set conn=Server.CreateObject("ADODB.Connection") conn.Open"driver={SQL Server};server=abc;DataSource=(test);uid=;pwd=;database=UserDB" |
编写脚本和数据库源建立连接
ADO(ActiveX Data Objects ) 提供 Connection 对象,可以使用该对象建立和管理应用程序和 ODBC 数据库之间的连接。Connection 对象具有各种属性和方法,可以使用它们打开和关闭数据库连接。编写数据库连接脚本,首先应创建 Connection 对象的实例,接着打开数据库连接
代码如下 | 复制代码 |
'******************************************************************** Dim Conn '数据库连接 |