out

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

Private Sub Class_Initialize()
    Set MyXML = MyKernel.XMLParser
End Sub

Public Sub main()
    If MyIO.Env("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
    Call MyKernel.OutputXML(Empty)
End Sub

Private Sub doPost()
End Sub

Private Sub DeleteOnline()
    Dim lngUserID
    Dim lngID
    Dim strSQL
    Dim xdb
    lngUserID = atol(MyKernel.Memory("SeqID"))
    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 SetUserStat(stOnlineUser, -1)
    strSQL = "UPDATE $(Table) SET LASTVISITTIME=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