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