📄 post.asp
字号:
<html>
<head>
<title></title>
<meta http-equiv="refresh" content="3;URL=top1.asp">
</head>
<body bgcolor="#E8E8E8" text="#FFFFFF" link="#33FF33" vlink="#33FF33" alink="#33FF33">
<%
tomail=Request.Form("tomail")
frommail=Request.Form("frommail")
zhuti=Request.Form("zhuti")
text=Request.Form("text")
%>
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
' This is my local SMTP server
JMail.ServerAddress = "mail.chinahosting.com"
' This is me....
JMail.Sender = "root@shenmu.cc"
JMail.Subject = zhuti
' Get the recipients mailbox from a form (note the lack of a equal sign).
JMail.AddRecipient tomail
'JMail.AddRecipient "dad@some.com"
' The body property is both read and write.
' If you want to append text to the body you can
' use JMail.Body = JMail.Body & "Hello world!"
' or you can use JMail.AppendText "Hello World!"
' which in many cases is easier to use.
JMail.Body = "来信地址：" & frommail & vbCrLf & text
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 1
'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' Must make sure that IUSR_???? has access to the following files.
'JMail.AppendBodyFromFile "e:\mail\standard_footer.txt"
'JMail.AddAttachment "e:\products\MyProduct.exe"
' Send it...
JMail.Execute
%>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><font color="#000000" size="4">邮件已成功送出！</font></p>
<p align="center"><font size="5"></font></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -