<!--#include file=cookies.asp-->
<%dim flag
flag=request.cookies("foxwww")("fox")
if flag=10 then
response.Write "<script LANGUAGE='javascript'>alert('您只是后台测试员，请注意身份！');window.location='right.asp';</script>"
response.end
end if%>
<%
dim smtphost,mail,pass,replyaddress,fs,fobj,nPath,filepath
filepath=server.mappath("../mail.asp")
if Instr(request("smtphost"),"=")>0 or Instr(request("smtphost"),"%")>0 or Instr(request("smtphost"),chr(32))>0 or Instr(request("smtphost"),"?")>0 or Instr(request("smtphost"),"&")>0 or Instr(request("smtphost"),";")>0 or Instr(request("smtphost"),",")>0 or Instr(request("smtphost"),"'")>0 or Instr(request("smtphost"),",")>0 or Instr(request("smtphost"),chr(34))>0 or Instr(request("smtphost"),chr(9))>0 or Instr(request("smtphost"),"")>0 or Instr(request("smtphost"),"$")>0 then
	response.write "<br>"+"<li>Smtp服务器地址存在非法字符。"
	response.end
end if
if Instr(request("mail"),"=")>0 or Instr(request("mail"),"%")>0 or Instr(request("mail"),chr(32))>0 or Instr(request("mail"),"?")>0 or Instr(request("mail"),"&")>0 or Instr(request("mail"),";")>0 or Instr(request("mail"),",")>0 or Instr(request("mail"),"'")>0 or Instr(request("mail"),",")>0 or Instr(request("mail"),chr(34))>0 or Instr(request("mail"),chr(9))>0 or Instr(request("mail"),"")>0 or Instr(request("mail"),"$")>0 then
	response.write "<br>"+"<li>有效邮箱地址存在非法字符。"
	response.end
end if
if Instr(request("pass"),"=")>0 or Instr(request("pass"),"%")>0 or Instr(request("pass"),chr(32))>0 or Instr(request("pass"),"?")>0 or Instr(request("pass"),"&")>0 or Instr(request("pass"),";")>0 or Instr(request("pass"),",")>0 or Instr(request("pass"),"'")>0 or Instr(request("pass"),",")>0 or Instr(request("pass"),chr(34))>0 or Instr(request("pass"),chr(9))>0 or Instr(request("pass"),"")>0 or Instr(request("pass"),"$")>0 then
	response.write "<br>"+"<li>访问密码存在非法字符。不能有“等符号！"
	response.end
end if
if Instr(request("replyaddress"),"=")>0 or Instr(request("replyaddress"),"%")>0 or Instr(request("replyaddress"),chr(32))>0 or Instr(request("replyaddress"),"?")>0 or Instr(request("replyaddress"),"&")>0 or Instr(request("replyaddress"),";")>0 or Instr(request("replyaddress"),",")>0 or Instr(request("replyaddress"),"'")>0 or Instr(request("replyaddress"),",")>0 or Instr(request("replyaddress"),chr(34))>0 or Instr(request("replyaddress"),chr(9))>0 or Instr(request("replyaddress"),"")>0 or Instr(request("replyaddress"),"$")>0 then
	response.write "<br>"+"<li>发信人邮箱存在非法字符。"
	response.end
end if
smtphost=request("smtphost")
mail=request("mail")
pass=request("pass")
replyaddress=request("replyaddress")
Set fobj = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set fs = fobj.CreateTextFile(filepath,true)
fs.Write("<"&chr(37)&chr(10))
fs.Write("dim mailname,mailpass,mailform,mailsmtp"&chr(10))
fs.Write("mailname="&chr(34)&mail&chr(34))
fs.Write(chr(13)&chr(10))
fs.Write("mailpass="&chr(34)&pass&chr(34))
fs.Write(chr(13)&chr(10))
fs.Write("mailform="&chr(34)&replyaddress&chr(34))
fs.Write(chr(13)&chr(10))
fs.Write("mailsmtp="&chr(34)&smtphost&chr(34)&chr(10))
fs.Write(chr(37)&">")
fs.close
%>
 <meta http-equiv="Content-Language" content="zh-cn">
 <LINK href="img/jobcn.css" rel=stylesheet></LINK>
<style type=text/css>
BODY{
	margin:0px;
	FONT-SIZE: 12px;
	FONT-FAMILY: "宋体", "Verdana", "Arial", "Helvetica", "sans-serif";
	background-color: #CCCC99; 
	scrollbar-highlight-color: #CC9933; 
	scrollbar-arrow-color: #FFFFFF; 
	scrollbar-base-color: #CC9933
}
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#111111; text-decoration:none; }
a:hover { color:#384780;text-decoration:underline; }
.sec_menu { border-left:2px solid #CC3300; border-right:2px solid #CC3300; border-bottom:2px solid #CC3300; overflow:hidden; background:#ffffff; }
.menu_title {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title span { position:relative; top:2px; left:8px; color:#FFFF00; font-weight:bold; }
.menu_title2 {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title2 span { position:relative; top:2px; left:8px; color:#FEFEFE; font-weight:bold; }
input,select,Textarea{
font-family:宋体,Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}
</style><p align="center" class="style1">设置邮件服务器成功！</p>
</body></html>