用Jmail写文件进硬盘

时间：2022-07-02 09:18:18 编辑：袖梨来源：一聚教程网

本文作者：kEvin1986
文章性质：原创
发布日期：2005-08-14

<%
　　‘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 & "
"
　　　　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
%>

推荐专题

最新下载

热门教程

用Jmail写文件进硬盘

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程