说明：代码如下:
0 then
GetBot=”google”
end if
if instr(1,s_agent,”msnbot”,1) >0 then
GetBot=”MSN”
end if
if instr(1,s_agent,”slurp”,1) >0 then
GetBot=”Ya <weixin_38518885> 上传 | 大小：40kb
说明：filename=dir(盘符:\*.*)
i = 0
do while filename =
array1 (i)=filename
i = i + 1
filename = dir(c:\*.*)
loop
VB好象也有比较好的方法，但是我不太清楚了
VBscr ipt
Set fs = CreateObject(scr ipting.FileSystemObject)
Set f = fs.GetFolder(盘符:\)
Set fc = f.Files
i = 0
For Each f <weixin_38637805> 上传 | 大小：17kb
说明：首先在服务器端先创建一个程序可以生成XML文件，以返回客户端，（getfolder.asp）
<%
‘written by Linzhang Chen ,2003-4-20
‘ 转载请注明出处和保留此版权信息
response.write &chr(13)
response.write &chr(13)
folders=request(folder)
if folders=/ then
folders=
end if
dim count
count=0
folders <weixin_38608378> 上传 | 大小：57kb
