复制代码 代码如下:
%
'---------------------------------------------
'##############20060528新增加了对端口的支持
'作者：dxy QQ:461478385 Email:douxy001@gmail.com
'功能完善
%>
!--#include file="global.asp"-->
!--#include file="session.asp"-->
%
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
if request.form("action")="delall" then
Num=request.form("delFileName").count
for x=1 to Num
thedelall=Server.Mappath("../upload/"request.form("delFileName")(x))
if myfile.fileexists(thedelall) then
myfile.deletefile(thedelall)
end if
next
end if
page=cint(request.querystring("page"))
if Page=1 or Page="" then Page=1
PageSize=25
Domain=Request.ServerVariables("SERVER_NAME")
gFilePath=Request.ServerVariables("PATH_INFO")
serverport=request.ServerVariables("SERVER_PORT")
gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
CountN=len(gFilePath)
gFilePath=lcase(left(gFilePath,CountN-1))
gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
if serverport>"80" then
AllPath="http://"Domain":"serverportgfilepath
else
AllPath="http://"Domaingfilepath
end if
filepath="../upload/"
dim fso
set fso=server.CreateObject("scripting.filesystemobject")
set thefolder=fso.getfolder(server.MapPath(filepath))
for each ffiles in thefolder.files
filecounts=filecounts+1
filesizes=filesizes+ffiles.size
if filesizes=0 then
response.write "此文件夹下没有内容"
response.end
end if
next
%>
!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
html xmlns="http://www.w3.org/1999/xhtml">
head>
meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
title>dxy文件管理器/title>
link href="main.css" rel="stylesheet" type="text/css" />
script language="javascript" type="text/javascript">
function CheckAll()
{
for (var ic=0;icform1.delfilename.length;ic++)
{
var e = form1.delfilename[ic];
e.checked = !e.checked;
}
}
/script>
/head>
body style="margin:0px;">
table width="760" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#1F429E">
form action="" method="post" name="form1">tr>
td width="40" height="25" bgcolor="#FFFFFF">div align="center">序号/div>/td>
td width="493" height="25" bgcolor="#FFFFFF">div align="center">文件名/div>/td>
td width="100" bgcolor="#FFFFFF">div align="center">文件大小/div>/td>
td width="98" bgcolor="#FFFFFF">div align="center">选择/div>/td>
/tr>
%
i=0
for each ffiles in thefolder.files
i=i+1
if ccount>=pagesize then
exit for
elseif i>pagesize*(page-1) then
ccount=ccount+1
%>
tr>
td height="25" nowrap="nowrap" bgcolor="#FFFFFF" align="center">%=i%>/td>
td nowrap="nowrap" bgcolor="#FFFFFF">a href="%=allpath"upload/"ffiles.name%>" target="_blank">img src=%=allpath"upload/"ffiles.name%> border="0" />/a>/td>
td nowrap="nowrap" bgcolor="#FFFFFF">div align="center">%=ffiles.size%>[字节]/div>/td>
td nowrap="nowrap" bgcolor="#FFFFFF">
div align="center">
input name="delfilename" type="checkbox" id="delfilename" value="%=ffiles.name%>" />
/div>/td>/tr>
%
end if
next
%>
tr>
td height="30" colspan="4" bgcolor="#FFFFFF">div align="center">
共有文件font color="#FF0000" style="font-family:Georgia, 'Times New Roman', Times, serif">%=filecounts%>/font>个，占用空间font color="#FF0000" style="font-family:Georgia, 'Times New Roman', Times, serif">%=formatnumber((filesizes/1024),2)%>k/font>br />
input name="dxy_foldername" type="hidden" id="dxy_foldername" value="%=request("dxy_foldername")%>" />
input type="button" name="Submit2" value="全选/反选" onclick="CheckAll()" />
nbsp;nbsp;
input type="submit" name="Submit" value="确定删除所选的文件" />
/p>
input name="action" type="hidden" id="action" value="delall" />
/div>/td>
/tr>
/form>
/table>
table width="760" height="21" border="0" align="center" cellpadding="0" cellspacing="0">
tr>
td bgcolor="#FFFFFF">div align="center">
%
if filecounts mod pagesize=0 then
pagecount=filecounts/pagesize
else
pagecount=filecounts/pagesize+1
end if
if page>pagecount then
page=pagecount
else
page=page
end if
for ii=1 to PageCount
if page=ii then
response.write "a href=picManage.asp?Page="ii">[font color=red>"ii"/font>]/a> "
else
response.write "a href=picManage.asp?Page="ii">["ii"]/a> "
end if
next
%>
/div>/td>
/tr>
/table>
/body>
/html>
