conn.asp

在线点播系统

<%
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
%>