Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,378

    fso leggere cartella con carattere &

    Salve,
    utilizzo la funzione fso per leggere il contenuto di una cartella sul server.
    Ora se la cartella ha nome : giorgio & giovanni
    ma accedendo a questa cartella ho errore: path no found,
    come posso risolvere senza rinominare e utilizzare questo simbolo?
    Grazie

  2. #2

  3. #3
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,378
    eccolo, il nome album che recupero con il request.querystring aveva nel nome il carattere &
    codice:
    %
    Dim web
    web = Request.ServerVariables("server_name")
    web = MID(web,5)
    web = Replace(web, "." , "")
    dim fs,fo,x,nome
    
    set fs=Server.CreateObject("Scripting.FileSystemObject")
    set fo=fs.GetFolder("d:\inetpub\webs\" & web & "\public\album\" & request.querystring("nome_album") & "\")
    
    set custRs = Server.CreateObject("ADODB.Recordset")
    
    custRs.Fields.Append "nome", 200, 300 ' adVarChar
    custRs.Fields.Append "data", 7 ' Date  
    custRs.Fields.Append "dimensione", 2, 4 ' smallint 
    
           custRs.Open
     risultatiPerPagina = 10
    
    pagina = Request.queryString("pagina")
    if len(pagina) > 0 and isNumeric(pagina) then
        pagina = cLng(pagina)
    else
        pagina = 1
    end if
    
    if pagina < 1 then pagina = 1
    
    questaPagina = request.serverVariables("PATH_INFO")
    
    for each x in fo.files
    
    custRs.AddNew    
    
    custRs("nome") = x.Name
    custRs("data") = x.DateCreated    
    custRs("dimensione") = x.Size / 1024
    
          custRs.update
    
      next
     custRs.Sort = "data Desc"
    
    If custRs.EOF Then
    %>
    Non ci sono foto in questa cartella
    <%
    else
    
    if not custRs.eof then
        custRs.pageSize = risultatiPerPagina
            
            custRs.absolutePage = pagina
              for r = 1 to risultatiPerPagina
        if not custRs.eof then  
    %>
    ecco le foto
    <%
    custRs.MoveNext
    else
    exit for
    end if
    next
    end if
    %>

  4. #4
    perché non usi server.mappath?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2019 vBulletin Solutions, Inc. All rights reserved.