register.asp

来自「WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品」· ASP 代码 · 共 26 行

<%
Class ImplMocomWAPmoWAPRegister
Private Sub Class_Initialize()
    Set MyXML = MyKernel.XMLParser
    blnError = True
End Sub

Private Sub Class_Terminate()
End Sub

Public Sub main()
    Dim strReferer
    strReferer = MyIO.QueryString("Referer")
    If strReferer <> "" Then
        Response.Redirect "bbs/register.asp?refer=" & MyIO.URLEncode(strReferer)
    Else
        Response.Redirect "bbs/register.asp"
    End If
End Sub

Public Function newInstance()
    Set newInstance = New ImplMocomWAPmoWAPRegister
End Function
End Class
%>