<% '数据库连接变量定义 'Dim conn '数据库连接 Set conn= Server.CreateObject("ADODB.Connection") '数据库连接字符串 conn.ConnectionString = "Provider=SQLOLEDB;Data Source=171.8.71.185,2081;Initial Catalog=QR;User ID=qrsa; PASSWORD=Z20z3515q18r11" '打开数据库连接 conn.Open '由程序处理错误，而不是缺省的由解释器处理错误 If Err Then '发生错误，进行错误处理 '释放数据库连接对象，并提示用户连接数据库出错 Err.Clear Set conn = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End End If %>