myconn.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 16 行

<!--#include file="data.asp"-->
<!--#include file="const.asp"-->
<%
If IsObject(myconn) = false Then

On Error Resume Next
Dim myconn,conndata
set myconn = Server.CreateObject("adodb.connection")
myconn.Open conndata
If Err.Number <> 0 Then
   Response.write "系统日常维护中!"
   Response.End()
end if

end if
%>