用ASP发 WAP MAIL(=)

1   
2Response.Buffer = True   
3Response.ContentType = "text/vnd.wap.wml"   
4Response.Write "
5<?xml version=""1.0   

 1   
 2Set Mail = Server.CreateObject("Persits.MailSender")   
 3'---------------------------------------------------------   
 4' 你可以修改ISP的邮件服务器 '   
 5Mail.Host = "pun.chaozhou.gd.cn" '   
 6'---------------------------------------------------------   
 7Mail.From = Request.Form("From")   
 8Mail.FromName = Request.Form("From")   
 9Mail.AddAddress Request.Form("To"), Request.Form("To")   
10Mail.Subject = Request.Form ("Subject")   
11Mail.Body = Request.Form("Body") + vbCrLf + vbCrLf + _   
12"_________________________________________________" + vbCrLf + _   
13" Message sent via Manas' WAPMail " + vbCrLf + _   
14" http://www.e8899.com/"   
15  
16On Error Resume Next   
17Mail.Send   
18Dim Report   
19If Err <>
200 Then   
21Report = "Error: " & Err.Description   
22Else   
23Report = "Message sent to " & Request.Form("To")   
24End If   

1<wml>
2<card title="e8899.com's WAP Mail">
3<p>   

 1
 2   
 3
 4   
 5<a href="default.asp#Send">发另一封</a>
 6</p>
 7<p>
 8<small><a href="http://www.e8899.com">e8899.com</a></small>
 9</p>
10</card>
11</wml>