'
on error resume next
set Cn = server.createobject( " adodb.connection " )
Cn.open " driver={sql server};description=sqldemo;server=127.0.0.1;uid=sa;pwd=123;database=cqsloa008 "
If Err Then
err.Clear
Set Cn = Nothing
Response.Write " 科长:数据库连接出错,请检查连接字串。 "
Response.End
End If
set rs = server.createobject( " adodb.recordset " )
' 关闭数据库连接
sub CloseCn()
' On Error Resume Next
Cn.close
set Cn = nothing
end sub
set Cn = server.createobject( " adodb.connection " )
Cn.open " driver={sql server};description=sqldemo;server=127.0.0.1;uid=sa;pwd=123;database=cqsloa008 "
If Err Then
err.Clear
Set Cn = Nothing
Response.Write " 科长:数据库连接出错,请检查连接字串。 "
Response.End
End If
set rs = server.createobject( " adodb.recordset " )
' 关闭数据库连接
sub CloseCn()
' On Error Resume Next
Cn.close
set Cn = nothing
end sub