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

复制代码代码如下:<% '--------------------------------------------- '##############20060528新增加了对端口的支持 '作者：dxy QQ:461478385 Email:douxy001@gmail.com '功能完善 %>   <% 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实现sql的备份与恢复

1、备份 <% SQL="backup database 数据库名 to disk='"&Server.MapPath("backup")&""&"backuptext.dat"&"'" set cnn=Server.createobject("adodb.connection") cnn.open "driver={SQL Server};Server=服务器名;ui>>>详细阅读

本文标题：asp+fso在线管理图片功能原创

地址：http://www.17bianji.com/kaifa2/ASP/33167.html

1/2 1

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

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