如何利用asp来打包网站 - 【电脑应用】 - 馨园——夏岚馨论坛

打印 \| 推荐 \| 订阅 \| 收藏标题: [转载] 如何利用asp来打包网站
所需阅读权限 1

无树 (ty)

版主

UID 625
精华 1
积分 5586
帖子 3113
威望 1602
金钱 8049
推广注册 5
推广浏览 449
体力 7231
阅读权限 100
注册 2006-12-26
来自 CN

发表于 2008-5-31 16:59 资料文集短消息

如何利用asp来打包网站

一、遇到的权限问题。　　我们在打包网站的时候经常会遇到权限问题。因为现在的虚拟主机的安全性不断的在提高，很多虚拟主机都禁用了WScript.shell。因为这个对象可以执行一些cmd命令，对虚拟主机的安全具有很大的威胁。记得前几年我在学习网络安全的时候，通过一些漏洞获得了网站的weshell后很多的虚拟主机都可以执行cmd命令，例如webshell中执行netstat -na 来查看服务器端口。可是现在由于虚拟空间销售商安全意识的提高，大多数的虚拟主机都禁用了wscript.shell。为什么要提到wscript.shell呢？因为我记得那时候程序打包利用的是rar，dos下的rar来压缩整个网站，而rar需要执行dos命令也就是利用wscript.shell来执行cmd命令。
　　二、禁用了wscript.shell怎么办呢？
　　我最近就遇到了这样一个问题，其他网络公司的一个客户想把自己的网站(某净化工程公司)转移到我们公司来维护，但是由于网络公司拒绝提供网站的ftp，如何拿到这个网站的源代码呢，只有获得这个网站的webshell的情况下才可以拿到源代码。这个过程很简单，我给客户要了后台地址、账号和密码，进入后台后利用了一个简单的上传漏洞轻松的拿下了网站的webshell。在拿下网站权限后最后的工作是打包整个网站。问题却出现了，在没有ftp的情况下要想下载整个网站，手工一个一个文件的去下载是相当麻烦的。我发现webshell里面有个打包网站的功能，索性试了一下，但结果令我比较失望，通过检查是代码有些问题，经过修正顺利的完成了任务。分析了一下网站打包部分的功能代码，并加以修改做成了一个具有打包，解包功能的asp程序代码如下：
　　
　　<%
'=====================
'FSO在线压缩解压缩
'=====================
Sub AddToMdb(thePath)
On Error Resume Next
Dim Rs, Conn, Stream, ConnStr, adoCatalog, FsoX
Set FsoX = CreateObject("Scripting.FileSystemObject")
If FsoX.FileExists(Server.MapPath("HYTop.mdb")) Then
FsoX.DeleteFile(Server.MapPath("HYTop.mdb"))
End If
Set Rs = Server.CreateObject("Adodb.RecordSet")
Set Stream = Server.CreateObject("Adodb.Stream")
Set Conn = Server.CreateObject("Adodb.Connection")
Set adoCatalog = Server.CreateObject("ADOX.Catalog")
C &Server.MapPath("HYTop.mdb")
adoCatalog.Create ConnStr
Conn.Open ConnStr
Conn.Execute("Create Table FileData(Id int IDENTITY(0,1) Primary Key Clustered, thePath VarChar, fileContent Image)")
Stream.Open
Stream.Type = 1
Rs.Open "FileData", Conn, 3, 3
fsoTreeForMdb thePath, Rs, Stream
Rs.Close
Conn.Close
Stream.Close
Set Rs = Nothing
Set Conn = Nothing
Set Stream = Nothing
Set adoCatalog = Nothing
End Sub
Sub fsoTreeForMdb(ThePath, Rs, Stream)
Dim Item, TheFolder, Folders , Files, SysFileList, FsoX
Set FsoX = Server.CreateObject("Scripting.FileSystemObject")
SysFileList = "$HYTop.mdb$HYTop.ldb$"

If FsoX.FolderExists(ThePath) = False Then
Response.write(ThePath + " 目录不存在或不允许访问!")
End If
Set TheFolder = FsoX.GetFolder(ThePath)
Set Files = TheFolder.Files
Set Folders = TheFolder.SubFolders
For Each Item In Folders
fsoTreeForMdb Item.Path, Rs, Stream
Next
For Each Item In Files
If InStr(SysFileList, "$" &Item.Name &"$") <　　'=====================
　　'FSO在线压缩解压缩
　　'=====================
　　Sub AddToMdb(thePath)
　　On Error Resume Next
　　Dim Rs, Conn, Stream, ConnStr, adoCatalog, FsoX
　　Set FsoX = CreateObject("Scripting.FileSystemObject")
　　If FsoX.FileExists(Server.MapPath("HYTop.mdb")) Then
　　FsoX.DeleteFile(Server.MapPath("HYTop.mdb"))
　　End If
　　Set Rs = Server.CreateObject("Adodb.RecordSet")
　　Set Stream = Server.CreateObject("Adodb.Stream")
　　Set Conn = Server.CreateObject("Adodb.Connection")
　　Set adoCatalog = Server.CreateObject("ADOX.Catalog")
　　C &Server.MapPath("HYTop.mdb")
　　adoCatalog.Create ConnStr
　　Conn.Open ConnStr
　　Conn.Execute("Create Table FileData(Id int IDENTITY(0,1) Primary Key Clustered, thePath VarChar, fileContent Image)")
　　Stream.Open
　　Stream.Type = 1
　　Rs.Open "FileData", Conn, 3, 3
　　fsoTreeForMdb thePath, Rs, Stream
　　Rs.Close
　　Conn.Close
　　Stream.Close
　　Set Rs = Nothing
　　Set Conn = Nothing
　　Set Stream = Nothing
　　Set adoCatalog = Nothing
　　End Sub
　　Sub fsoTreeForMdb(ThePath, Rs, Stream)
　　Dim Item, TheFolder, Folders , Files, SysFileList, FsoX
　　Set FsoX = Server.CreateObject("Scripting.FileSystemObject")
　　SysFileList = "$HYTop.mdb$HYTop.ldb$"
　　
　　If FsoX.FolderExists(ThePath) = False Then
　　Response.write(ThePath + " 目录不存在或不允许访问!")
　　End If
　　Set TheFolder = FsoX.GetFolder(ThePath)
　　Set Files = TheFolder.Files
　　Set Folders = TheFolder.SubFolders
　　For Each Item In Folders
　　fsoTreeForMdb Item.Path, Rs, Stream
　　Next
　　For Each Item In Files
　　If InStr(SysFileList, "$" &Item.Name &"$") <= 0 Then
　　Rs.AddNew
　　Rs("thePath") = Mid(Item.Path, Len(Request("thePath")) + 1)
　　Stream.LoadFromFile(Item.Path)
　　Rs("fileContent") = Stream.Read()
　　Rs.Update
　　End If
　　Next
　　Set Files = Nothing
　　Set Folders = Nothing
　　Set TheFolder = Nothing
　　Set FsoX = Nothing
　　End Sub
　　
　　Sub unPack(thePath)
　　On Error Resume Next
　　Server.ScriptTimeOut = 5000
　　Dim Rs, Ws, Str, Conn, Stream, ConnStr, theFolder, FsoX
　　Str = Server.MapPath(".") &""
　　Set FsoX = CreateObject("Scripting.FileSystemObject")
　　Set Rs = CreateObject("Adodb.RecordSet")
　　Set Stream = CreateObject("Adodb.Stream")
　　Set Conn = CreateObject("Adodb.Connection")
　　C &thePath &";"
　　Conn.Open ConnStr
　　Rs.Open "Select * from FileData", Conn, 1, 1
　　Stream.Open
　　Stream.Type = 1
　　Do Until Rs.Eof
　　TheFolder = Left(Rs("thePath"), InStrRev(Rs("thePath"), ""))
　　If FsoX.FolderExists(Str &theFolder) = False Then
　　CreateFolder(Str &theFolder)
　　End If
　　Stream.SetEos()
　　Stream.Write Rs("fileContent")
　　Stream.SaveToFile Str &Rs("thePath") , 2
　　Rs.MoveNext
　　Loop
　　Rs.Close
　　Conn.Close
　　Stream.Close
　　Set Ws = Nothing
　　Set Rs = Nothing
　　Set Stream = Nothing
　　Set Conn = Nothing
　　Set FsoX = Nothing
　　End Sub
　　Sub CreateFolder(thePath)
　　Dim i, FsoX
　　Set FsoX = CreateObject("Scripting.FileSystemObject")
　　i = Instr(thePath, "")
　　Do While i >0
　　If FsoX.FolderExists(Left(thePath, i)) = False Then
　　FsoX.CreateFolder(Left(thePath, i - 1))
　　End If
　　If InStr(Mid(thePath, i + 1), "") Then
　　i = i + Instr(Mid(thePath, i + 1), "")
　　Else
　　i = 0
　　End If
　　Loop
　　End Sub
　　If Trim(Request("Zip")) <>"" Then
　　AddToMdb(Request("thePath"))
　　Response.Write("压缩文件完毕! ")
　　Response.Write("<a href=HYTop.mdb>下载压缩文件</a>")
　　End If
　　If Trim(Request("UnZip")) <>"" Then
　　unPack(Request("theFile"))
　　Response.Write("解压完毕!")
　　End If
　　%>
　　<style type="text/css">
　　　　.STYLE1 {color: #FF0000}
　　.STYLE2 {
　　color: #FFFFFF;
　　font-weight: bold;
　　font-size: 14px;
　　}
　　*{font-size:12px;}
　　-->
　　</style>
　　<p> </p>
　　<p> </p>
　　<p> </p>
　　<p> </p>
　　<form id="form1" name="form1" method="post" action="">
　　<table width="100%" height="25" border="0" cellpadding="0" cellspacing="1" bgcolor="#66CCCC">
　　<tr>
　　<td height="30" colspan="3" align="center"><span class="STYLE2">ASP 在线压缩-解压缩</span></td>
　　</tr>
　　<tr>
　　<td width="35%" height="25" bgcolor="#FFFFFF">压缩目录(压缩完成后默认为本程序目录下 <span class="STYLE1">HYTop.mdb</span> 文件)</td>
　　<td width="41%" height="25" bgcolor="#FFFFFF">
　　 <input name="thePath" type="text" id="thePath" value="<% If Right(Server.MapPath("."), 1) <>"" Then Response.Write(Server.MapPath(".")) &"" Else Response.Write(Server.MapPath(".")) End If %>" size="60" /></td>
　　<td width="24%" height="25" bgcolor="#FFFFFF"><input name="Zip" type="submit" id="Zip" value="在线压缩" /></td>
　　</tr>
　　<tr>
　　<td height="25" bgcolor="#FFFFFF">解压缩文件(默认为本程序目录下 <span class="STYLE1">HYTop.mdb</span> 文件)</td>
　　<td height="25" bgcolor="#FFFFFF"> <input name="theFile" type="text" id="theFile" value="<%=Server.MapPath("HYTop.mdb")%>" size="60" /></td>
　　<td height="25" bgcolor="#FFFFFF">
　　<input name="UnZip" type="submit" id="UnZip" value="在线解压缩" /></td>
　　</tr>
　　</table>
　　</form>
　　三、利用数据库可以存储二进制的办法打包网站
　　原理：通过建立一个access数据库，并在数据库中加入一个表。这个表有三个字段，一个是递增字段，一个字段来存放文件的路径，另一个字段来存放文件的二进制数据。我们知道有的时候需要在数据库中存放图片。同样我们可以在数据库中存放其他的数据。在压缩的时候吧文件的路径和文件都添加到数据库中，那么最后得到的就只是一个数据库文件。同样我们可以在数据库中利用查询语句获取二进制数据，在利用adodb.stream对象的SaveToFile方法存储为文件。
　　代码重点：
　　1.创建数据库
　　Set adoCatalog = Server.CreateObject("ADOX.Catalog")
　　C &Server.MapPath("HYTop.mdb")
　　adoCatalog.Create ConnStr
　　2.创建表
　　Conn.Execute("Create Table FileData(Id int IDENTITY(0,1) Primary Key Clustered, thePath VarChar, fileContent Image)")
　　3.CreateFolder 函数用来创建文件夹
　　4.文件如何插入到数据库中
　　Stream.LoadFromFile(Item.Path)
　　Rs("fileContent") = Stream.Read()
　　5.数据库中二进制保存为文件
　　Stream.Open
　　Stream.Type = 1
　　Stream.SetEos()
　　Stream.Write Rs("fileContent")
　　Stream.SaveToFile Str &Rs("thePath") , 2
　　四、需要的权限与组件
　　1.组件
　　ADOX.Catalog
　　Scripting.FileSystemObject (FSO)
　　Adodb.Stream
　　2.权限
　　能够创建文件夹

转自[非常编程网]

灵魂是人身的胚芽。死亡之日正是苏醒之时，而精神永永垂不朽。~