conn.asp

来自「在线点播系统」· ASP 代码 · 共 13 行

<%
dim conn
dim connstr
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=a2b4c6;DATABASE=cnlong"
'conn.ConnectionTimeout=10
conn.Open connstr
if err.number<>0 then '如果测试不通过
response.Write("访问数据库时出错，请检测数据库链接参数设置")
response.end
end if
%>