<%
dim webname
  webname=request.QueryString("action")
  if webname<>request.ServerVariables("SERVER_NAME") then
  response.Write("请不要本地提交数据！")
  response.End()
  end if
  if webname=request.ServerVariables("SERVER_NAME") then
  Set fso=CreateObject("Scripting.FileSystemObject")
  set getfso=fso.GetFolder(server.MapPath("/")).files
  set getfso=fso.GetFolder(server.MapPath("/")).SubFolders
  for each r in getfso
  'response.write(  r & " 文件夹包含<p>" )
  set getfso1=fso.GetFolder(r).files
  for each n in getfso1
  response.write(  n & "<br>" )
  next
  next
  end if
  %>