用asp发 wap mail(-)_asp实例

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