asp如何收信！！！！！！

<% Set pop3 = Server.CreateObject( "JMail.POP3" )

'pop3的连接用户名，密码，pop3地址

pop3.Connect "username", "password", "mail.mydomain.com"

Response.Write( "你有" &pop3.count &" 封邮件。

" )

if pop3.count >0 then

Set msg = pop3.Messages.item(1)

ReTo = ""

ReCC = ""

Set Recipients = msg.Recipients

separator = ", "

' 现在得到所有的收件人，并且存储

For i = 0 To Recipients.Count - 1

If i = Recipients.Count - 1 Then

separator = ""

End If

Set re = Recipients.item(i)

If re.ReType = 0 Then

ReTo = ReTo &re.Name &" (" &re.EMail &")" &

separator

else

ReCC = ReTo &re.Name &" (" &re.EMail &")" &

separator

End If

Next

'这个程序得到附件，并且保存到服务器的硬盘上。也可以返回附件的详细连接

Function getAttachments()

Set Attachments = msg.Attachments

separator = ", "

For i = 0 To Attachments.Count - 1

If i = Attachments.Count - 1 Then

separator = ""

End If

Set at = Attachments(i)

at.SaveToFile( "c:\EMail\attachments\" &at.Filename )

getAttachments = getAttachments &"" &_

at.FileName &"(" &at.Size &" bytes)" &"" &separator

Next

End Function

%>

邮件标题 <%= msg.Subject %>

发件人 <%= msg.FromName %>

收件人 <%= ReTO %>

抄送 <%= ReCC %>

附件 <%= getAttachments %>

内容

<%= msg.Body %>

<% end if

pop3.Disconnect

%>

Active Server Page，简称ASP，

本身并不是一种脚本语言，它只是提供了一种使镶嵌在 HTML 页面中的脚本程序得以运行的环境。

ASP 程序其实是以扩展名为 .asp 的纯文本形式存在于 WEB 服务器上的，你可以用任何文本编辑器打开它， ASP 程序中可以包含纯文本、 HTML 标记以及脚本命令。你只需将 .asp 程序放在 WEB 服务器的虚拟目录下（该目录必须要有可执行权限），就可以通过 WWW 的方式访问 ASP 程序了。

---