ÔÚÏß²éÕÒ/ÕýÔòÌæ»»ÎļþÖÐÎı¾µÄÍøÒ³½Ó¿Ú(asp)

<%
response.Charset = "gb2312"
dim passText
passText = "xxyyaabb" '¼ìÑéÓõÄÃÜÂë×Ö·û´®
sub mygetfolder(ByVal path)
     
      dim fp,fd
     
      On Error Resume Next      
      set fp = fso.getFolder(path)
     
      if Err.Number > 0 then
         response.write(path & " <font color=red>»ñȡĿ¼¾ä±úʧ°Ü.ÖÕÖ¹Ò³Ãæ:" & Err.description & "</font><br>")
         response.end
      else
        response.write(path & " »ñȡĿ¼¾ä±ú³É¹¦!<br>")
      end if
     
      On Error GoTo 0    
   
      if fp.name =  request("bkFolder") then
        response.write(path & " ±¸·ÝÎļþ¼ÐÖÐÎļþ²»±Ø´¦Àí<br>")
        exit sub
      end if
           
      response.write(path & "\ ÕýÔÚ´¦Àí...<br>")
      dim newPath, newType, EName
      newPath = ""
      newType = ""
     
      for each fd in fp.SubFolders
          newPath = newPath & ",""" & replace(path, "\", "\\") & "\\" & fd.Name & """"
      next
     
      if newPath <> "" then