📄 sendmailto.asp
字号:
<%
function IsValidEmail(email)
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function
%>
<html>
<head>
<link rel="stylesheet" href="style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>邮件发送成功</title>
</head>
<body bgcolor="#666633">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<%
'设置发信人
if IsValidEmail(request.form("frommail"))=false then
response.write"<SCRIPT language=JavaScript>alert('发信人邮件地址格式不对！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
founderr=true
else
frommail=request.form("frommail")
end if
'判断对谁发信
if IsValidEmail(request.form("tomail"))=false then
response.write"<SCRIPT language=JavaScript>alert('收信人邮件地址格式不对！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
founderr=true
else
tomail=request.form("tomail")
end if
'设置邮件主题
mailsubject=request("mailsubject")
if mailsubject="" then
response.write"<SCRIPT language=JavaScript>alert('信件标题都不写的？');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
'设置邮件内容
mailbody=request("mailbody")
if mailbody="" then
response.write"<SCRIPT language=JavaScript>alert('信件内容都不写的？');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
'写发信信息
response.write "发信人地址: "&frommail
response.write "<br><br><br>"
response.write "收信人地址："&tomail
'发信
if request("mail")="owen" then
Set OWENmail=Server.CreateObject("JMail.SMTPMail")
OWENmail.Charset = "gb2312"
OWENmail.Sender = frommail
OWENmail.Subject = mailsubject
OWENmail.AddRecipient(""&tomail&"")
OWENmail.Body = mailbody
OWENmail.Execute
OWENmail.Close
Set OWENmail = Nothing
response.write "<br><br><br>"
response.write ":)"
End If
%> <meta http-equiv="refresh" content="2;URL=Sendmail.asp">
<a href="Sendmail.asp"><font color="#0000FF" size="3"><strong> 您的邮件发送成功！正在返回....</strong></font></a></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -