有五个文件,
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