<p>读取文件中所有文件的总数,并且可根据需要修改文件名.<br />
代码如下:<br />
<%<br />
On Error Resume Next<br />
set fso = CreateObject("Scripting.FileSystemObject")<br />
Set uploadfolder = fso.GetFolder (server.mappath("img"))’img 为指定的文件夹<br />
set allfiles = uploadfolder.Files<br />
if isempty(request.querystring("act")) then<br />
i=1<br />
response.Write"<table width=""620"" border=""1"" cellspacing=""0"" cellpadding=""5"" align=""center"">"<br />
for each fileitem in allfiles<br />
sFileName = fileitem.Name<br />
response.Write"<tr>"<br />
response.Write"<td width=""50"" align=""center"">"&i&"</td>"<br />
response.Write"<td width=""450"">"&sFileName&"</td>"<br />
response.Write"<td width=""120"" align=""center""><a href=""javascript:;"" onClick=""javascript:window.open(’?act=edit&filename="&sFileName&"’,’newwindow’,’height=300, width=550, top=250, left=250, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=n o, status=no’)"">编辑文本文件</a></td>"<br />
response.Write"</tr>"<br />
i=i+1<br />
next<br />
response.Write"</table>"<br />
response.Write"文件总数:"&(i-1)<br />
end if<br />
if request("act")="Savefilename" then<br />
set f=fso.GetFile(server.MapPath("img/"&request("ofn")))<br />
f.Name =request("filestr")<br />
set f=nothing<br />
end if<br />
if request.querystring("act")="edit" then<br />
%><br />
<table align="center" border="1" width="100%" height="100%" cellspacing="0" cellpadding="3" bordercolor="#6595d6"><br />
<form name="form1" method="post" action="?act=Savefilename&ofn=<%=request("filename")%>"><br />
<tr><th>编辑文本文件</th><br />
</tr><br />
<tr><td>文件名：<br />
<textarea name="filestr" style="width:98%;height:100%;"><%=request("filename") %></textarea></td></tr><br />
<tr height="25"><td align="center"><br />
<input type="submit" value="保存"><input type="button" value="关闭" onClick="window.close();"><br />
</td></tr><br />
</form><br />
</table><br />
<%<br />
end if<br />
%></p>