iismail.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 33 行

ASP
33
字号
<HTML>
<BODY>
<%
If Request("Send") <> Empty Then
   Set mail = Server.CreateObject( "CDONTS.NewMail" )
   mail.To = Request("To")
   mail.From = Request("From")
   mail.Subject = Request("Subject")
   mail.Body = Request("Body")
   mail.Send
   Response.Write "邮件已送出!"
Else
%>
<H2>使用IIS的CDONTS.NewMail发送 Email!<HR></H2>
<FORM Action=IISMail.asp Method=POST>
<TABLE Border=1>
  <TR><TD>收件人:</TD>
  <TD><INPUT Type=Text Name=To Size=40></TD></TR>
  <TR><TD>发件人:</TD>
  <TD><INPUT Type=Text Name=From Size=40></TD></TR>
  <TR><TD>主题:</TD>
  <TD><INPUT Type=Text Name=Subject Size=40></TD></TR>
  <TR><TD>内容:</TD>
  <TD><TEXTAREA Name=Body Rows=8 Cols=60></TEXTAREA>
  </TD></TR>
</TABLE>
<INPUT Type=Submit Value=" 发 送 " Name="Send">
</FORM>
<%
End If
%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?