|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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> 返回类别: 教程 上一教程: ASP内置对象详解出色教程 下一教程: 怎样做自己的二级域名(之二) 您可以阅读与"用ASP发 WAP MAIL(=)"相关的教程: · 用ASP发 WAP MAIL(-) · ASP用JMAIL、CDO发送邮件 · 初试WAP之WML+ASP查询 · WAP中的ASP技术(一) · 用ASP实现支持附件的EMAIL系统(3) |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |