用aSP发 WaP MaIL(=)

用aSP发 WaP MaIL(=)

mail.asp<%Response.Buffer = TrueResponse.ContentType = "text/vnd.wap.wml"Response.Write "<?xml version=""1.0%>    <%    Set Mail = Server.CreateObject("Persits.MailSender")  '---------------------------------------------------------  ' 你可以修改ISP的邮件服务器 '    Mail.Host = ""                         '  '---------------------------------------------------------    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 + _                " "    On Error Resume Next    Mail.Send    Dim ReportIf Err <> 0 ThenReport = "Error: " & Err.DescriptionElseReport = "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>          </p>  </card></wml>