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