<%qx="07"%>
<!--#include file="login/0.asp"-->
<!--#include file="../mycartconn/conn.asp"-->
<!--#include file="../mycartconn/page.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../mycartconn/admin.css" rel="stylesheet" type="text/css">
</head>
<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100%" align="center" valign="middle"><table width="500" border="0" cellspacing="0" cellpadding="0"><form name="form" method="post" action="?add=yes">
        <tr>
            <td height="35" align="center" valign="middle">拒绝后台登陆的IP地址： 
              <input name="ip" type="text" class="wenbenkuang" id="ip" size="25" maxlength="25">
              <input name="Submit" type="submit" class="go-wenbenkuang" value="加入黑名单">
            </td>
        </tr></form>
      </table> 
      <table border="0" cellspacing="1" width="550" cellpadding="3">
<%
if request("add")="yes" and request("ip")<>"" then
conn.execute("Insert into nosql(ip,js)values('"&request("ip")&"',999)")
end if
if request("del")="yes" then
conn.execute("Delete nosql where id="&request("id")&"")
end if
if title<>"" then
sql="select * from nosql where ip like '%"&title&"%' order by id desc"
else
sql="select * from nosql order by id desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
response.write "<br>暂无"
end if
page1("6")
i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr> 
          <td width="50" align="center" bgcolor="#f1f1f1"> <%=rs("id")%> </td>
          <td width="200" align="center" bgcolor="#f1f1f1"> <%=rs("ip")%></td>
          <td width="100" align="center" bgcolor="#f1f1f1"> <%=rs("js")%></td>
          <td width="200" align="center" bgcolor="#f1f1f1"><%=rs("sj")%></td>
          <td width="50" align="center" bgcolor="#f1f1f1"><a href=?del=yes&id=<%=rs("id")%>>删除</a></td>
        </tr>
<%i=i+1
rs.movenext
loop%>
        <tr align="center"> 
          <td colspan="5"> 
            <%page2("abc="&request("abc")&"&")
rs.close
set rs=nothing
conn.close
set conn=nothing
%></td>
        </tr>
      </table>
<form name="searchsoft" method="POST" action="nosql.asp">
        查找记录: 
        <input class=wenbenkuang type="text" name="txtitle" size="20">
        <input class=go-wenbenkuang type="submit" value="查 询" name="title">
</form></td>
  </tr>
</table>
</body>
</html>