inc.asp

后台管理系统

<!--#Include File="Cls_Public.asp"-->
<!--#Include File="Cls_AspTemplate.asp"-->
<!--#Include File="Cls_Tag.asp"-->
<!--#Include File="Cls_Upload.asp"-->
<!--#Include File="Language.asp"-->
<%
Call OpenDB()
Dim ClsPub,ClsTemp,ClsUp
Set ClsPub = New Cls_Public
Set ClsTemp = New Cls_ASPTemplate
Set ClsTag = New Cls_Tag
Set ClsUp = New Cls_Upload
Public Sub CloseAll()
	On Error Resume Next
    If IsObject(ClsPub) Then
       ClsPub=Null
       Set ClsPub = Nothing
    End If

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

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

    If IsObject(ClsUp) Then
       ClsUp=Null
       Set ClsUp = 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
%>