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-09-22 03:56:54

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

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

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

ASP.NET显示渐变图片实现方法_实用技巧

先给大家来个最终效果: 实现效果,首先准备一张图片,高度为25pixel,宽度为1至3pixel渐变的图片.可以这里下载. 还要准备数据: Dictionary<int, int> Datas { get { Dictionary<int, int> d = new Dictionary<int, int>(); d.Add(1, 35); d.Add(2, 45); d.Add(3, 20); return d; } } ok,数据准备完了,在aspx里放三个Labe

asp.net保存远程图片的代码_实用技巧

注意:并没有实现CSS中的图片采集,且图片的正则还有待完善. 复制代码 代码如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using

Asp.net(C#)实现验证码功能代码_实用技巧

新建一个专门用来创建验证码图片的页面ValidateCode.aspx 它的后台cs文件代码如下: PageLoad 复制代码 代码如下: private void Page_Load(object sender, System.EventArgs e) { string checkCode = CreateRandomCode(4); Session["CheckCode"] = checkCode; CreateImage(checkCode); } 其中CreateRandomC

ASP常用的几个功能模块_应用技巧

1,经常写些系统,那么一般都是从登录程序开始,每接一个系统就写一次登录,好麻烦. 干脆直接做个登录验证函数吧,对我来说,大都情况可以胜任了:) [code]<%Function chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl)dim cn_name,cn_pwdcn_name=trim(request.form(""&requestname&""))cn_

asp 输出换行的详细说明[原创]_应用技巧

测试代码:输出简单的ul li1.asp 复制代码 代码如下: <% response.write "<ul>" response.write "<li></li>" response.write "<li>www.jb51.net</li>" response.write "</ul>" %> 结果是:右键源文件看到的是 复制代码 代码如下:

asp.net导出EXCEL的功能代码_实用技巧

复制代码 代码如下: //由gridviw导出为Excel public static void ToExcel(System.Web.UI.Control ctl) { HttpContext.Current.Response.AppendHeader("Content-Disposition", "attachment;filename=Excel.xls"); HttpContext.Current.Response.Charset = "UTF-8

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"