out.asp

WAP手机网页XXXXX WAP手机网页XXXXX

<%
Class ImplMocomWAPmoWAPOut
Private Sub Class_Initialize()
    Set MyXML = MyKernel.XMLParser
End Sub

Public Sub main()
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
End Sub

Private Sub doGet()
    Call DeleteOnline
    MyXML.Align = "center"
    MyXML.Println MyKernel.Config("SiteName") & "会员退出"
    MyXML.Align = "left"
    MyXML.Println "您已成功退出登录"
    Call BackHome
    MyXML.Transform Response
End Sub

Private Sub doPost()
End Sub

Private Sub DeleteOnline()
    Dim lngUserId
    Dim lngId
    Dim strSQL
    Dim xdb
    lngUserId = atol(MyKernel.Memory("UserId"))
    If lngUserId <= 0 Then Exit Sub
    Set xdb = getOnlineXDB()
    xdb.Filter = "@UserId=" & lngUserId
    If Not xdb.EOF Then
        xdb.Delete False
    End If
    Set xdb = Nothing
    Call setStat(stOnlineUser, -1)
    strSQL = "UPDATE $(Table) SET LASTUSEDTIME=0 WHERE SEQID=$(SeqId)"
    strSQL = Replace(strSQL, "$(Table)", T_USER)
    strSQL = Replace(strSQL, "$(SeqId)", atol(MyKernel.Memory("SeqId")))
    MyKernel.DB.Exec strSQL
    MyKernel.Memory.Abandon
End Sub

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