conn.asp

来自「html生成静态页的小程序」· ASP 代码 · 共 27 行

<!--#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
%>