用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>