fso一个非常奇怪的问题...
部门经常有些什么文件要公布,比如一些doc、excel等等,但是不想每次都重新修改文件列表页,所以想了个办法——建一个站点文件夹,将这些文件全部丢到此夹中,文件名即是文章的标题,然后列表页用FSO将这些文件名列出来,加上文件的链接,这时奇怪的问题出现了:右键“目标另存为”有些文件能下载,有些就提示找不到,左键点这些链接提示找不到网页???!但是如果用下载工具(Internet Download Manager)就可以下,是否链接含中文的话会有找不到的问题?
代码如下(有兴趣可以自己试):
<%
'设置绝对路经
Dim path
path="D:\wwwroot\file\"
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FolderExists(folderspec)=false then
fs.CreateFolder(folderspec)
end if
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
response.write "<table>"
For Each cc in fc
s = cc.name
response.write "<tr>"
response.write "<td>"
response.write ("<a href='/file/"&s&"' target='_blank'>"&cc.name &"</a><br> "&FormatDateTime(cc.DateLastModified,1))
response.write "</td>"
response.write "</tr>"
Next
response.write "</table>"
set fc=nothing
set f=nothing
set fs=nothing
End Sub
%>
<%
response.write "部门的的文件表格<hr height=1>"
showFolderList(path)
%>