| 本月文章推荐 |
用ASP发 WAP MAIL(=)发表日期：2000-12-12
|
|
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> |
| 上一篇：如何在服务器上保存一定时间的信息
人气:9735 下一篇：创建弹出式“每日提示”窗口 人气:11705 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
