📄 cak.asp
字号:
<%
if request.cookies("adminok")="" then
response.redirect "../admin/shop_login.htm"
end if
%>
<!--#include file="conn.asp"-->
<%
response.expires=0
count=20
d=request("id")
if d="" then
page=1
n=1
else
page=d
n=count*(d-1)
end if
%>
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
<%set rs=server.createobject("adodb.recordset")
sql="select * from email order by date desc"
rs.open sql,conn,3,2
%>
<body>
<form method="POST" action="sc.asp" name="form1">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" height="54">
<tr>
<td width="100%" height="38">
<p align="center">共有<font color=red><%=rs.recordcount%></font>人订阅了本邮件列表<p align="center"><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="50%" height="20" align="center" bgcolor="#AFD7FF"> 订阅邮箱</td>
<td width="27%" align="center" bgcolor="#AFD7FF"><p align="center">订阅日期</td>
<td width="37%" align="center" bgcolor="#AFD7FF"> <font size="2"> 管理</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="16">
<%yushu=rs.recordcount mod count
if yushu=0 then
totalpage=rs.recordcount/count
else
totalpage=int(rs.recordcount/count)+1
end if
k=0
if int(d)>int(totalpage) then
d=int(totalpage)
page=d
n=count*(d-1)
end if
if d<>"" then
for i=1 to n
rs.movenext
next
end if
do while not rs.eof
k=k+1%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="50%" height="20"> <%=rs("email")%></td>
<td width="27%"><p align="center"><%=rs("date")%></td>
<td width="37%"> <font size="2"> 删除
<input type="checkbox" name="sc" value="<%=rs("email")%>"></font></td>
</tr>
</table>
<%if k=count then
exit do
end if
rs.movenext
loop
%> <p align="right"><input type="submit" value="删除" name="B1"></p>
<p align="center"><% if page>1 then %>
<a href='cak.asp?id=<%=(page-1)%>'><<上一页</a>
<%end if%>
<% if int(page) < int(totalpage) then %>
<a href='cak.asp?id=<%=(page+1)%>'>下一页>></a>
<% end if %>
【共<font color=red><%=totalpage%></font>页】【第<font color=red><%=page%></font>页】 </td>
</tr>
</table>
</div>
</form>
<form method="POST" action="cak.asp">
<p align="center">
请输入页数：<input type="text" name="id" size="2" style="border-style: solid; border-width: 1">
<input type="submit" value="跳转" name="B1" style="border-style: solid; border-width: 1"></p>
</form>
<p>
<br>
<Br>
</p>
<form method="POST" name="form2" action="search.asp">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" height="33">
<tr>
<td width="100%" bgcolor="#00A9E0" height="33">
<p align="center">查找信箱：<input type="text" name="T1" size="20" style="border-style: solid; border-width: 1">
<input type="submit" value="查找" name="B1"></td>
</tr>
</table></center>
</div>
</form>
<p align="center"> <!--#include file="foot.htm"--></p>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -