const.asp

依蓝旅游网站管理系统Elan2008.SP2

<!--#Include File="ClassCommon.asp"-->
<!--#Include File="ClassUser.asp"-->
<%
Dim EL_Common, EL_User

If SiteOpened = False Then
   Response.Write CloseReason
   Response.End()
End If

Set EL_Common = New ClassCommon
Set EL_User = New ClassUser

If EL_User.UserIsLogin = True Then
   Call EL_User.GetUserInfo()
End If

Sub ApplicationTerminate()
   On Error Resume Next
   Set EL_Common = Nothing
   Set EL_User = Nothing
   Call CloseConn()
   If Err Then Err.Clear
   Response.End()
End Sub
%>