你现在所在的位置->首页->wap->用ASP发 WAP MAIL(-)
用ASP发 WAP MAIL(-)
时间：[2005-11-24 15:44:20] 作者：未知
| 用ASP发 WAP MAIL(-) |
|
|
用ASP发 WAP MAIL需要以下两个文件:
default.asp
<%
Response.Buffer = True
Response.ContentType = "text/vnd.wap.wml"
Response.Write "<?xml version=""1.0%>
<wml>
<card id="Intro" title="e8899.com' WAP Mail">
<p align="center">
<big><strong>欢迎使用WAP Mail</strong></big>
<br/>
<br/>
<a href="#Send">正在发送邮件 ...</a>
</p>
<p>
<small>e8899.com</small>
</p>
</card>
<card id="Send" title="E8899.COM' WAP Mail">
<p>
来自: <input type="text" name="From"/><br/>
发到: <input type="text" name="To"/><br/>
主题: <input type="text" name="Subject"/><br/>
内容: <input type="text" name="Body"/><br/>
</p>
<p align="center">
<do type="accept" label="Send">
<go href="mail.asp" method="post">
<postfield name="From" value="$From"/>
<postfield name="To" value="$To"/>
<postfield name="Subject" value="$Subject"/>
<postfield name="Body" value="$Body"/>
</go>
</do>
</p>
</card>
</wml>
| |
|
用ASP发 WAP 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">
<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发 WAP MAIL(-)》一文如果有侵害你权益的情况，请联系我们。我们将及时采取措施。
QQ：44637339 Email:just6@163.com Tel:13355163107 Lining studios
