给你点源代码看看吧。为公司做的项目,只能给你这么多啦。收发wap电子邮件用的。
<%
' Displays the number of email in your mail box and gives the choice between
' reading the emails or sending one
' Accept -> Check the password (EmailFrom.asp)
Response.ContentType = "text/vnd.wap.wml"
dim Mailer, iNbrEmail
Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = request("MailServer")
Mailer.UserName = request("Id")
Mailer.Password = request("Pwd")
'response.write mailer.remotehost
'response.write mailer.username
'response.write mailer.password
'response.end
Mailer.OpenPop3
iNbrEmail = Mailer.MessageCount
Mailer.ClosePop3
Set Mailer = nothing
%>
<?xml version="1.0" ?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="Menu" title="Email menu" >
<p align="left">
<small>
<%= "You have " & iNbrEmail & " message(s)"%>
</small>
</p>
<%
if iNbrEmail >= 0 then
%>
<do type="accept" name="From" label="From ?">
<go href="EmailFrom.asp" method="post">
<postfield name="Id" value="$(InputId)" />
<postfield name="Pwd" value="$(InputPwd)" />
<postfield name="MailServer" value="$(InputMailServer)" />
</go>
</do>
<do type="Options" name="Send" label="Send Email">
<go href="EmailSend1.asp" />
</do>
<%
end if
%>
</card>
</wml>