用ASP发 WAP MAIL(=)

核心提示：mail.asp<%Response.Buffer = TrueResponse.ContentType = "text/vnd.wap.wml"Response.Write "<?xml version=""1.0%><%Set 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">
　　<p>
　　　<%= Report %>
　　　<br/>
　　　<br/>
　　　<a href="default.asp#Send">发另一封</a>
　　</p>
　　<p>
　　　<small><a href="http://www.e8899.com">e8899.com</a></small>
　　</p>
　</card>
</wml>