📄 main.asp
字号:
<%
response.buffer=true
response.expires=0%>
<!--#include file="includes/setup.asp"-->
<head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="images/main.css" rel="stylesheet" type="text/css">
<%
num=request.querystring("num")
username=request.querystring("username")
path=request.querystring("path")
if session("xichen_num")<>num or session("xichen_username")<>username or session("xichen_num")="" or session("xichen_username")="" then
%>
<script>alert('您的操作非法，已被系统记录！');location.href='index.asp'</script>
<%
end if
on error resume next
if path=<"\"+username then path="\"+username
Set ds= fs.GetFolder(fullpath&HPDIRName&path)
%>
<script language=JavaScript src="rename.js"></script>
<%
Set kjs= fs.GetFolder(fullpath&HPDIRName&"\"&username)
select case session("xichen_usergroup")
case "1"
kj=10000000
case "2"
kj=20000000
case "3"
kj=40000000
case "4"
kj=80000000
case "5"
kj=100000000
end select
allsize=kj/1000000
usesize=kjs.size/1000000
Response.Write "用户：<font face='Arial, Helvetica, sans-serif'>"&username&"</font>，您的空间容量为<strong><font face='Arial, Helvetica, sans-serif' color='#FF0000'>"&allsize&"M</strong></font><br><hr width='100%' size='1'></hr><table width='400' border='0' cellspacing='4' cellpadding='0'><tr><td background='images/bar.gif'><table width='"&kjs.size/kj*100&"%' border='0' cellspacing='0' cellpadding='0' background='images/bar1.gif'><tr><td> </td></tr></table></td></tr><tr><td>您已经使用了：<font face='Arial, Helvetica, sans-serif' color='#0000FF'>"&usesize&"M</font>，占总空间的：<font face='Arial, Helvetica, sans-serif' color='#0000FF'>"&kjs.size/kj*100&"%</font></td></tr></table>"
response.write "<table width='100%' border='0' cellpadding='2' cellspacing='2'><td align='center'><img src=images/upload.gif title='上传文件' border=0 onclick=MM_showHideLayers('upload','','show') style='cursor:hand'></td></table>"
response.write "<table width='100%' border='0' cellpadding='2' cellspacing='2'><td ><b>注意</b>：网站首页默认文件为index.asp或index.htm</table>"
response.write "<table width='100%' border='0' bgcolor='#00cc00' cellpadding='2' cellspacing='2'>"
Response.Write "<table width='100%' border='1' cellpadding='3' bordercolor=#b4b4b4 bordercolordark=#ffffff cellspacing='0' cellpadding='0'>"
response.write "<tr height=22 ><td ><b>名 称</b></td><td ><b>大 小</b></td><td ><b>管 理</b></td></tr>"
response.write "<form action='del.asp?num="&num&"&username="&username&"&ty=files' method='post'>"
Set ofs = ds.files
js=0
For Each objFile in ofs
if js=0 then
js=1
Response.Write "<tr><td><input type='checkbox' name='del' value='"&path&"\"&objFile.Name&"'><a href="&HPDIRName&""&path&"/"&objFile.Name&" target=_blank title=点击直接浏览>"&objFile.Name &"</a></td><td>"& objFile.Size & "</td><td><a href='del.asp?num="&num&"&username="&username&"&ty="&"file"&"&path="&path&"\"&objFile.Name&"' onclick='if(!confirm(""确定要删除吗？删除后将无法恢复！""))return false;'>删除</a> <a href='#' onclick=""return rfname('"&objFile.Name&"')"">改名</a> <a href='#' onclick=""return editfile('"&objFile.Name&"')"">编辑</a></td>"
else
js=0
Response.Write "<tr><td><input type='checkbox' name='del' value='"&path&"\"&objFile.Name&"'><a href="&HPDIRName&""&path&"/"&objFile.Name&" target=_blank title=点击直接浏览>"&objFile.Name &"</td><td>"& objFile.Size & "</td><td><a href='del.asp?num="&num&"&username="&username&"&ty="&"file"&"&path="&path&"\"&objFile.Name&"' onclick='if(!confirm(""确定要删除吗？删除后将无法恢复！""))return false;'>删除</a> <a href='#' onclick=""return rfname('"&objFile.Name&"')"">改名</a> <a href='#' onclick=""return editfile('"&objFile.Name&"')"">编辑</a></td>"
end if
Next
response.write "<tr><td colspan='3'><input type='submit' class='input1' onclick='if(!confirm(""确定要删除所选文件吗？删除后将无法恢复！""))return false;' value='删除所选文件'> <input name='button' type='button' class='input1' value='刷新列表' onClick='document.location.reload()'></td></tr></form></table>"
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 9pt}
.tx { height: 16px; width: 30px; border-color: black black #000000; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 9pt; background-color: #eeeeee; color: #0000FF}
.bt { font-size: 9pt; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; height: 18px; width: 40px; background-color: #eeeeee; cursor: hand}
.tx1 { height: 20px; width: 30px; font-size: 9pt; border: 1px solid; border-color: black black #000000; color: #0000FF}
-->
</style>
<script language=JavaScript src="up.js"></script>
</head>
<body bgcolor="#FFFFFF" onLoad="MM_preloadImages('images/close.gif')" oncontextmenu="return false";return true">
<span id="upload" style="position:absolute; left: 100px; top: 50px; visibility: hidden;">
<table width="469" border="0" cellspacing="0" cellpadding="0" bgcolor="#666666">
<tr>
<td><table width="469" height="268" border="0" align="center" cellpadding="5" cellspacing="1">
<tr bgcolor="#CCCCCC">
<td width="687" height="24" align="left" valign="middle" bgcolor="#FFCC00" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="4%"><img src="images/announce.gif"></td>
<td width="14%">文件上传：</td>
<td width="79%"> <MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1 scrollDelay=20 direction=left width="360">
【本站空间已经禁止上传ASP数据库或程序，请保证您网站内容的合法性！】 </MARQUEE></td>
<td width="3%"><div align="right"><a href="#" onClick="MM_showHideLayers('upload','','hide')" onMouseOver="MM_swapImage('Image13','','images/close.gif',1)" onMouseOut="MM_swapImgRestore()"><img src="images/close2.gif" alt="关闭" name="Image13" width="12" height="12" border="0"></a></div></td>
</tr>
</table></td>
</tr>
<form name="form1" method="post" action="upfile.asp?num=<%=num%>&username=<%=username%>" enctype="multipart/form-data" >
<tr align="left" valign="middle">
<td height="92" align="left" bgcolor="#eeeeee" style="Alpha:40"> <li> 需要上传的个数
<input name="upcount" type="text" class="tx" value="1" maxlength="2">
<input type="hidden" name="act" value="upload">
<input type="button" name="Button" class="bt" onclick="setid();" value="设定">
每次最多10个</li>
<br>
<br> <li>上传到:<input type="text" name="filepath" class="tx" style="width:200" value="<%=path%>" readonly></li></td>
</tr>
<tr align="center" valign="middle">
<td height="122" align="left" bgcolor="#eeeeee" id="upid"> 文件1:
<input type="file" name="file1" style="width:400" class="tx1" value=""></td>
</tr>
<tr align="center" valign="middle" >
<td height="14" align="center" bgcolor="#eeeeee">
<input type="submit" name="Submit" value="提交" class="bt">
<input type="reset" name="Submit2" value="重执" class="bt"></td>
</form>
</table></td>
</tr>
</table>
</span>
<script language=JavaScript src="date.js"></script>
<script language="vbs">
tturl="rename.asp?num=<%=num%>&username=<%=username%>&ty=file&path=<%=path%>\"
top.left.location.href="left.asp?num=<%=num%>&username=<%=username%>&path=<%=path%>"
turl="htmledit.asp?file=<%=path%>\"
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -