1
<%
2
dim objfolder
3dim objfso
4dim j
5
6set fso=server.CreateObject
7
8("scripting.filesystemobject")
9set objfolder=fso.GetFolder("c:/")
10if objfolder.size>0 then
11j=0
12for each objfile in objfolder.files
13j=j+1
14next
15if j>0 then Response.Write("有"&(j)&"个")
'response.write""&(j)&""
16else
17Response.Write("<b>没有</b>")
18end if
19
20
%>
21
<%
2
dim objfolder
3
dim objfso
4
dim j
5
6
set fso=server.CreateObject
7
8
("scripting.filesystemobject")
9
set objfolder=fso.GetFolder("c:/")
10
if objfolder.size>0 then
11
j=0
12
for each objfile in objfolder.files
13
j=j+1
14
next
15
if j>0 then Response.Write("有"&(j)&"个")
'response.write""&(j)&""
16
else
17
Response.Write("<b>没有</b>")
18
end if
19
20
%>
21
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
