Simone
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
%>
