用ASP发 WAP MAIL= -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 用ASP发 WAP MAIL=

用ASP发 WAP MAIL= 时间：2004/11/7 4:10:00来源：本站整理作者：蓝点我要评论(0): mail.asp

<%

Response.Buffer = True

Response.ContentType = "text/vnd.wap.wml"

Response.Write "
%>

    <%

    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

    %>





      <%= Report %>





      发另一封





      e8899.com

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。