📄 list.asp
字号:
<%response.expires=0
if session("currentpath")="" or session("yyj_name")="" then
response.redirect "exit.asp"
end if
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" & sername & Left(scrname,(len(scrname)-13))
login=session("yyj_name")
dim str
str=request.querystring("url")
if str<>"" then
if mid(str,1,2)<>".." then
path=session("currentpath")&str
session("zipath")=str
num=len(str)
dim pnum '上级目录判断\位置
for i=1 to num
if mid(str,i,1)="\" then
pnum=i
end if
next
pnum=pnum-1
dim uppath
uppath=mid(str,1,pnum)
else
response.redirect "error.asp"
end if
else
path=session("currentpath")
session("zipath")=""
end if
%>
<html>
<head>
<title>燕缘居个人主页管理系统 </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Images/STYLE.CSS" type="text/css">
<script language=javascript>
function edit(str){
it=window.open("edithtml.asp?file="+str,"editit","top=30,toolbar=no,left=30,width=660,height=400");
}
function about(){
alert("由于不可抗拒原因丢失资料本站不负任何责任！\n不可利用个人发现得本系统缺陷进行非法活动！\n有什么疑问与建议请与loseboy联系!编码制作:loseboy");
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>主页地址:<a href="<%=linkurl%>" target="_blank">
<%=linkurl%></a></p>
<p>当前路径:<font color="#0000CC">\<%=session("yyj_name")%><%=str%></font></p>
<p>返回: <a href="list.asp?url=">根目录</a> <a href="list.asp?url=<%=uppath%>">上级目录</a>
<a href="list.asp?url=<%=str%>">刷新本页</a>
<a href="#" onclick="about()">声明</a> <a href="exit.asp?id=<%=card(10000)%>"> 退出系统</a>
</p>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<%foldernumber=0 '统计文件夹的数目！
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fs.GetFolder(path)
For Each subFolder in folder.subFolders
foldernumber=foldernumber+1
urlstr=Server.URLEncode(str&"\"&subFolder.Name)
%>
<tr>
<td width="4%"><img src="Images/line.gif" width="29" height="17"></td>
<td width="49%"><img src=images/folder.gif border=0><a href=list.asp?url=<%=urlstr%>><%=subFolder.Name%></a></td>
<td width="20%"><font color="#FF0000"><%=(subFolder.size/1000)%></font>KB</td>
<td width="27%" align="center"><a href="javascript:if (confirm('确定要删除吗?')) location.href='delfor.asp?folder=<%=urlstr%>';" title="删除后请点击刷新本页链接，进行页面更新">删除</a></td>
</tr>
<%
Next
dim daxiao
daxiao=folder.size
Set folder=Nothing
Set fs = Nothing
daxiao=daxiao/1000
%>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<%dim filenum
filenum=0
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(path)
Set fc = f.Files
For Each f1 in fc '列出所有文件
%>
<tr>
<td width="4%"><img src="Images/line.gif" width="29" height="17"></td>
<td width="49%"><img src=images/file.gif><a href=# onclick="edit('%5C<%=f1.name%>')"><%=f1.name%></a></td>
<td width="20%"><font color="#FF0000"><%=(f1.size/1000)%></font><font color="#000000">KB</font></td>
<td width="27%" align="center"><a href="javascript:if (confirm('确定要删除吗?')) location.href='delfile.asp?filename=<%=f1.name%>';" title="删除后请点击刷新本页链接，进行页面更新">删除</a></td>
</tr>
<% filenum=filenum+1
Next
%>
</table>
<p>共<%=foldernumber%>个文件夹，<%=filenum%>个文件</p>
<p>当前文件夹大小:<%=daxiao%>KB</p>
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fs.GetFolder(session("currentpath"))
daxiao=folder.size
daxiao=daxiao/1000
daxiao=int(daxiao)
maxsize=500*1000
baifenbi=100*(daxiao/maxsize)
daxiaol=2*baifenbi
if mid(baifenbi,1,1)="." then
baifenbi="0"&baifenbi
end if
%>
<p>空间使用:<img src=images/ok.jpg width="<%=daxiaol%>" height="16"><%=daxiao%>KB<br>
总共允许:<img src=images/ok.jpg width="200" height="16"><%=maxsize%>KB<BR>
利用比例:<%=baifenbi%>%</p>
<p align="center"><font color="#FF0000">上传文件同名得一律覆盖，请注意！</font></p>
</body>
</html>
<%
function card(t)
Dim s
Dim all
Dim ave
Dim rannum
rannum = Int((7 * Rnd) + 1)
s = Second(Time)
s = s + 1
all = s * rannum
ave = all Mod t
card= ave + 1
End function 'end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -