用ASP发 WAP MAIL(=)_三度网教程

mail.asp
<%
Response.Buffer = True
Response.ContentType = "text/vnd.wap.wml"
Response.Write "<?xml version=""1.0
%>
 <%
 Set Mail = Server.CreateObject("Persits.MailSender")
 '---------------------------------------------------------
 ' 你可以修改ISP的邮件服务器 '
 Mail.Host = "pun.chaozhou.gd.cn" '
 '---------------------------------------------------------
 Mail.From = Request.Form("From")
 Mail.FromName = Request.Form("From")
 Mail.AddAddress Request.Form("To"), Request.Form("To")
 Mail.Subject = Request.Form ("Subject")
 Mail.Body = Request.Form("Body") + vbCrLf + vbCrLf + _
 "_________________________________________________" + vbCrLf + _
 " Message sent via Manas' WAPMail " + vbCrLf + _
 " http://www.e8899.com/"

 On Error Resume Next
 Mail.Send
 Dim Report
If Err <> 0 Then
Report = "Error: " & Err.Description
Else
Report = "Message sent to " & Request.Form("To")
End If
 %>
<wml>
 <card title="e8899.com's WAP Mail">
 
 <%= Report %>
 
 
 <a href="default.asp#Send">发另一封</a>
 
 
 <a href="http://www.e8899.com">e8899.com</a>
 
 </card>
</wml>

关键词： 用ASP发 WAP MAIL(=)