开放源码 - 访客统计查询（三）

领测软件测试网 <!--#Include File="Statistics_Connection.asp"-->

<%
If Session("AdminJack") <> "AdminJack" Then
Response.Redirect "Login.asp"
End If
%>

<%
Dim IDSet, argAction
Dim strSQLStatisticsOperation

IDSet = Replace(Request.Form("Check_ID"), "‘’", "")
argAction = Request.Form("HiddenAction")

Select Case argAction
Case "Delete" strSQLStatisticsOperation = _
"Delete From IPs " _
& "Where ID In (" & IDSet & ")"
Case "Pin" strSQLStatisticsOperation = _
"Update IPs " _
& "Set Pinned = True " _
& "Where Pinned = False And ID In (" & IDSet & ")"
Case "Unpin" strSQLStatisticsOperation = _
"Update IPs " _
& "Set Pinned = False " _
& "Where Pinned = True And ID In (" & IDSet & ")"
End Select

cnnStatistics.Execute strSQLStatisticsOperation

Call CloseDatabase

Response.Redirect "Index.asp"
%>

文章来源于领测软件测试网 https://www.ltesting.net/