【 tulaoshi.com - ASP 】
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