本文作者：kEvin1986
文章性质：原创
发布日期：2005-08-14
<%
’codz by kEvin1986
User=来4源gaodaimacom搞#代%码*网搞代gaodaima码Request.Form(“User”)
Pass=Request.Form(“Pass”)
Popserver=Request.Form(“Popserver”)
if User”” and Pass”” and Popserver”” then
Set objmail = CreateObject( “JMail.POP3” )
objmail.Connect User, Pass, Popserver
set objmsg=CreateObject(“jmail.message”)
Set objmsg = objmail.Messages.item(1)
separator = “, “
response.write “Attachment Name is: ” & SaveAtta & “
“
objmail.Disconnect
End if
Function SaveAtta()
Set Attachments = objmsg.Attachments
separator = “, “
response.write “The size of this Attachment is: ” & objmsg.size & “
“
For i = 0 To Attachments.Count – 1
If i = Attachments.Count – 1 Then
separator = “”
End If
Set Theatta = Attachments(i)
response.write Theatta.name
Theatta.SaveToFile(Server.Mappath(“.”) & “\” & Theatta.name)
Response.write “Oh!Hey Guy…..That’s OK!”
Next
End Function
%>
<body>
User:
Pass:
POP3:
转载请注明原文链接：用Jmail写文件进硬盘_PHP
