广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： 整理

<!--#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"
%>