📄 conn.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

💻 ASP

字号:

<%
If CheckAdminFlag("Plus") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Dim Gconn,Grs,GregE,Objstream,Http
Dim WR,MenuStr
Dim gRe,GatherDB
  
  GatherDB = "Data/Gather.mdb"

  Public Sub ConnOpen()
	 If IsObject(Gconn) = False Then
	   Dim GconnData
       Set Gconn = Server.CReateObject("ADODB.Connection")
       GconnData="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(GatherDB)
       On Error Resume Next
	   Gconn.Open GconnData
       If Err Then Set Gconn = Nothing:Call AspErr()
     End If
	 Set GRegE = New RegExp
	 Set gRe = New RegExp
	 Set Http=server.cReateobject("MSXML2.XMLHTTP")
	 Set ObjstReam = Server.CReateObject("adodb.stReam")
  End Sub

  Sub ConnClose()
     set objstReam = nothing
     Set Http=Nothing 
     Set gRe=nothing
     Set GRegE = Nothing
	 If IsObject(Gconn) = True Then Gconn.Close
     Set Gconn = Nothing
  End Sub

  Sub ClassEnd()
     Set WR = Nothing
  End Sub

  Sub AspErr()
      Response.Write "<body style='font-size:14px'>"
	  Response.Write "错 误 号：" & Err.Number & "<BR>"
      Response.Write "错误描述：" & Err.Description & "<BR>"
      Response.Write "错误来源：" & Err.Source & "<BR><br>"
      Response.Write "<font color=red>解决参考：<br>修改 "&WR_Setting(3)&"Plus/Garher/Conn.asp 里的数据库路径</font>"

      Err.Clear
      Response.end
  End Sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -