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>

上一页  [1] [2]