Question

如何用ASP连接SQLSERVER数据库

Answer 1

思路：

1、ASP连接SQL数据库，连接字符串是关键

2、连接后一般是执行查询语句获得结果集，或者是执行SQL语句，不需要返回结果

3、关闭数据库连接对象

示例代码：

dim Conn,strConn,rs,strSQL
strConn = "Provider=SQLOLEDB;Data Source=127.0.0.1;User ID=Test;Password=Test;Initial Catalog=Test_DBName"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn
if err.number<>0 then
    response.Write "数据库链接失败。" & err.Description 
    response.End 
end if
set rs = server.CreateObject("adodb.recordset")
strSQL = "select title from dbo.tb_e_table"
rs.open strSQL,conn,1,1
If Not rs.eof Then
	'结果集存在，则可输出rs
	response.write rs("title")
End If 
rs.close
Set rs = Nothing 
Conn.close
Set Conn = Nothing

其中

【Provider=SQLOLEDB;】：是声明使用的是MSSQL协议，

【Data Source=127.0.0.1;】：是数据库的所在服务器IP地址或计算机名称，

【User ID=Test;】：要连接的数据库用户名，

【Password=Test;】：要连接的数据库用户密码，

【Initial Catalog=Test_DBName】：要连接的数据库名称

Answer 2

连接方法有三种分别为通过ODBC DSN建立连接，通过oledb建立连接 通过driver建立连接三种，下面我们来看看第一种。

通过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 对象的实例，接着打开数据库连接

代码如下
'********************************************************************
' 与SQL Server2000有关的连接
' 可以参照它建立您的数据库连接
'********************************************************************
'敬请注意：
'请根据情况配置StrServer,StrUid,StrSapwd,StrDbName四个参数
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" '数据库服务器名
StrUid="testuser" '您的登录帐号
StrSaPwd="12345" '您的登录密码
StrDbName="db_test_com" '您的数据库名称
Dim Conn '数据库连接
Dim StrDSN '数据库连接字符串
Dim Rs '命令字符串
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'建立和数据库master的连接
set Conn = Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN

Answer 3

<%
Const SqlDatabaseName = "gustbook" ' 数据库名字'
Const SqlPassword = "" '数据库密码'
Const SqlUsername = "sa" '数据库帐户'
Const SqlLocalName = "127.0.0.1" '数据库地址'

'数据库连接函数'
Sub ConnectionDatabase
Dim ConnStr
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串!"
Response.End
End If
End Sub

'默认打开数据库连接
call ConnectionDatabase()
%>

Answer 4

你想问什么呢