log

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

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

Private Sub doGet()
    If IsEmpty(MyKernel.Memory("Status")) Then
        MyKernel.Memory("Status") = wmUserGuest
        MyKernel.Memory("SeqID") = 0
    End If
    Call ExportImage
    Call doLog(MyIO.QueryString("Handle"), atol(MyIO.QueryString("Id")), MyIO.QueryString("Referer"))
End Sub

Private Sub doPost()
End Sub

Private Sub ExportImage()
    Dim arr, i
    Dim ret
    arr = Array(&H47, &H49, &H46, &H38, &H39, &H61, &H01, &H00, &H01, &H00, &H80, &H00, &H00, &HFF, &HFF, &HFF, &H00, &H00, &H00, &H21, &HF9, &H04, &H01, &H00, &H00, &H00, &H00, &H2C, &H00, &H00, &H00, &H00, &H01, &H00, &H01, &H00, &H00, &H02, &H02, &H44, &H01, &H00, &H3B)
    For i = 0 To UBound(arr)
        ret = ret & ChrB(arr(i))
    Next
    Response.ContentType = "image/gif"
    Response.BinaryWrite ret
End Sub