<%
ConnStr = "Driver={Microsoft ODBC for Oracle};Server=rld; Uid=hels; Pwd=q123;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
else
End If
%>