附件readmail.asp

<!–
    this sample script uses the cdo for nts library to
    read e-mail for a specific user.
    leon braginski & matt powell (c)
–>
<%@ language = "vbscript" %>
<%
if (request.servervariables ("request_method") = "post") then
    name = request.form("name")
    email = request.form("ename")
else
     assume it is get
    name = request.querystring("name")
    email = request.querystring("email")
end if

if (email = "") or (name = "") then
    response.write "you have to supply name and email <br>"
    response.end
end if

set objsession = server.createobject ("cdonts.session")
objsession.logonsmtp name, email
set objinbox = objsession.getdefaultfolder(1)

if objinbox is nothing then
    set collmessages = nothing
    response.write "cant get folder. <br>"
    objsession.logoff
    response.end
end if

set collmessages = objinbox.messages

if (collmessages.count = 0) then
    response.write  "<center> user <b>"  & name & "</b>" & _
        " (email:  <b>" & email & "</b>) does not have messages"
    response.end
    objsession.logoff
end if

response.write  "<center> user <b>"  & name & "</b>" & _
    " (email:  <b>" & email & "</b>) has <b>"& _
    collmessages.count & "</b> message(s) </center> <p>"

response.write "<table border width=100% >"
response.write "<tr> <td width=10% > <i>id</i></td>" & _
    "<td width=15% > <i>from</i></td>" & _
    "<td width=15% > <i>subject</i> </td> " & _
    "<td width=60% > <i>message text</i></td> </tr>"

for mes = 1 to collmessages.count
    set objmessage = collmessages.item(mes)
    response.write "<tr> <td width=10% >" & mes & "</td>" & _
        "<td width=15% >" & objmessage.sender.name & "</td>" & _
        "<td width=15% >" & objmessage.subject & "</td>" & _
        "<td width=60% >" & objmessage.text & "</td> </tr>"
next

response.write "</table>"
%>