<%
if Instr(session("AdminPurview"),"|39,")=0 then
response.write ("
��û�й�����ģ���Ȩ�ޣ�
")
response.end
end if
%>
<%dim Action
Action = Request("Action")
If Action="del" Then
Call Delip()
ElseIf Action="lock" Then
Call lockIP()
ElseIf Action="unlock" Then
Call UnLockip()
ElseIf Action="Logout" Then
Call Logout()
Else
Call Main()
End If
Sub Delip()
conn.execute("delete from NoHackSql where SqlIn_ID="&request("SqlIn_ID"))
Call Main()
End sub
Sub Lockip()
conn.execute("update NoHackSql set Kill_ip=true where SqlIn_ID="&request("SqlIn_ID"))
Call Main()
End sub
Sub UnLockip()
conn.execute("update NoHackSql set Kill_ip=False where SqlIn_ID="&request("SqlIn_ID"))
Call Main()
End sub
Sub Main()
%>
<% HackSqlInList() %>
ID
����IP
�Ƿ�����
����ҳ��
����ʱ��
�ύ��ʽ
�ύ����
�ύ����
����
ѡ��
<% End Sub %>
<%
'-----------------------------------------------------------
function HackSqlInList()
dim idCount'��¼����
dim pages'ÿҳ����
pages=20
dim pagec'��ҳ��
dim page'ҳ��
page=clng(request("Page"))
dim pagenc 'ÿҳ��ʾ�ķ�ҳҳ������=pagenc*2+1
pagenc=2
dim pagenmax 'ÿҳ��ʾ�ķ�ҳ�����ҳ��
dim pagenmin 'ÿҳ��ʾ�ķ�ҳ����Сҳ��
dim datafrom'���ݱ���
datafrom="NoHackSql"
dim datawhere'��������
datawhere=""
dim sqlid'��ҳ��Ҫ�õ���id
dim Myself,PATH_INFO,QUERY_STRING'��ҳ��ַ�Ͳ���
PATH_INFO = request.servervariables("PATH_INFO")
QUERY_STRING = request.ServerVariables("QUERY_STRING")'
if QUERY_STRING = "" or Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
Myself = PATH_INFO & "?"
else
Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
end if
dim taxis'��������
taxis="order by SqlIn_ID desc"
dim i'����ѭ��������
dim rs,sql'sql���
'��ȡ��¼����
sql="select count(SqlIn_ID) as idCount from ["& datafrom &"]" & datawhere
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
idCount=rs("idCount")
'��ȡ��¼����
if(idcount>0) then'�����¼����=0,����
if(idcount mod pages=0)then'�����¼��������ÿҳ����������,��=��¼����/ÿҳ����+1
pagec=int(idcount/pages)'��ȡ��ҳ��
else
pagec=int(idcount/pages)+1'��ȡ��ҳ��
end if
'��ȡ��ҳ��Ҫ�õ���id============================================
'��ȡ���м�¼��id��ֵ,��Ϊֻ��id�����ٶȺܿ�
sql="select SqlIn_ID from ["& datafrom &"] " & datawhere & taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize = pages 'ÿҳ��ʾ��¼��
if page < 1 then page = 1
if page > pagec then page = pagec
if pagec > 0 then rs.absolutepage = page
for i=1 to rs.pagesize
if rs.eof then exit for
if(i=1)then
sqlid=rs("SqlIn_ID")
else
sqlid=sqlid &","&rs("SqlIn_ID")
end if
rs.movenext
next
'��ȡ��ҳ��Ҫ�õ���id����============================================
end if
'-----------------------------------------------------------
'-----------------------------------------------------------
if(idcount>0 and sqlid<>"") then'�����¼����=0,����
'��inˢѡ��ҳ�����Ե�����,����ȡ��ҳ���������,�����ٶȿ�
sql="select * from ["& datafrom &"] where SqlIn_ID in("& sqlid &") "&taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
while(not rs.eof)'������ݵ�����
Response.Write "" & vbCrLf
Response.Write ""&rs("SqlIn_ID")&"" & vbCrLf
Response.Write ""&rs("SqlIn_IP")&"" & vbCrLf
Response.Write ""
if rs("Kill_ip")=true then
response.write "������"
else
response.write "�ѽ���"
end if
Response.Write ""
Response.Write ""&rs("SqlIn_WEB")&"" & vbCrLf
Response.Write ""&rs("SqlIn_TIME")&"" & vbCrLf
Response.Write ""&rs("SqlIn_FS")&"" & vbCrLf
if len(rs("SqlIn_CS"))>13 then
Response.Write ""&left(rs("SqlIn_CS"),10)&"..." & vbCrLf
else
Response.Write ""&rs("SqlIn_CS")&"" & vbCrLf
end if
if len(rs("SqlIn_SJ"))>24 then
Response.Write ""&left(rs("SqlIn_SJ"),21)&"..." & vbCrLf
else
Response.Write ""&rs("SqlIn_SJ")&"" & vbCrLf
end if
Response.Write "ɾ�� "
if rs("Kill_ip")=True then
response.write "����IP"
else
response.write "����IP"
end if
response.write ""
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
rs.movenext
wend
Response.Write "" & vbCrLf
Response.Write " " & vbCrLf
Response.Write "" & vbCrLf
else
response.write "����ע�������¼"
end if
'-----------------------------------------------------------
'-----------------------------------------------------------
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "