28,406
社区成员
发帖
与我相关
我的任务
分享
<%
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Conn
SqlDatabaseName = "Data" 'SQL数据库名
SqlPassword = "111111" 'SQL数据库用户密码
SqlUsername = "sa" 'SQL数据库用户名
SqlLocalName = "(local)" 'SQL主机IP地址(本地可用“127.0.0.1”或“(local)”,非本机请用真实IP)
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
if err.number<>0 then
err.clear
conn.close
set conn=nothing
response.write "数据库连接出错!"
Response.End
else
if err then
err.clear
conn.close
set conn=nothing
response.write "数据库连接出错!"
Response.End
end if
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>