<% DB_ServerName ="(local)/SQLEXPRESS" '数据库名称(IP+实例名) SQL SERVER2005
DB_UserName = "sa" 'SQL用户名
DB_PassWord = "123456" 'SQL用户密码
DB_DateBase = "mydb" '数据库名
DB_Provider = "SQLOLEDB.1" '驱动程序
DB_ConnStr = "Provider="&DB_Provider&"; UID="&DB_UserName&"; Pwd="&DB_PassWord&"; database="&DB_DateBase&"; Server="&DB_ServerName&";"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DB_ConnStr
If Err Then
err.Clear
Set Conn = Nothing
response.Write("数据库连接出错,请联系管理员。")
Response.End
else
r