📄 admins_fso.asp

📁 打开目录ads文件夹找到top_ads.js文件用记事本打开后就可以看到: -------------------------------------- var head_ads_tx
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
  <td bgcolor="#EDEDED" height="1" id="a11"></td>
 </tr>
 <tr>
  <td><table cellpadding=3 cellspac=0 class=fonts><tr><td>
	   <textarea id="FileAll" name="FileAll" cols="100" rows="20" style="word-break: break-all; width: 700px; height: 250px;""><%=FileAll%></textarea>
</td><tr><td height=0></td></tr><tr><td>
	   <input type="submit" name="Submit" value=" 保存文件 ">
	   <input type="reset" name="Submit2" value=" 撤消修改 ">
	<input type="button" name="Submit3" value=" 关闭窗口 " onClick="window.close()">
	</td></tr></table><br>
   </td>
 </tr>
</table>
   </form>
</body>
</html>
<%	
	End If
	Set Fso = nothing
End Sub

'****************************************
'函数定义部分结束
'****************************************
%>
<%	Dim Fso,FsoFile,FileType,FileSize,FileTime,Path,FsoFileSize,DirFolder,FolderName,FolderSize,FolderTime,DirFiles,FileName
	Dim Dir
	action=Trim(Request.QueryString("action"))
	Set Fso=Server.CreateObject("Scripting.FileSystemObject")
	IsErr
	If action = "Del" then
		Call DelAll
	ElseIf action = "NewFile" then
		Call NewFile
	ElseIf action = "NewFolder" then
		Call NewFolder
	ElseIf action = "Rname" then
		Call Rname
	ElseIf action = "Edit" then
		Call Edit
	ElseIf action = "Save" then
		Call Edit
	Else
		Dir=Trim(Request.QueryString("Dir"))
		Path = Server.MapPath(".") & Dir
		Set FsoFile = Fso.GetFolder(Server.MapPath("."))
			FsoFileSize = FsoFile.size	'空间大小统计
		Set	FsoFile = nothing
		Set	FsoFile = Fso.GetFolder(Path)
%>
<html>
<head>
<title>FSO在线编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% Call Css %>
<script language=javascript>
function Checked()
{
	var j = 0
	for(i=0;i < document.form.elements.length;i++){
		if(document.form.elements[i].name == "FileId" || document.form.elements[i].name == "FolderId"){
			if(document.form.elements[i].checked){
				j++;
			}
		}
	}
	return j;
}
function CheckAll1()
{
	for(i=0;i<document.form.elements.length;i++)
	{
		if(document.form.elements[i].checked){
			document.form.elements[i].checked=false;
			document.form.CheckAll.checked=false;
		}
		else{
			document.form.elements[i].checked = true;
			document.form.CheckAll.checked = true;
		}
	}
}
function DelAll()
{
	if(Checked()  <= 0){
		alert("您必须选择其中的一个文件或文件夹");
	}	
	else{
		if(confirm("确定要删除选择的文件或文件夹么？\n此操作不可以恢复！")){
			form.action="?action=Del";
			form.submit();
		}
	}
}
function Edit()
{
	if(Checked() == 0){
		alert("您必须选择其中的一个文件");
	}
	else{
		if(Checked() != 1){
			alert("只能选择一个文件（文本文件）");
		}
		else{
			for(i=0;i < document.form.elements.length;i++){
			if(document.form.elements[i].name == "FileId" && document.form.elements[i].checked){
				form.action="?action=Edit";
				form.target="self";
				form.submit();
				break;
			}
			else if(document.form.elements[i].name == "FolderId" && document.form.elements[i].checked){
				alert("不能编辑文件夹")
				break;
			}
			}
		}
	}
}
function Rname()
{
	if(Checked() == 0){
		alert("您必须选择一个文件或文件夹");
	}
	else{
		if(Checked() != 1){
			alert("只能选择一个文件或一个文件夹");
		}
		else{
			for(i=0;i < document.form.elements.length;i++){
				if(document.form.elements[i].name == "FolderId" && document.form.elements[i].checked){
					var j = prompt("请输入新文件夹名",document.form.elements[i].value)
					break;
				}
				else if(document.form.elements[i].name == "FileId" && document.form.elements[i].checked){
					var j = prompt("请输入新文件名",document.form.elements[i].value)
					break;
				}
			}
			if(j != "" && j != null){
				if(IsStr(j) == j.length){
					form.action="?action=Rname&NewName=" + j;
                                                      form.target="_self";
					form.submit();
				}
				else{
					alert("新名称不符合标准，只能是字母、数字、点和下划线的组合,\n不能含有汉字、空格和其他符号");
				}
			}
		}
	}
}
function IsStr(w)
{
	var str = "abcdefghijklmnopqrstuvwxyz_1234567890."
	 w = w.toLowerCase();
	var j = 0;
	for(i=0;i < w.length;i++){
		if(str.indexOf(w.substr(i,1)) != -1){
			j++;
		}
	}
	return j;
}
function NewFile(form,i)
{
	if(i == 1){
		if(form.NewFolderName.value == ""){
			alert("文件夹名不能为空");
		}
		else{
			if(IsStr(form.NewFolderName.value) == form.NewFolderName.value.length){
				form.action="?action=NewFolder";
				form.submit();
			}
			else{
				alert("文件夹名不符合标准，只能是字母、数字、点和下划线的组合,\n不能含有汉字、空格和其他符号");
			}
		}
	}
	else{
		if(form.NewFileName.value == ""){
			alert("文件名不能为空");
		}
		else{
			if(IsStr(form.NewFileName.value) == form.NewFileName.value.length){
				form.action="?action=NewFile";
				form.submit();
			}
			else{
				alert("文件名不符合标准，只能是字母、数字、点和下划线的组合,\n不能含有汉字、空格和其他符号");
			}
		}
	}
}
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" class="fonts">
 <tr> 
  <td>　</td>
 </tr>
 <tr> 
  <td>系统主目录：<a href=?action=Open&Dir= title=返回到系统主目录><font color=FF6600><b><%=Server.MapPath(".")%></b></font></a>&nbsp;&nbsp;&nbsp;空间占用：<%=GetFileSize(FsoFileSize)%></td>
 </tr>
 <tr> 
  <td bgcolor="#EDEDED" height="1"></td>
 </tr>
 <tr> 
  <td height="20" valign=bottom>&nbsp;<a href=?action=Open&Dir=<%=UpDir(Dir)%>><img src="<%=ImageFolder%>/updir.gif" width="15" height="13" border=0 alt="返回到上一级目录"></a>&nbsp;&nbsp;当前目录：<%=Server.MapPath(".") & Dir %><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;占用空间：<%=GetFileSize(FsoFile.size)%>&nbsp;&nbsp;其中包含&nbsp;<font color=red><%=FsoFile.SubFolders.count%></font>&nbsp;个文件夹；&nbsp;<font color=red><%=FsoFile.Files.count%></font>&nbsp;个文件</td>
 </tr>
 <tr> 
  <td bgcolor="#EDEDED" height="1"></td>
 </tr>
 <form name="form1" method="post">
  <tr> 
   <td height="40" valign="middle">&nbsp;&nbsp;新建文件夹：
	<input type="text" name="NewFolderName" size="15" title=在当前目录下新建文件夹 maxlength="50">
	&nbsp; 
	<input type="button" name="Submit4" value="新建文件夹" style="cursor:hand" title=新建文件夹 onClick="NewFile(this.form,1)">
	<font color="990033"> 
	<input type="hidden" name="ThisDir" value="<%=Dir%>">
	</font>
	&nbsp;&nbsp;&nbsp;&nbsp;新建文件：
	<input type="text" name="NewFileName" size="15" title=在当前目录下新建文件 maxlength="50">
	&nbsp; 
	<input type="button" name="Submit5" value="新建文件" style="cursor:hand" title=新建文件 onClick="NewFile(this.form,2)">
   </td>
  </tr>
 </form>
 <tr> 
  <td valign="top"> 
   <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EDEDED" class="fonts">
	<form name="form" method="post" >
	 <tr bgcolor="F4F4F4"> 
	  <Td width="6%" align="center">　</td>
	  <td width="39%"><font color="990033">&nbsp;文件/文件夹名 </font></td>
	  <td width="13%" align="center"><font color="990033">类型</font></td>
	  <td width="15%" align="center"><font color="990033">文件大小</font></td>
	  <td width="27%" align="center"><font color="990033">最后修改时间</font></td>
	 </tr>
	 <%	For Each DirFolder in FsoFile.SubFolders
		FolderName=DirFolder.name
		FolderSize=GetFileSize(DirFolder.size)
		FolderTime=DirFolder.DateLastModified
%>
	 <tr bgcolor="#FFFFFF"> 
	  <td width="6%" align="center"> 
	   <input type="checkbox" name="FolderId" value="<%=FolderName%>">
	  </td>
	  <td width="39%">&nbsp;<a href=?action=Open&Dir=<%=Dir%>\<%=FolderName%>><%=FolderName%></a></td>
	  <td width="13%" align="center"><img src="<%=ImageFolder%>/ClosedFolder.gif" width="16" height="16" alt="文件夹"></td>
	  <td width="15%" align="center"><%=FolderSize%></td>
	  <td width="27%" align="center"><%=FolderTime%></td>
	 </tr>
	 <%	Next %>
	 <%	For Each DirFiles in FsoFile.Files
		FileName=DirFiles.name
		FileType=GetFileIcon(FileName)
		FileSize=GetFileSize(DirFiles.size)
		FileTime=DirFiles.DateLastModified
%>
	 <tr bgcolor="#FFFFFF"> 
	  <td width="6%" align="center"> 
	   <input type="checkbox" name="FileId" value="<%=FileName%>">
	  </td>
	  <td width="39%">&nbsp;<a href=<%=FileUrl(FileName,Dir)%> target=_blank><%=FileName%></a></td>
	  <td width="13%" align="center"><Img src=<%=ImageFolder%>/<%=FileType%> alt="文件"></td>
	  <td width="15%" align="center"><%=FileSize%></td>
	  <td width="27%" align="center"><%=FileTime%></td>
	 </tr>
	 <%	Next %>
	 <tr bgcolor="#FFFFFF"> 
	  <td width="6%" align="center"> 
	   <input type="checkbox" name="CheckAll" value="checkbox" onClick="CheckAll1()" title=全部选择 style="cursor:hand">
	  </td>
	  <td colspan="4" height="30">&nbsp; 
	   <input type="button" name="Submit" value=" 编 辑 " style="cursor:hand" onClick="Edit()"  title=编辑>
	   <input type="button" name="Submit2" value=" 删 除 " style="cursor:hand" onClick="DelAll()"  title=删除>
	   <input type="button" name="Submit3" value=" 重命名 " style="cursor:hand" onClick="Rname()"  title=重命名>
	   <font color="990033"> 
	   <input type="hidden" name="ThisDir" value="<%=Dir%>">
	   </font> </td>
	 </tr>
	</form>
   </table>
  </td>
 </tr>
 <tr> 
  <td>　</td>
 </tr>
 <tr> 
  <td bgcolor="#EDEDED" height="1"></td>
 </tr>
 <tr> 
  <td height="20" align="center">&nbsp;&nbsp;版权所有&<a href="http://www.zn520.com/" target=_blank>『零星部落』</a>&nbsp;&nbsp;程序运行时间：<font color=red><%=FormatNumber((Timer()-StatrTime)*1000,3) %></font>&nbsp;毫秒</td>
 </tr>
 <tr>
  <td bgcolor="#EDEDED" height="1"></td>
 </tr>
 <tr>
  <td>　</td>
 </tr>
</table>
</body>
</html>

<%	
    End If
	Set FsoFile = nothing
	Set Fso = nothing
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -