用aSP发 WaP MaIL(=)

用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 = ""                         '   '---------------------------------------------------------     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 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>            </p>   </card> </wml>