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>

时间： 2024-10-25 09:04:06

asp+fso在线管理图片功能 原创的相关文章

asp+fso在线管理图片功能[原创]_应用技巧

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

Discuz! X2.5首次引入在线裁切图片功能

中介交易 http://www.aliyun.com/zixun/aggregation/6858.html">SEO诊断 淘宝客 云主机 技术大厅 来自Discuz! 官方的消息,目前正在测试的Discuz! X2.5新版本即将推出新门户系统,新增在线裁切图片功能.在线裁切图片可以简化编辑们PS的工作量,让复杂的事情简单化.一般来说,美观度高的网页不仅要有统一.柔和的色彩作铺垫,也要有图文并茂的内容作支持.很多网站编辑在编辑帖子时,总是想各种办法在帖子中加入新奇.漂亮.有创意的图片,以增

asp FSO在线压缩解压缩代码

asp FSO在线压缩解压缩代码 <% ''===================== ''FSO在线压缩解压缩 '自动生成HYTop.mdb ''===================== Sub AddToMdb(thePath)  On Error Resume Next  Dim Rs, Conn, Stream, ConnStr, adoCatalog, FsoX  Set FsoX = CreateObject("Scripting.FileSystemObject"

kindeditor-4.1.10 结合 Asp.Net MVC 添加图片功能

KindEditor是一套开源的HTML可视化编辑器,现在我要结合Asp.Net MVC4 上传图片功能,做相应的配置和修改, 其实网上也有人写过类似的文章了,我写出来是以防以后使用的时候出现这样的问题,所以收集起来做参考之用, 如果有人遇到这样的问题,可以和我一起交流,qq号在我博客上已经贴出来了. 下面就开始贴出我的源代码: js: var keditor; var koption = { allowFileManager: true, //是否可以浏览上传文件 allowUpload: t

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 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实现在线剪切图片代码

<%DIM LEFT1,top1 left1=request.Form("left") top1=request.Form("top") left1=left(left1,len(left1)-2) top1=left(top1,len(top1)-2) w=request.form("width") Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.RegKey =

ASP进阶之文章在线管理更新（八）

在线 ASP进阶之文章在线管理更新--管理者登陆及验证篇 作者:沙滩小子 前面已经介绍了文章管理系统的前台程序,其前台程序主要就是提供给大家浏览的页面,主要是文章浏览.文章搜索.转发EMAIL等程序,其实开始介绍的文章添加和保存实际上是本系统的后台程序,但是文章的显示的具体内容是和文章的搜集.添加.保存是分不开的,要不然何来文章显示?我们现在开始介绍的文章管理系统的后台程序将具有以下功能:管理员登陆验证.文章在线添加(前面已经介绍过).文章在线修改删除.管理员密码修改.文章栏目修改添加及删除等主

ASP进阶之文章在线管理更新（十一）

在线 ASP进阶之文章在线管理更新--文章修改篇 作者:沙滩小子 上一节我们讲了文章的在线删除的具体实现方法,在这里我将为大家介绍关于文章管理系统的在线修改.在本系统中,提供在线修改是一项必不可少的内容,因为当大家在网上更新文章的时候,总会碰上这样那样的问题,一个不小心就会造成添加的失误,有时候是内容不全,也有可能是文章的栏目原来添加的时候选错了,同时也就是这样那样的错误才显得这个程序的必要性. 文章的在线修改保存的程序其实和文章的添加和保存程序差不多,只是这里是对数据库进行更新,而文章添加则是