我也找到一个,希望可以实现删除功能,高手帮着改改!
<% @Language = "VBScript" %>
<% Response.buffer = true %>
<% set fso=server.createobject("scripting.filesystemobject")
toldir=server.mappath(".")
thisdir=server.mappath("./images/")
set d=fso.getfolder(toldir)
Set fdir=fso.GetFolder(thisdir)
tolsize=d.size
%>
<%
sub delfiles
for each ho in request.form("files")
fso.DeleteFile""&Server.MapPath("./images/"&ho&"")&""
next
error2("已经成功删除所选的文件!")
end sub
%>
<p>
<%
sub files
pagesetup=10 '设定每页的显示数量
count=fdir.Files.count
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
end sub
%>
共有 <font color="FF0000"><b><%=fdir.Files.count%></b></font> 个文件 </p>
<form method=post name=form action="delfiles">
<table width=600 cellpadding=2 cellspacing=2>
<tr class=a1 ><td width=50 align="center"><input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></td><td width=200>名称</td>
<td width=50 align=center>
大小</td><td width=100 align="center">类型</td><td width=200 align="center">
修改时间</td></tr></table>
<%
pagesize=20
page=request.querystring("page")
if page="" or not isnumeric(page) then
page=1
else
page=int(page)
end if
filenum=fdir.Files.count
pagenum=int(filenum/pagesize)
if filenum mod pagesize>0 then
pagenum=pagenum+1
end if
if page> pagenum then
page=1
end if
i=0
For each thing in fdir.Files
i=i+1
if i>(page-1)*pagesize and i<=page*pagesize then
elseif i>page*pagesize then
exit for
end if
Next
%>
<table width=600 cellpadding=2 cellspacing=2>
<tr><td align="center">
<INPUT type=submit value=" 删 除 " name=Submit>
</td><td align="center">
<%
if page>1 then
response.write "<a href=?menu=files&page=1>首页</a> <a href=?menu=files&page="& page-1 &">上一页</a> "
else
response.write "首页 上一页 "
end if
if page<i/pagesize then
response.write "<a href=?menu=files&page="& page+1 &">下一页</a> <a href=?menu=files&page="& pagenum &">尾页</a>"
else
response.write "下一页 尾页"
end if
Sub ShowJPGFile(SpecialFolder)
dim fso,objfolder,FolderName
FolderName=server.MapPath(SpecialFolder)
set fso=server.createobject("scripting.filesystemobject")
if fso.FolderExists(FolderName)=false then
set fso=nothing
else
set objfolder=fso.GetFolder(FolderName)
for each objfile in objfolder.files
if Instr(Lcase(objfile.name),".jpg")>0 then Response.Write(objfile.name)&"<br>"
next
set objfolder=nothing
set fso=nothing
end if
End Sub
sub DeleteMemberPhoto(PhotoPath)
dim fso,objfolder,objfile
MemberFolderName=server.MapPath(PhotoPath)
set fso=server.createobject("scripting.filesystemobject")
if fso.FolderExists(MemberFolderName)=false then
set fso=nothing
else
set objfolder=fso.GetFolder(MemberFolderName)
for each objfile in objfolder.files
if Instr(Lcase(objfile.name),".jpg")>0 then Response.Write(objfile.name)
next
set objfolder=nothing
set fso=nothing
end if
end sub