log

来自「WAP手机网页XXXXX WAP手机网页XXXXX」· 代码 · 共 31 行

Public Sub main()
    If Request.ServerVariables("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("UserId") = wmDefaultUserId
    End If
    Call ExportImage
    Call doLog(Request.QueryString("Handle"), atol(Request.QueryString("Id")), Request.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