file.asp

ZD-BS是一个基于asp+access的个人blog系统 程序特点: 1.数据结构合理

<!--#include file="admin_global.asp"-->
<!--#include file="admin_common.asp"-->

<%doit();%>

<script language="JScript" runat="server">

function fileList(){
	var strErr="";
	var arrQS=func.getInput(0);
	admin_top("鏂囦欢鍒楄〃",6,2);
	var strFolder=(arrQS["path"]?arrQS["path"]+"/":"");
	var strPath=Server.MapPath("../"+zd_set["uploadFolder"]+strFolder);
	var strURL=zd_set["blogURL"]+zd_set["uploadFolder"]+strFolder;
	var fso=Server.CreateObject("Scripting.FileSystemObject");
	var arrFile=null,arrFolder=null;
	if(fso.FolderExists(strPath)){
		var folder=fso.GetFolder(strPath);
		var files=folder.Files;
		var folders=folder.SubFolders;
		var eFiles=new Enumerator(files);
		var eFolders=new Enumerator(folders);
		if(files.Count>0){
			arrFile=new Array();
			for(var i=0;!eFiles.atEnd();eFiles.moveNext(),i++){
				var objFile=eFiles.item()
				arrFile[i]={
					"name":objFile.Name,
					"size":(Number(objFile.Size)/1024)+" K"
				}
			}
		}
		if(folders.Count>0){
			arrFolder=new Array();
			for(var i=0;!eFolders.atEnd();eFolders.moveNext(),i++){
				var objFolder=eFolders.item()
				arrFolder[i]={
					"name":objFolder.Name,
					"size":(Number(objFolder.Size)/1024)+" K"
				}
			}
		}
	}
	delete fso;
	admin_fileList(arrQS["path"]?arrQS["path"]:"",strURL,arrFolder,arrFile);
	admin_bottom();
}

function fileDelete(){
	var strErr="";
	var arrQS=func.getInput(0);
	var arrF=func.getInput(1);
	admin_top("鍒犻櫎鏂囦欢",6,2);
	var strPath=arrQS["path"]?arrQS["path"]:"";
	var strFileName=arrQS["name"]?arrQS["name"]:"";
	var strFilePath=Server.MapPath("../"+zd_set["uploadFolder"]+(strPath==""?"":strPath+"/")+strFileName);
	var fso=Server.CreateObject("Scripting.FileSystemObject");
	if(!fso.FileExists(strFilePath)){
		strErr+="<li>璇ユ枃浠朵笉瀛樺湪</li>";
	}
	if(strErr!=""){
		admin_errorBox(strErr,"file.asp");
	}else{
		if(arrF["formPost"]!="1"){
			admin_checkBox("鎮ㄧ‘瀹氳