最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
用Jmail写文件进硬盘
时间：2022-07-02 09:18:18 编辑：袖梨 来源：一聚教程网
文章性质：原创
发布日期：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
%>
相关文章
- 禁闭求生2怎么做蜗牛壳胸甲 蜗牛壳胸甲制作方法 09-17
- 地狱即我们战斗怎么攻击 攻击与能量获取指南 09-17
- 禁闭求生2蜗牛壳头盔怎么做 蜗牛壳头盔制作攻略 09-17
- 地狱即我们战斗怎么招架 招架与防守反击技巧指南 09-17
- 无主之地4全宣传大喇叭收集攻略 宣传大喇叭位置一览 09-17
- 禁闭求生2蟑螂套有什么 蟑螂套护甲制作大全 09-17