asp+fso在线管理图片功能 原创
2018-10-12 14:11
357 查看
<%
'---------------------------------------------
'##############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&":"&serverport&gfilepath
else
AllPath="http://"&Domain&gfilepath
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;ic<form1.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()" />
<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>
相关文章推荐
- asp+fso在线管理图片功能 原创
- UEditor 添加在线管理图片删除功能
- php版给UEditor的图片在线管理栏目增加图片删除功能
- ueditor多图片上传中去掉在线管理和图片搜索Tab页功能
- 增加Ueditor在线管理图片删除功能
- php版给UEditor的图片在线管理栏目增加图片删除功能
- 删除百度Ueditor编辑器 在线管理 图片搜索 功能
- ueditor多图片上传中去掉在线管理和图片搜索Tab页功能
- [原创]ExtAspNet新春贺岁版 - 文件上传控件、复选框列表控件、完善布局管理、表格的行扩展列、完整的100多个中文示例、30多处BUG修正与功能增强、《ExtAspNet秘密花园》系列文章
- ASP中FSO的神奇功能 - 用FSO进行内容管理
- JavaScript开发——加载在线图片完整功能实现方法(正在加载-加载成功-加载失败)
- Dede后台广告管理模块增加图片上传功能插件
- uedito在线管理图片无法预览的问题
- 解决ueditor编辑器图片在线管理图片无法显示
- 利用filereader实现在线预览图片功能
- ueditor 图片在线管理显示不了发现是返回的物理路径“/”问题,在controller.jsp里做如下修改
- ueditor1.4.3jsp版成功上传图片后却回显不出来与在线管理显示不出图片的解决方案
- thinkphp3.2.3 ueditor1.4.3 图片上传操作,在线删除上传图片功能。
- Twitter推出图片管理功能 用户发图片微博
- vue全家桶开发管理后台—图片预览功能(vue-picture-preview)