📄 send.asp
字号:
<% @language="vbscript" %>
<%
response.buffer=false
Response.Expires=0
%>
<% dim mail, smail,sbj,name,text
mail=request("mail") '收信人
smail=request("smail") '发信人
name=request("name") '发信人名字
radiobutton=request("radiobutton") '格式 txt或html
sbj=request("sbj") '邮件标题
text=request("text") '邮件内容
if smail="" then
smail=mail
end if
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Charset = "gb2312"
JMail.ServerAddress =""
JMail.Priority = 1
jmail.contenttype = radiobutton
JMail.Sender =( smail)
JMail.Subject =sbj
JMail.SenderName = name
JMail.AddRecipient( mail )
JMail.Body = text
JMail.Execute()
if err then
err.clear
end if
JMail.Close()
set jMail=nothing
Response.Write ("<script>alert('邮件内容已成功发送到指定的邮箱地址了，请确定返回！')</script>")
JMail.Close()
set jMail=nothing
%>
<html>
<head>
<meta http-equiv=refresh content="0; url=<%=request.servervariables("http_referer")%>">
</head>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -