用ASP发 WAP MAIL(=)
点击次数：25 次 发布日期：2008-11-26 15:25:44 作者：源代码网
|
<% 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> 源代码网供稿. |
