ASP连接SQL的问题。。。在线等。。

2025-05-23 14:24:58

推荐回答（5个）

回答1：

Function OpenDB()
on error resume next
dim db,conn,connstr,rs,sql
set Conn = server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=127.0.0.1;uid=;pwd=;database=teacher"
conn.Open connstr
if err then
Response.Write("数据库发生错误")
err.clear
Exit Function
end if
If conn.State = 1 Then
Response.Write "与数据库连接成功"
conn.Close
Else
Response.Write "与数据库连接失败!"
End If
Set conn = Nothing
End Function

回答2：

on error resume next
dim db,conn,connstr,rs,sql
set Conn = server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=127.0.0.1;uid=;pwd=;database=teacher"
conn.Open connstr
if err then
err.clear()
response.Write("连接失败")
Set conn = Nothing
else
response.Write("连接成功")
end if

回答3：

连接数据库根本就不用那么麻烦..所以我不建议你再去研究这一个连接数据库的语句了.我推荐你用以下数据连接吧

dim conn
set conn=server.CreatObject("Adodb.connection")
conn.open "dbq="&server.MapPat(数据库路径直)&";driver={microsot access driver (*.mdb0};"

这一小段就可以了.

回答4：

sub con()
on error goto er
dim db,conn,connstr,rs,sql
set Conn = server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=127.0.0.1;uid=;pwd=;database=teacher"
conn.Open connstr
exit sub
er:
Response.Write "与数据库连接失败!"
end sub

回答5：

可以捕获异常的吧