网站文件管理器( Flash + ASP 架构)(原版)(ASP部分

有五个文件，

 

AspCommand.asp 的内容：

 

 
 <%@ CODEPAGE=65001 %>
<% Response.CodePage="65001"%>
<% Response.Charset="utf-8" %>

<%
 Response.CacheControl = "no-cache"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.clear
%>
 <!--#include file="CheckLogin.asp"-->
 
 
 
 
 <%
 cmdStr= trim(request("tootcmd"))  

 
    if  cmdStr="" then response.Redirect("/")
        execute(cmdStr ) 
 if   (err.number>0) then
  response.Write("rtnMsg=Error!")
  err.clear
  else
  response.Write("rtnMsg=OK")
  end if   
%>
 

 

 

===========================================================

wriSiteFilesTreeXML.asp 文件内容，这个脚本运行后会生成一个siteFolderTreeXML.asp 文件，记录了网站所有文件

<%@ CODEPAGE=65001 %>
<% Response.CodePage="65001"%>
<% Response.Charset="utf-8" %>
 
 <%
 Response.CacheControl = "no-cache"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.clear
%>
 

<%
dim xmlStr
 

 

Function FileLinkLess( f )    '''''''''' less detail  apply to tree list.........
FileLinkLess = "<node label=""" & f.Name & """    />"
End Function

 

Function SearchFolder( fd )
For each sfd In fd.SubFolders
SearchFolder = SearchFolder & "<node label=""" & sfd.name & """  nodeType=""folder"">"
SearchFolder = SearchFolder & SearchFolder (sfd  )   '递归调用
SearchFolder = SearchFolder &  "</node >"
Next

'For each f In fd.Files 
'SearchFolder = SearchFolder &  FileLinkless(f)
'Next

End Function

 

 

Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
 
 truePath=Server.MapPath("/")
 
Set MyFolder=MyFileObject.GetFolder(truePath )
 xmlStr="  <node label=""(SiteRoot)"" nodeType=""folder""> "
xmlStr = xmlStr & SearchFolder (MyFolder )
  xmlStr = xmlStr &  "  </node > "
 'Response.Write   xmlStr
 tmpStr  =  "<%@ CODEPAGE=65001 %" & chr(62) & vbcrlf  
tmpStr = tmpStr &  "<% Response.CodePage=""65001"" %"& chr(62) & vbcrlf 
tmpStr = tmpStr &  "<% Response.Charset=""utf-8"" %"& chr(62) & vbcrlf 
tmpStr = tmpStr &  "<% Response.CacheControl = ""no-cache""" & vbcrlf 
tmpStr = tmpStr &  "Response.Buffer = True " & vbcrlf 
tmpStr = tmpStr &  "Response.ExpiresAbsolute = Now() - 1 " & vbcrlf 
tmpStr = tmpStr &  "Response.Expires = 0 " & vbcrlf 
tmpStr = tmpStr &  "Response.clear %"& chr(62)  & vbcrlf
tmpStr = tmpStr &  chr(60)  &"!--#include file=""CheckLogin.asp""--"& chr(62)  & vbcrlf

  ''''''''
  xmlStr = tmpStr &  xmlStr
 
 set TOOTFileObj=Server.CreateObject("ADODB.Stream")
     TOOTFileObj.Type=2
  TOOTFileObj.Charset   =   "utf-8"
  TOOTFileObj.Open
     TOOTFileObj.WriteText xmlStr,adWriteLine
  TOOTFileObj.SaveToFile server.MapPath("siteFolderTreeXML.asp"), 2
     TOOTFileObj.Close
 set TOOTFileObj = nothing
 
 if   (err.number>0) then
  response.Write("rtnMsg=Error!")
  err.clear
  else
  response.Write("rtnMsg=OK")
  end if 
 
%>
 

 

 

==========================================================

uploadfile.aspx 文件内容，这是一个ASPX文件，用于上传文件

 

 

<%@ Page Language="C#" validaterequest="false" %>
<%@ import Namespace="System" %>
<script runat="server">
protected void page_load(Object Sender, EventArgs e){
long limit = 1024 * 1024*50;
try
{
HttpFileCollection uploadedFiles = Request.Files;
 
string saveToFolder = "/productPic";
       saveToFolder = Request.QueryString["TOOTPath"];
string Path = Server.MapPath(saveToFolder);
HttpPostedFile F = uploadedFiles[0];
if(uploadedFiles[0] != null && F.ContentLength > 0){
if (F.ContentLength > limit)
{
Response.Write( "okMsg=-2&file=File is to big");
throw new Exception();
return;
}
string fileName = F.FileName.ToLower();
string newName = fileName.Substring(fileName.LastIndexOf("//") + 1);
string extension = newName.Substring(newName.LastIndexOf(".") + 1);
extension = extension.ToLower();
//if (extension =="" ){
//Response.Write( "okMsg=-1&file=Error&ext=Invalid");
//}else{
F.SaveAs(Path + "//" + newName);
Response.Write( "okMsg=1&file=" + newName + "&ext=" + extension);
//}
}
}catch (Exception)
{
Response.Write( "okMsg=0&file=Unknown Exception");
throw new Exception();
return;
}
}
</script>
 

=================================================

 

rtnOneFolderFileXML.asp 文件内容，返回单个文件夹的文件信息

 

<%@ CODEPAGE=65001 %>
<% Response.CodePage="65001"%>
<% Response.Charset="utf-8" %>

 <%
 Response.CacheControl = "no-cache"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.clear
%>
 <!--#include file="CheckLogin.asp"-->
<%
dim xmlStr
dim folderPath
folderPath = trim(request("TOOTPath"))
if folderPath = "" then folderPath="/"

Function FileLink( f )      '''''''''' more detail.........
FileLink = "<node label=""" & server.URLEncode(f.Name) & """  "
FileLink = FileLink & "fSize=""" & f.Size & """ "
FileLink = FileLink & "fType=""" & server.URLEncode(f.Type) & """ "
FileLink = FileLink & "fLastModified=""" &  f.DateLastModified & """ />"
End Function
 

Function SearchFolder( fd ) 
For each f In fd.Files 
SearchFolder = SearchFolder &  FileLink(f) 
Next
End Function

 

 

Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
 
 truePath=Server.MapPath( folderPath)
 
Set MyFolder=MyFileObject.GetFolder(truePath )
  xmlStr="<node>"
xmlStr = xmlStr & SearchFolder (MyFolder )
  xmlStr = xmlStr &  "</node >"
 Response.Write  xmlStr
%>

 

 

 

====================================================

 

getWebsiteUsedSpace.asp 文件内容： 获取所有文件大小总和

 
 <%@ CODEPAGE=65001 %>
<% Response.CodePage="65001"%>
<% Response.Charset="utf-8" %>

<%
 Response.CacheControl = "no-cache"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.clear
%>
 <!--#include file="CheckLogin.asp"-->
 <%
 Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
 Set MyDrive=MyFileObject.GetFolder(server.MapPath("/"))
 Response.Write("usedSpace="&MyDrive.Size)
%>
 

 

 

=========================================

 

 

因为无法上传源文件压缩包，所以有兴趣的朋友可发邮件向我索取 flash源文件 和 asp源文件，我的邮箱：toot2008@126.com