Blog de ​​st0p

  Función de la GetList ()
	 Dim s_List, s_Url
	 s_List = ""
	 Dim oFSO, oUploadFolder, oUploadFiles, oUploadFile, sFileName
	 'Response.Write sCurrDir
	 'On Error Resume Next para la
	 Server . CreateObject ( "Scripting.FileSystemObject" ) Set oFSO = Server. CreateObject ("Scripting.FileSystemObject")	
	 oFSO. GetFolder ( Server . MapPath ( sCurrDir ) ) Establecer oUploadFolder = oFSO. GetFolder (Server. MapPath (sCurrDir)) 
	 'Atención sCurrDir las variables, podemos utilizar este valor
	 > 0 Then Si Err Número> 0 Then
		 s_List = ""
		 Salir de la función
	 End If

	 "" Then Si SDIR <> "" Entonces,
		 sDir, "/" ) > 1 Then Si InStrRev (SDIR, "/")> 1 entonces
			 sDir, InstrRev ( sDir, "/" ) - 1 ) s_Url = Izquierda (SDIR, InStrRev (SDIR, "/") - 1)
		 Más
			 s_Url = ""
		 End If

		 "<tr onclick='doRowClick(this)' onmouseover='doRowOver(this)' onmouseout='doRowOut(this)' isdir='true' path='" & s_Url & "'>" & _ s_List s_List = & "onclick='doRowClick(this)' <tr onmouseout='doRowOut(this)' onmouseover='doRowOver(this)' isdir='true' path='" y s_Url y "'>" & _
			 _ <td> <img border=0 src='../sysimage/file/parentfolder.gif'> El </ td> "& _
			 _ <td> .. </ td> "& _
			 _ "<td> </ Td>" & _
			 "</ Tr>
	 End If
	 'Response.Write SDIR & "!" Y S_List

	 OSubFolder Dim
	 oUploadFolder. SubFolders Para cada oSubFolder En oUploadFolder subcarpetas.
		 Los oUploadFolder.SubFolders Response.Write
		 "" Then Si SDIR = "" Then
			 s_Url = oSubFolder. Nombre
		 Más
			 "/" & oSubFolder. Name s_Url = SDIR & "/" & oSubFolder. Nombre
		 End If
		 "<tr onclick='doRowClick(this)' onmouseover='doRowOver(this)' onmouseout='doRowOut(this)' isdir='true' path='" & s_Url & "'>" & _ s_List s_List = & "onclick='doRowClick(this)' <tr onmouseout='doRowOut(this)' onmouseover='doRowOver(this)' isdir='true' path='" y s_Url y "'>" & _
			 _ <td> <img border=0 src='../sysimage/file/closedfolder.gif'> El </ td> "& _
			 oSubFolder. Name & "</td>" & _ "<td Nowrap>" y oSubFolder. Nombre & "</ td>" _ &
			 _ "<td> </ Td>" & _
			 "</ Tr>
	 Próximo
	 'Response.Write s_List

	 oUploadFolder. Files OUploadFiles juego = oUploadFolder Archivos.

	 oUploadFiles Para cada oUploadFile En oUploadFiles
		 'Response.Write oUploadFile.Name
		 sFileName = oUploadFile. Nombre
		 sFileName ) = True Then Si CheckValidExt (sFileName) = True Then 
		 "Esta línea estaba un poco deprimida, las pruebas de toda la extensión de archivo permitido, como no está permitido no puede ser una lista o lista no sólo el nombre del directorio y archivos de imagen
			 "" Then Si SDIR = "" Then
				 sFileName s_Url = sContentPath y sFileName
			 Más
				 sDir & "/" & sFileName s_Url = sContentPath y SDIR & "/" & sFileName
			 End If

			 "<tr onclick='doRowClick(this)' onmouseover='doRowOver(this)' onmouseout='doRowOut(this)' url='" & s_Url & "'>" & _ s_List s_List = & "onmouseover='doRowOver(this)' onclick='doRowClick(this)' <tr onmouseout='doRowOut(this)' url='" y s_Url y "'>" & _
					 FileName2Pic ( sFileName ) & "</td>" & _ "<td>" Y FileName2Pic (sFileName) & "</ td>" & _
					 sFileName & "</td>" & _ "<td Nowrap>" y sFileName & "</ td>" & _
					 GetSizeUnit ( oUploadFile. size ) & "</td>" & _ "<td Align=right>" y GetSizeUnit (tamaño oUploadFile.) & "</ td>" & _
					 "</ Tr>
		 End If
	 Próximo
	 Nothing Establecer oUploadFolder = Nothing
	 Nothing Establecer oUploadFiles = Nothing
	 'Response.Write Server.HTMLEncode (s_List) & "!" Y S_Url

	 "" Then Si SDIR = "" Then
		 s_Url = ""
		 'S_Url = "/"
	 Más
		 & sDir & "" s_Url = "/" & SDIR & ""
		 'S_Url = "/" & SDIR & "/"
	 End If

	 "</table>" s_List s_List = & "</ table>"
	 s_List ) s_List = HTML2JS (s_List)
	 'Response.Write Server.HTMLEncode (s_List) & "!" Y S_Url
	 & s_List & "" ", " "" & s_Url & "" ")" s_List = "parent.setDirList (" "" & s_List & "" "" "" & s_Url & "" ")"
	 GetList = s_List
 End Function
 "Si no paso de detección, debe ser capaz de enumerar todos los archivos en el directorio, y un poco deprimida .. ahora sólo figuran los nombres de los archivos y directorios para permitir que el sufijo
 s_FileName ) Función CheckValidExt (s_FileName)
	 "" Then Si sAllowExt = "" Then
		 CheckValidExt = True
		 Salir de la función
	 End If

	 Dim i, AexT, sexta
	 ( Mid ( s_FileName, InStrRev ( s_FileName, "." ) + 1 ) ) sext = LCase (Mid (s_FileName, InStrRev (s_FileName, ".") + 1))
	 CheckValidExt = False
	 LCase ( sAllowExt ) , "|" ) AexT = Split (LCase (sAllowExt), "|")
	 0 To UBound ( aExt ) For i = 0 To UBound (AexT)
		 i ) = sExt Then Si AexT (i) = sext Entonces
			 CheckValidExt = True
			 Salir de la función
		 End If
	 Próximo
 End Function
 "Nos encontramos por el código, encontrar sCurrDir el valor es un valor a la siguiente
 Sub initParam ()
	 ( Trim ( Request . QueryString ( "type" ) ) ) sType = UCase (Trim (la solicitud. la cadena de consulta ("tipo")))
	 ( Request . QueryString ( "style" ) ) sStyleName = Trim (Request. cadena de consulta ("estilo"))

	 Dim i, aStyleConfig, bValidStyle
	 bValidStyle = False
	 1 To Ubound ( aStyle ) For i = 1 To UBound (Astyle)
		 aStyle ( i ) , "|||" ) aStyleConfig = Split (Astyle (i), "| | |")
		 ( sStyleName ) = Lcase ( aStyleConfig ( 0 ) ) Then Si LCase (sStyleName) = LCase (aStyleConfig (0)) A continuación,
			 bValidStyle = True
			 Exit For
		 End If
	 Próximo

	 False Then Si bValidStyle = False Then
		 ) OutScript ("alert ('estilo no válido.')")
	 End If

	 19 ) sBaseUrl = aStyleConfig (19)
	 'NAllowBrowse = CLng (aStyleConfig (43))
	 nAllowBrowse = 1

	 1 Then Si nAllowBrowse <> 1 Then
		 ) OutScript ("alert ('No permita que ver!')")
	 End If

	 3 ) sUploadDir = aStyleConfig (3)
	 sUploadDir, 1 ) <> "/" Then Si la izquierda (sUploadDir, 1) <> "/" Entonces,
		 Seleccione sType caso
		 Caso "A DISTANCIA"
			 & sUploadDir & "Image/" sUploadDir = ".. / .. /" y sUploadDir y "Imagen /"
		 Caso "FILE"
			 & sUploadDir & "Other/" sUploadDir = ".. / .. /" y sUploadDir y "Otros /"
		 Caso "MEDIA"
			 & sUploadDir & "Media/" sUploadDir = ".. / .. /" y sUploadDir y "Medios de Comunicación /"
		 Caso "FLASH"
			 & sUploadDir & "Flash/" sUploadDir = ".. / .. /" y sUploadDir y "Flash /"
		 Case Else
			 & sUploadDir & "Image/" sUploadDir = ".. / .. /" y sUploadDir y "Imagen /"
		 End Select
	 End If
	 'SUploadDir = sUploadDir & "/"

	 Seleccione sBaseUrl caso
	 Caso "0"
		 'SContentPath = aStyleConfig (23)
		 Seleccione sType caso
		 Caso "A DISTANCIA"
			 & aStyleConfig ( 3 ) & "Image/" sContentPath = ".. /" y aStyleConfig (3) y "Imagen /"
		 Caso "FILE"
			 & aStyleConfig ( 3 ) & "Other/" sContentPath = ".. /" y aStyleConfig (3) y "Otros /"
		 Caso "MEDIA"
			 & aStyleConfig ( 3 ) & "Media/" sContentPath = ".. /" y aStyleConfig (3) y "Medios de Comunicación /"
		 Caso "FLASH"
			 & aStyleConfig ( 3 ) & "Flash/" sContentPath = ".. /" y aStyleConfig (3) y "Flash /"
		 Case Else
			 & aStyleConfig ( 3 ) & "Image/" sContentPath = ".. /" y aStyleConfig (3) y "Imagen /"
		 End Select
	 Caso "1"
		 sUploadDir ) sContentPath = RelativePath2RootPath (sUploadDir)
	 Caso "2"
		 RelativePath2RootPath ( sUploadDir ) ) sContentPath = RootPath2DomainPath (RelativePath2RootPath (sUploadDir))
	 End Select

	 Seleccione sType caso
	 Caso "A DISTANCIA"
		 10 ) sAllowExt = aStyleConfig (10)
	 Caso "FILE"
		 6 ) sAllowExt = aStyleConfig (6)
	 Caso "MEDIA"
		 9 ) sAllowExt = aStyleConfig (9)
	 Caso "FLASH"
		 7 ) sAllowExt = aStyleConfig (7)
	 Case Else
		 8 ) sAllowExt = aStyleConfig (8)
	 End Select

	 Nota sCurrDir = sUploadDir 'que se ha configurado la dirección ruta
	 ( Request ( "dir" ) ) '得到dir变量 SDIR = Trim (Request ("dir")) 'variable dir
	 ( sDir, "\" , "/" ) '对dir变量进行过滤 SDIR de SDIR = Replace ("\", "/") 'variable dir para filtrar
	 ( sDir, "../" , "" ) SDIR = Replace (SDIR, ".. /", "")
	 ( sDir, "./" , "" ) SDIR = Replace (sDir. "/", "")
	 "" Then Si SDIR <> "" Entonces,
		 Server . Mappath ( sUploadDir & sDir ) ) = True Then Si CheckValidDir (Server. MapPath (sUploadDir y SDIR)) = True Then
			 sDir & "/" sCurrDir = sUploadDir y SDIR & "/" 
			 "Centrarse en aquí, ver no existía cuando sUploadDir y SDIR, sCurrDir para el valor sUploadDir y SDIR
                         "Aunque en la cara de SDIR filtrado, pero podemos omitir el st0p uso específico se dará en el uso de los siguientes
		 Más
			 SDIR = ""
		 End If
	 End If

 End Sub 

  <HTML> <HEAD> <meta Http-equiv='Content-Type' content='text/html; charset=utf-8'> <TITLE> eWebEditor </ title> </ head> <script language = javascript> parent.setDirList ("onclick='doRowClick(this)' <tr onmouseout='doRowOut(this)' onmouseover='doRowOver(this)' isdir='true' path='../..'> <td > <img border=0 src='../sysimage/file/parentfolder.gif'> </ td> .. </ td> </ td> </ tr> <tr onclick = 'doRowClick (este) "onmouseover =' doRowOver (this)" onmouseout = 'doRowOut (este)' isdir = 'true' path = ".. / .. / .. / archivos de registro"> <td> <img = frontera 0 src = ".. / sysimage / archivo / closedfolder.gif '> </ td> <td nowrap> archivos de registro </ td> </ td> </ tr> <tr onclick =' doRowClick (esto ) "onmouseover = 'doRowOver (this)" onmouseout =' doRowOut (este) 'isdir =' true 'path = ".. / .. / .. / www"> <td> <img border = 0 src ='. . / sysimage / archivo / closedfolder.gif '> </ td> <td nowrap> www </ td> </ td> </ tr> </ table> "," / .. / .. / .. ") </ script> </ body> </ html>