UC知道conn.asp 解释下什么意思
来源：百度知道 编辑：UC知道 时间：2024/05/31 13:57:23
<!--#include file="SysConfig.asp"-->
<%
If SysSiteIsClose = "1" Then
If InStr(Lcase(Request.ServerVariables("URL")),Lcase(SysSiteAdminPath))=0 Then
Response.Write(SysSiteCloseNote)
Response.End()
End If
End If
Dim Conn,ConnStr,Rs
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdns & SysSiteDbPath)
Call OpenConn()
Set Rs = Server.CreateObject("Adodb.RecordSet")
Private Sub CloseConn()
Conn.Close
Set Conn = Nothing
End Sub
Private Sub OpenConn()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
End Sub
%>
上面是conn.asp
<%
If SysSiteIsClose = "1" Then
If InStr(Lcase(Request.ServerVariables("URL")),Lcase(SysSiteAdminPath))=0 Then
Response.Write(SysSiteCloseNote)
Response.End()
End If
End If
Dim Conn,ConnStr,Rs
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdns & SysSiteDbPath)
Call OpenConn()
Set Rs = Server.CreateObject("Adodb.RecordSet")
Private Sub CloseConn()
Conn.Close
Set Conn = Nothing
End Sub
Private Sub OpenConn()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
End Sub
%>
上面是conn.asp
If SysSiteIsClose = "1" Then
如果变量的值等于1
If InStr(Lcase(Request.ServerVariables("URL")),Lcase(SysSiteAdminPath))=0 Then
lcase是把字符串转为小写，instr是判断字符串a内是否包含字符串b
Response.Write(SysSiteCloseNote)
输出变量内容
Response.End()
断点
End If
End If
Dim Conn,ConnStr,Rs
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdns & SysSiteDbPath)
链接数据库
Call OpenConn()
调用函数
Set Rs = Server.CreateObject("Adodb.RecordSet")
建立对象
Private Sub CloseConn()
声明私有过程
Conn.Close
关闭连接
Set Conn = Nothing
清理对象
End Sub
结束过程
Private Sub OpenConn()
声明私有过程
Set Conn = Server.CreateObject("ADODB.Connection")
建立对象
Conn.Open ConnStr
建立与数据库的链接
End Sub
结束过程
%>
这是asp数据库连接的代码conn.asp