index.asp

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

<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Const.asp"-->
<!--#Include File="ClassFriendSite.asp"-->
<%
On Error Resume Next
Dim FriendSite
Set FriendSite = New ClassFriendSite
FriendSite.Execute()
Set FriendSite = Nothing
Call EL_Common.ShowScriptError()
Call ApplicationTerminate()
%>