inc.asp

后台管理系统

<!--#include file="../../Conn.asp"-->
<!--#include file="../../Include/Cls_Public.asp"-->
<!--#include file="../../Include/Language.asp"-->
<!--#include file="Cls_Admin.asp"-->
<%
Call OpenDB()
Dim ClsPub,ClsPage,ClsTemp,ClsUp
Set ClsPub = New Cls_Public
Set ClsAdmin = New Cls_Admin
Public Sub CloseAll()
	On Error Resume Next
    If IsObject(ClsPub) Then
       ClsPub=Null
       Set ClsPub = Nothing
    End If

    If IsObject(ClsAdmin) Then
       ClsAdmin=Null
       Set ClsAdmin = Nothing
    End If

	If IsObject(Rs) Then
		If Rs.State=1 Then Rs.Close
		Set Rs=Nothing
	End If

	If Conn.State=1 Then Conn.Close
	Set Conn = Nothing
End Sub
%>