asp+fso在线管理图片功能 原创

代码如下:

<%
'---------------------------------------------
'##############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>

赞 (0)

相关推荐

  • asp+fso在线管理图片功能 原创

    复制代码 代码如下: <% '--------------------------------------------- '##############20060528新增加了对端口的支持 '作者:dxy QQ:461478385 Email:douxy001@gmail.com '功能完善 %> <!--#include file="global.asp"--> <!--#include file="session.asp"-->

  • asp javascript在线管理

    复制代码 代码如下: <%@LANGUAGE="JScript" CODEPAGE="936"%><%var sSelfPath = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")(1)).toLowerCase();var sUrl = Request.ServerVariables("URL")(1);var sAction = Request(

  • asp.net实现word文档在线预览功能的方法

    asp.net实现word文档在线预览功能的方法

    本文实例讲述了asp.net实现word文档在线预览功能的方法.分享给大家供大家参考.具体实现方法如下: 实现方式:office文档转html,再在浏览器里面在线浏览 1.首先引入com组件中office库,然后在程序集扩展中引入word的dll 2.将Microsoft.Office.Interop.Word的嵌入互操作类型设置为 false,如图 3.主要代码: 复制代码 代码如下: using System; using System.Collections.Generic; using

  • ASP.NET实现word文档在线预览功能代码

    于是考虑在每个文件上传时为其生存一份HTMl文件,这样就能实现在线预览功能.主要代码如下 复制代码 代码如下: using System; using System.Collections; using System.Configuration; using System.Data; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.HtmlControls; using S

  • ASP.NET 在线文件管理

    ASP.NET 在线文件管理

    把它传到虚拟空间中,就可以很方便地把服务的各个目录和内容都遍历出来,或者选择下载.嘿嘿,大家不要利用它做坏事哦.这个作为大家学习ASP.NET 文件操作用的. WebFile1.0 系统介绍: 1.本系统由ASP.NET 3.5编写,在线管理文件包括整个服务器文件遍历,下载!!!! 2.本系统代码完全由手动编写,不产生任何一丁点的HTML代码冗余. 因为是第一版,许多功能都有待完善,不过,请各位把使用后的情况反馈一下,谢谢啦! 使用说明: 1.把WebFile.RAR解压,把Bin里面的两个链接

  • 微信小程序如何实现在线客服功能

    微信小程序如何实现在线客服功能

    其实只需要解决2个问题 第一步,在微信小程序中添加联系在线客服按钮 第二步,接入在线客服功能,设置[自动/人工/转人工]回复等 一.添加小程序客服按钮 ① 在小程序中添加客服按钮功能,点此参考官方文档(开发者通过一行代码,实现客服功能.) ② 常见的客服按钮形式有2种: 1.初始样式的客服消息按钮(多以文字"联系客服"形式出现) 2.自定义图片样式的客服消息按钮(客服消息按钮与整体页面更和谐) 无论使用哪一种方法,用户都可以通过点击客服消息按钮,进入聊天界面,与你的小程序客服直接沟通.

  • JS实现可编辑的后台管理菜单功能【附demo源码下载】

    JS实现可编辑的后台管理菜单功能【附demo源码下载】

    本文实例讲述了JS实现可编辑的后台管理菜单功能.分享给大家供大家参考,具体如下: <!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"> <he

  • Laravel使用PHPQRCODE实现生成带有LOGO的二维码图片功能示例

    本文实例讲述了Laravel使用PHPQRCODE实现生成带有LOGO的二维码图片功能.分享给大家供大家参考,具体如下: /** * 利用phpqrcode来实现生成带有logo的二维码图片 */ public function getQrCode(Request $request){ $type = $request->input('type');//传递的类型 ios | android require_once(dirname(__FILE__) . '/phpqrcode/' . 'ph

  • Android自定义view实现电影票在线选座功能

    Android自定义view实现电影票在线选座功能

    先看看电影票在线选座功能实现的效果图: 界面比较粗糙,主要看原理. 这个界面主要包括以下几部分 1.座位 2.左边的排数 3.左上方的缩略图 4.缩略图中的红色区域 5.手指移动时跟随移动 6.两个手指缩放时跟随缩放 主要技术点 1.矩阵Matrix 2.GestureDetector与ScaleGestureDetector 3.Bitmap的一下基本用法 4.这里只需要重写view的onDraw就可实现全部功能 可以发现这个其实没什么难度,主要就是一些位置的计算. 为了能便于理解首先把要用到

  • Ubuntu下使用Python实现游戏制作中的切分图片功能

    Ubuntu下使用Python实现游戏制作中的切分图片功能

    本文实例讲述了Ubuntu下使用Python实现游戏制作中的切分图片功能.分享给大家供大家参考,具体如下: why 拿到一个人物行走的素材,要用TexturePacker打包.TexturePacker打包后,助于游戏加载图片效率,且比较好管理. 目前得到一张整图,无法直接导入到TexturePacker. what 切片:使用切片将源图像分成许多的功能区域. how 1 ubuntu下图片处理软件 GIMP: 画好参考线后, 点击 滤镜->WEB ->切片 2 python + PIL  (

随机推荐