UC知道高手帮我解析一下这个ASP代码
来源：百度知道 编辑：UC知道 时间：2024/06/18 17:43:58
<%
FoldPath=Server.Mappath("./admin/down/")
set fso = Server.CreateObject("Scripting.FileSystemObject")
set fsoFolder=fso.GetFolder(FoldPath)
Set GetFiles =fsoFolder.files
dim i
i=1
For Each f in fsoFolder.files
file_name=f.Name
response.write "<a href='./admin/down/"&file_name&"' target=_blank>"
Response.Write "文件"&i&" "
Response.Write file_name&"<br />"
Response.Write "</a>"
i=i+1
Next
Set fsoFolder = Nothing
Set fso = Nothing
%>
本人是菜鸟
最好一句句注释
FoldPath=Server.Mappath("./admin/down/")
set fso = Server.CreateObject("Scripting.FileSystemObject")
set fsoFolder=fso.GetFolder(FoldPath)
Set GetFiles =fsoFolder.files
dim i
i=1
For Each f in fsoFolder.files
file_name=f.Name
response.write "<a href='./admin/down/"&file_name&"' target=_blank>"
Response.Write "文件"&i&" "
Response.Write file_name&"<br />"
Response.Write "</a>"
i=i+1
Next
Set fsoFolder = Nothing
Set fso = Nothing
%>
本人是菜鸟
最好一句句注释
<%
FoldPath=Server.Mappath("./admin/down/") '读取文件夹的路径
set fso = Server.CreateObject("Scripting.FileSystemObject") ‘用fso组建创建文件
set fsoFolder=fso.GetFolder(FoldPath)
Set GetFiles =fsoFolder.files
dim i
i=1
For Each f in fsoFolder.files ’循环读取文件夹下面的每一个文件
file_name=f.Name
response.write "<a href='./admin/down/"&file_name&"' 输出文件夹下面的文件名称
target=_blank>"
Response.Write "文件"&i&" "
Response.Write file_name&"<br />"
Response.Write "</a>"
i=i+1
Next
Set fsoFolder = Nothing ‘释放文件
Set fso = Nothing
%>
写文件