用ASP发 WAP MAIL(=)

　2000-12-12 10:15:45　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鐏氱€氼剟姊洪崹顕呭剰闁逞屽墮缁夊綊寮婚妸褉鍋撻棃娑欏暈闁伙綀浜埀顒傛暬閸嬪﹪宕伴弽褏鏆﹂柨鐕傛嫹

核心提示：mail.asp<%Response.Buffer = TrueResponse.ContentType = "text/vnd.wap.wml"Response.Write "<?xml version=""1.0%><%Set Mail =

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">
　　
　　　<%= Report %>
　　　 
　　　 
　　　<a href="default.asp#Send">发另一封</a>
　　
　　
　　　<a href="http://www.e8899.com">e8899.com</a>
　　
　</card>
</wml>