<%
On Error Resume Next
'--MsSQL 数据库连接--
DBServer2="(local)" '数据库服务器IP地址
DBuid2="username" '数据库服务器用户名
DBpwd2="userpass" '数据库服务器用户密码
DBname2="database" '数据库名称
conndata="driver={SQL Server};server="&DBServer2&";uid="&DBuid2&";pwd="&DBpwd2&";database="&DBname2&""
conttstr="SQL"
If IsObject(Conn) = false Then
set conn = Server.CreateObject("ADODB.Connection")
conn.Open conndata
Set RS = Server.CreateObject("ADODB.RecordSet")
If Err.Number <> 0 Then
Response.write "系统日常维护中!"
Response.End()
end if
end if
%>
