cache

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

Private strHandle

Private Sub Class_Initialize()
    strHandle = MyIO.QueryString("Handle")
End Sub

Private Sub Class_Terminate()
End Sub

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

Private Sub doPost()
    Select Case LCase(strHandle)
    Case "remove"
        Call doPostRemove
    Case Else
    End Select    
End Sub

Private Sub doPostRemove()
    Dim lngID
    Select Case MyIO.Form("name")
    Case "index"
        RemoveCache "index", 0, 0, 0
        MyIO.Echo "OK"
    Case "staple"
        lngID = atol(MyIO.Form("id"))
        RemoveCache "staple", lngID, 0, 0
        If lngID > 0 Then
            RemoveCache "content", 0, 0, lngID
        End If
        MyIO.Echo "OK"
    Case "content"
        RemoveCache "content", atol(MyIO.Form("id")), atol(MyIO.Form("time")), atol(MyIO.Form("follow"))
        MyIO.Echo "OK"
    Case Else
        MyIO.Echo "未知操作(" & MyIO.Form("name") & ")"
    End Select
End Sub