|
|
| 用ASP发 WAP MAIL(-) |
| 作者:不详 来源:本站整理 发布时间:2006-3-13 16:31:07 发布人:tangyunfei |
减小字体
增大字体
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>
| |
| 上一页 [1] [2]
|
|
[]
[返回上一页]
[打 印]
[收 藏] |
|
| ∷相关文章评论∷ (评论内容只代表网友观点,与本站立场无关!) [更多评论...] |
|
|