user_payonlineresult.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="../Inc/ClassPayOnline.asp"-->
<!--#Include File="../Inc/MD5.asp"-->
<%
If EL_User.UserIsLogin = False Then
   Response.Write "<scr" & "ipt>top.location='User_Login.asp';</scr" & "ipt>"
   Call ApplicationTerminate()
End If
ComeURL = ""
Dim EL_PayOnline
Dim ChannelID, BookTableName
ChannelID = EL_Common.ELRequest("ChannelID", 2)
BookTableName = EL_Common.ELRequest("BookTableName", 3)
Set EL_PayOnline = New ClassPayOnline
Call EL_PayOnline.PayResult(ChannelID, BookTableName)
Set EL_PayOnline = Nothing
Call ApplicationTerminate()
%>