28,409
社区成员




<%
Call DoNoIpLock
Operate=Trim(Request.QueryString("operate"))
If Operate="del" Then
Call DelLock '这里漏掉Call,会引起脚本错误
ElseIf Operate="save" Then
Call SaveLock
ElseIf Operate="shenhe" Then
Call shenhelock()
Else
Call LockList
End if
Response.Write " </table>"
Sub Locklist
Set Talers=Conn.ExeCute("Select * from IpLock order by iplock")
If Not Talers.Eof Then
i=0
%>
<%
Response.Write " <a href='m1l1ip.Asp?operate=shenhe&ipid="&Talers("ipid")& "&shixiao="& Talers("shixiao") &"'>"
If Talers("shixiao")=0 Then
Response.Write " <font color=red>未审 </font>"
Else
Response.Write "已审"
End If
Response.Write " </a>" %>
<%
sub shenhelock()
ipid=CLng(request.QueryString("ipid")) '注意防注入
shixiao=CInt(request.QueryString("shixiao")) '你原来的地址中没有包含shixiao这个参数
If shixiao=1 then
shixiao=0
else
shixiao=1
End if
set Talers=conn.execute("Update IpLock set shixiao="&shixiao&" Where ipid="&ipid&"")
Response.Redirect "m1l1ip.Asp"
end sub
%>