#async.mo

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

Option Explicit

Call main

Private Sub doGet()
    Dim clsCmd, strSQL
    If Not MyKernel.MemoryLogined Then Exit Sub
    If IsEmpty(MyKernel.Memory("timestamp")) Then
        MyKernel.Memory("timestamp") = TBBS.Vars("time")
    ElseIf TBBS.Vars("time") - atol(MyKernel.Memory("timestamp"))  > 30 Then
        MyKernel.Memory("timestamp") = TBBS.Vars("time")
        strSQL = "SEQID=$(SeqId)"
        strSQL = Replace(strSQL, "$(SeqId)", MyKernel.Memory("seqid"))
        Set clsCmd = MyKernel.Command(T_USER)
        clsCmd.CommandType = "SELECT"
        clsCmd.Where = strSQL
        If clsCmd.Exec Then
            TBBS.UserAsync clsCmd
        Else
            MyKernel.Memory.Abandon
        End If
        Set clsCmd = Nothing
    End If
End Sub