📄 file.asp

📁 BS在线文件管理系统的源码和说明
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="function.asp"-->
<!--#include file="driver.asp"-->
<%
'--------------------------------------------
    if session("adminlogin")="" then
	response.redirect("login.asp")
    end if
'--------------------------------------------
  order = trim(request("type"))
  a = GetPathWith(request("a"))
  b = GetPathWith(request("b"))
'------------------检查权限是否正确--------------------------------
 if not session("admin") and a <> "" then
    '-------此处检查权限
    myPatha = Split(session("dir"), "|")
    For each subDir in myPatha
	If InStr(1, lcase(a), lcase(subDir), vbTextCompare) = 1 then
	    flaga = true
	end if
    Next
    If flaga = false then
	response.write("<script language=javascript>")
	response.write("alert(""你没有权限访问该目录！"");")
	response.write("history.go(-1);")
	response.write("</script>")
	response.write("<body bgcolor=#CCCCCC onLoad='setTimeout(window.close, 0)'>")
	response.end
    end if
 end if
'--------------------------------------------------------------------
 if not session("admin") and b <> "" then
    '-------此处检查权限
    myPathb = Split(session("dir"), "|")
    For each subDir in myPathb
	If InStr(1, lcase(b), lcase(subDir), vbTextCompare) = 1 then
	    flagb = true
	end if
    Next
    If flagb = false then
	response.write("<script language=javascript>")
	response.write("alert(""你没有权限访问该目录！"");")
	response.write("history.go(-1);")
	response.write("</script>")
	response.write("<body bgcolor=#CCCCCC onLoad='setTimeout(window.close, 0)'>")
	response.end
    end if
 end if
'----------------检测是否是有效路径
 If a <> "" then
 if not CheckCorrectPath(a) then
	response.write("<script language=javascript>")
	response.write("alert(""请求为非有效目录或包含非法字符！"");")
	response.write("history.go(-1);")
	response.write("</script>")
	response.write("<body bgcolor=#CCCCCC onLoad='setTimeout(window.close, 0)'>")
	response.end
 end if
 end if
'--------------
 If b <> "" then
 if not CheckCorrectPath(b) then
	response.write("<script language=javascript>")
	response.write("alert(""请求为非有效目录或包含非法字符！"");")
	response.write("history.go(-1);")
	response.write("</script>")
	response.write("<body bgcolor=#CCCCCC onLoad='setTimeout(window.close, 0)'>")
	response.end
 end if
 end if
'------------------------------------------------------------------
 If Right(b,1) <> "\" and b <> "" Then		'------确保是类f:\test\test\
  b = b & "\"
 End If
 If Right(a,1) = "\" and a <> "" Then		'------确保是类f:\test\test
  a = Mid(a,1,Len(a)-1)
 End If
'------------------------------------------------------------------

 If b = "" then
  Select Case order
   Case "copyfile"
   		title = "复制文件"
   Case "movefile"
   		title = "移动文件"
   Case "delfile"
		title = "删除文件"
		flag = true
   Case "renamefile"
   		title = "文件改名"
   Case "mdfile"
		title = "新建文件"
		flag = true
   Case "mdfolder"
   		title = "新建目录"
		flag = true
   Case "copyfolder"
   		title = "复制文件夹"
   Case "movefolder"
   		title = "移动文件夹"
   Case "renamefolder"
   		title = "目录改名"
   Case "delfolder"
   		title = "删除目录"
		flag = true
  End Select	
 Else 
  Select Case order
   Case "copyfile"
   		title = "复制文件"
		flag=true
   Case "movefile"
   		title = "移动文件"
		flag=true
   Case "copyfolder"
   		title = "复制文件夹"
		flag = true
   Case "movefolder"
   		title = "移动文件夹"
		flag = true
   Case "mdfolder"
   		title = "新建目录"
		flag = true
   Case "mdfile"
		title = "新建文件"
		flag = true
   Case "renamefolder"
   		title = "目录改名"
		flag = true
   Case "renamefile"
   		title = "文件改名"
		flag = true
  End Select
 End if		
%>
<%
if title="" then
title="运行出现错误！"
end if
%>
<html>
<head>
<title><%= title %>--<%=name%>--[By BrightStar]</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Meta Name="description" Content="BS在线文件管理系统">
<Meta Name="Keywords" Content="BS在线文件管理系统">
<meta http-equiv="pragma" content="no-cache">
<link href="styles.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#CCCCCC" onLoad="setTimeout(window.close, 600)">

<table height=80 width="280" border="0" align="center" cellpadding="1" cellspacing="0">
  <tr><td align="center" height=60 valign="middle"> 
<% if flag = true then 
	Select Case order
  		Case "copyfile"
			call copyFile(a, b)
  		Case "movefile"
			call moveFile(a, b) 
		Case "delfile"
			call delFile(a)
		Case "copyfolder"
			call copyFolder(a, b)
		Case "movefolder"
			call moveFolder(a, b)
		Case "delfolder"
			call delFolder(a)
		Case "mdfolder"
			call createFolder(a)
		Case "mdfile"
			call createFile(a,"")
		Case "renamefolder"
			b = Mid(b,1,Len(b)-1)
			call renameFolder(a,b)
		Case "renamefile"
			b = Mid(b,1,Len(b)-1)
			call renameFile(a,b)
	End Select
 else
	response.write("运行出现错误！")
 end if %>
  </td></tr>
  <tr>
    <td align=center height=20>
<input type="button" name="Button" value=" 确 定 " onclick="window.close();" class="button"></td>
  </tr>
</table>
<table width="280" border="0" align="center" cellpadding="1" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<table width="280" border="0" align="center" cellpadding="1" cellspacing="0">
  <tr>
    <td bgcolor="#ccaacc" height="1"></td>
  </tr>
  <tr>
    <td height="2"></td>
  </tr>
  <tr> 
    <td align="center"><%=mail%></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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