%@language=vbscript codepage=936 %> <% Option Explicit Response.buffer = True Const ChannelID = 0 Const SkinID = 0 %> <% Call CloseConn Dim ComeUrl ComeUrl = Trim(Request("ComeUrl")) If ComeUrl = "" Then ComeUrl = Request.ServerVariables("HTTP_REFERER") End If If ComeUrl = "" Then ComeUrl = "Index.asp" End If %>