Ir para conteúdo
Fórum Script Brasil
  • 0

Me Ajudem !

Guest Luana Loira

Perguntado por Guest Luana Loira,

 Share

Pergunta

Guest Luana Loira

Guest Luana Loira

Postado
Postado

Pessoal não consigo nem a pau fazer esse codigo funcionar e tenho certeza que pessoas mais experientes vão me ajudar.

Arquivo: config.inc

<%
nmax = 5

cfoto = "foto"

fpagina = 20

finizio = 1

pnum = 1
%>
Arquivo: Thumb.asp 
 <html>
<head>
<title>Thumbnail</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.mytxt {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-style: normal}
-->
</style>

<script language="JavaScript">
<!--
function openCentered(theURL,winName,winWidth,winHeight,features) {
  var w = (screen.width - winWidth)/2;
  var h = (screen.height - winHeight)/2 - 60;
  features = features+',width='+winWidth+',height='+winHeight+',top='+h+',left='+w;
  window.open(theURL,winName,features);
}

function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="3" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="config.inc" -->
<%
  function GetBytes(flnm, offset, bytes)

     Dim objFSO
     Dim objFTemp
     Dim objTextStream
     Dim lngSize

     on error resume next

     Set objFSO = CreateObject("Scripting.FileSystemObject")
     
     ' First, we get the filesize
     Set objFTemp = objFSO.GetFile(flnm)
     lngSize = objFTemp.Size
     set objFTemp = nothing

     fsoForReading = 1
     Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)

     if offset > 0 then
        strBuff = objTextStream.Read(offset - 1)
     end if

     if bytes = -1 then  ' Get All!

        GetBytes = objTextStream.Read(lngSize)  'ReadAll

     else

        GetBytes = objTextStream.Read(bytes)

     end if

     objTextStream.Close
     set objTextStream = nothing
     set objFSO = nothing

  end function


  function lngConvert(strTemp)
     lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256)))
  end function

  function lngConvert2(strTemp)
     lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256)))
  end function

  
  function gfxSpex(flnm, width, height, depth, strImageType)

     dim strPNG 
     dim strGIF
     dim strBMP
     dim strType
     strType = ""
     strImageType = "(unknown)"

     gfxSpex = False

     strPNG = chr(137) & chr(80) & chr(78)
     strGIF = "GIF"
     strBMP = chr(66) & chr(77)

     strType = GetBytes(flnm, 0, 3)

     if strType = strGIF then    ' is GIF

        strImageType = "GIF"
        Width = lngConvert(GetBytes(flnm, 7, 2))
        Height = lngConvert(GetBytes(flnm, 9, 2))
        Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
        gfxSpex = True

     elseif left(strType, 2) = strBMP then  ' is BMP

        strImageType = "BMP"
        Width = lngConvert(GetBytes(flnm, 19, 2))
        Height = lngConvert(GetBytes(flnm, 23, 2))
        Depth = 2 ^ (asc(GetBytes(flnm, 29, 1)))
        gfxSpex = True

     elseif strType = strPNG then  	' Is PNG

        strImageType = "PNG"
        Width = lngConvert2(GetBytes(flnm, 19, 2))
        Height = lngConvert2(GetBytes(flnm, 23, 2))
        Depth = getBytes(flnm, 25, 2)

        select case asc(right(Depth,1))
           case 0
              Depth = 2 ^ (asc(left(Depth, 1)))
              gfxSpex = True
           case 2
              Depth = 2 ^ (asc(left(Depth, 1)) * 3)
              gfxSpex = True
           case 3
              Depth = 2 ^ (asc(left(Depth, 1)))  '8
              gfxSpex = True
           case 4
              Depth = 2 ^ (asc(left(Depth, 1)) * 2)
              gfxSpex = True
           case 6
              Depth = 2 ^ (asc(left(Depth, 1)) * 4)
              gfxSpex = True
           case else
              Depth = -1
        end select

     else

        strBuff = GetBytes(flnm, 0, -1)  ' Get all bytes from file
        lngSize = len(strBuff)
        flgFound = 0

        strTarget = chr(255) & chr(216) & chr(255)
        flgFound = instr(strBuff, strTarget)

        if flgFound = 0 then
           exit function
        end if

        strImageType = "JPG"
        lngPos = flgFound + 2
        ExitLoop = false

        do while ExitLoop = False and lngPos < lngSize

           do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize
              lngPos = lngPos + 1
           loop

           if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then
              lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
              lngPos = lngPos + lngMarkerSize  + 1
           else
              ExitLoop = True
           end if

       loop
       '
       if ExitLoop = False then

          Width = -1
          Height = -1
          Depth = -1

       else

          Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
          Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
          Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
          gfxSpex = True

       end if
                   
     end if

  end function


  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  ':::     Inizio Thumb                                              :::
  ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  dove = server.MapPath("../"&cfoto)
  Set objF = objFSO.GetFolder(dove)
  Set objFC = objF.Files
  nfoto = 1
%>
<table border="1" cellspacing="4" cellpadding="1" bgcolor="silver" class="mytxt">
  <%

ftot = 0
For Each f1 in objFC
ftot = ftot + 1
Next

starthere = (pnum-1) * fpagina
endhere = pnum * fpagina + 1

'response.write ftot&"<br>"
'response.write starthere&"<br>"
'response.write endhere&"<br>"
%>

<%For Each f1 in objFC

	if gfxSpex(f1.Path, w, h, c, strType) = true and nfoto > starthere and nfoto < endhere then


%>
<%If n = 0 then%>
  <tr>
<%End If%>
    <td> 
      <div align="center">
        <table border="0" width="110" cellpadding="0" cellspacing="0" height="80">
          <tr> 
            <td valign="middle" align="center" width="110" height="100"> 
              <p align="center"><a href="javascript:openCentered('http://<%=request.servervariables("HTTP_HOST")%>/<%=cfoto%>/<%=f1.name%>','fotoprod','<%=w+20%>','<%=h+20%>','toolbar=no')"><img src="../<%=cfoto%>/<%=f1.name%>" width="100" height="80" border=1
alt="Foto: <%=f1.name%>
Creata il : <%=f1.DateCreated%>
Peso : <%=f1.Size%> bytes
Dimensioni : <%=w%> X <%=h%> pixel
Colori : <%=c%>
Foto = <%=nfoto%>"></a> 
            </td>
          </tr>
          <tr> 
            <td valign="middle" align="center" width="110" height="10"><span class="mytxt"><%=f1.name%></span><br>
              </td>
          </tr>
        </table>
      </div>
  </td>    
<%'          response.write w & " x " & h & " " & c & " colors"
ufoto = nfoto
      else
          response.write "&nbsp;"
      end if
n = n + 1
nfoto = nfoto + 1
'-------------------------- inizio
if n = nmax then
n = 0
%>
</tr>
<%
end If
'-------------------------- fine
Next
%>
</table>
<table width="80%" border="0" cellspacing="2" cellpadding="2">
  <tr> 
    <td width="33%"> 
      <div align="left"> 
        <%if pnum <> 1 then%>
        <a href="thumb.asp?pnum=<%=pnum-1%>" class="mytxt">&laquo; indietro</a> 
        <%end if%>
      </div>
    </td>
    <td width="34%"> 
      <div align="center" class="mytxt"> | 
        <%
np = 1
Do while ftot-(np-1)*fpagina > 0%>
        <a href="thumb.asp?pnum=<%=np%>" class="mytxt"><%=np%></a> | 
        <%
np = np + 1
loop%>
      </div>
    </td>
    <td width="33%"> 
      <div align="right"> 
        <%if ftot > ufoto then%>
        <a href="thumb.asp?pnum=<%=pnum+1%>" class="mytxt">avanti &raquo;</a> 
        <%end if%>
      </div>
    </td>
  </tr>
</table>
<%
  set objFC = nothing
  set objF = nothing
  set objFSO = nothing
%>
</body>
</html>
Erro:
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A004C)
Caminho não encontrado
/thumb.asp, line 201
Linha do erro:
Set objF = objFSO.GetFolder(dove)

Desculpem pelo tamanho do post mais é necessario.

Link para o comentário
Compartilhar em outros sites

21 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

Aqui nessa linha:

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

':::    Inizio Thumb                                              :::

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Set objFSO = CreateObject("Scripting.FileSystemObject")

dove = server.MapPath("../"&cfoto)

Set objF = objFSO.GetFolder(dove)

Set objFC = objF.Files

nfoto = 1

O caminho na variavel DOVE está certo?

O erro diz que este caminho aí não foi encontrado.

Veja se é esse mesmo ...

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

config.inc

<%
nmax = 5

cfoto = "/testes/fotos"

fpagina = 5

finizio = 1

pnum = 1
%>
thumb.asp 
<html>
<head>
<title>Thumbnail</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.mytxt {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-style: normal}
-->
</style>

<script language="JavaScript">
<!--
function openCentered(theURL,winName,winWidth,winHeight,features) {
 var w = (screen.width - winWidth)/2;
 var h = (screen.height - winHeight)/2 - 60;
 features = features+',width='+winWidth+',height='+winHeight+',top='+h+',left='+w;
 window.open(theURL,winName,features);
}

function MM_jumpMenu(targ,selObj,restore){ //v3.0
 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
 if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="3" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="config.inc" -->
<%
 function GetBytes(flnm, offset, bytes)

    Dim objFSO
    Dim objFTemp
    Dim objTextStream
    Dim lngSize

    on error resume next

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' First, we get the filesize
    Set objFTemp = objFSO.GetFile(flnm)
    lngSize = objFTemp.Size
    set objFTemp = nothing

    fsoForReading = 1
    Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)

    if offset > 0 then
       strBuff = objTextStream.Read(offset - 1)
    end if

    if bytes = -1 then  ' Get All!

       GetBytes = objTextStream.Read(lngSize)  'ReadAll

    else

       GetBytes = objTextStream.Read(bytes)

    end if

    objTextStream.Close
    set objTextStream = nothing
    set objFSO = nothing

 end function


 function lngConvert(strTemp)
    lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256)))
 end function

 function lngConvert2(strTemp)
    lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256)))
 end function


 function gfxSpex(flnm, width, height, depth, strImageType)

    dim strPNG 
    dim strGIF
    dim strBMP
    dim strType
    strType = ""
    strImageType = "(unknown)"

    gfxSpex = False

    strPNG = chr(137) & chr(80) & chr(78)
    strGIF = "GIF"
    strBMP = chr(66) & chr(77)

    strType = GetBytes(flnm, 0, 3)

    if strType = strGIF then    ' is GIF

       strImageType = "GIF"
       Width = lngConvert(GetBytes(flnm, 7, 2))
       Height = lngConvert(GetBytes(flnm, 9, 2))
       Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
       gfxSpex = True

    elseif left(strType, 2) = strBMP then  ' is BMP

       strImageType = "BMP"
       Width = lngConvert(GetBytes(flnm, 19, 2))
       Height = lngConvert(GetBytes(flnm, 23, 2))
       Depth = 2 ^ (asc(GetBytes(flnm, 29, 1)))
       gfxSpex = True

    elseif strType = strPNG then   ' Is PNG

       strImageType = "PNG"
       Width = lngConvert2(GetBytes(flnm, 19, 2))
       Height = lngConvert2(GetBytes(flnm, 23, 2))
       Depth = getBytes(flnm, 25, 2)

       select case asc(right(Depth,1))
          case 0
             Depth = 2 ^ (asc(left(Depth, 1)))
             gfxSpex = True
          case 2
             Depth = 2 ^ (asc(left(Depth, 1)) * 3)
             gfxSpex = True
          case 3
             Depth = 2 ^ (asc(left(Depth, 1)))  '8
             gfxSpex = True
          case 4
             Depth = 2 ^ (asc(left(Depth, 1)) * 2)
             gfxSpex = True
          case 6
             Depth = 2 ^ (asc(left(Depth, 1)) * 4)
             gfxSpex = True
          case else
             Depth = -1
       end select

    else

       strBuff = GetBytes(flnm, 0, -1)  ' Get all bytes from file
       lngSize = len(strBuff)
       flgFound = 0

       strTarget = chr(255) & chr(216) & chr(255)
       flgFound = instr(strBuff, strTarget)

       if flgFound = 0 then
          exit function
       end if

       strImageType = "JPG"
       lngPos = flgFound + 2
       ExitLoop = false

       do while ExitLoop = False and lngPos < lngSize

          do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize
             lngPos = lngPos + 1
          loop

          if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then
             lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
             lngPos = lngPos + lngMarkerSize  + 1
          else
             ExitLoop = True
          end if

      loop
      '
      if ExitLoop = False then

         Width = -1
         Height = -1
         Depth = -1

      else

         Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
         Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
         Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
         gfxSpex = True

      end if
                  
    end if

 end function


 ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 ':::     Inizio Thumb                                              :::
 ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

 Set objFSO = CreateObject("Scripting.FileSystemObject")
 dove = server.MapPath("/testes/fotos")
 Set objF = objFSO.GetFolder(dove)
 Set objFC = objF.Files
 nfoto = 1
%>
<table border="1" cellspacing="4" cellpadding="1" bgcolor="silver" class="mytxt">
 <%

ftot = 0
For Each f1 in objFC
ftot = ftot + 1
Next

starthere = (pnum-1) * fpagina
endhere = pnum * fpagina + 1

'response.write ftot&"<br>"
'response.write starthere&"<br>"
'response.write endhere&"<br>"
%>

<%For Each f1 in objFC

if gfxSpex(f1.Path, w, h, c, strType) = true and nfoto > starthere and nfoto < endhere then


%>
<%If n = 0 then%>
 <tr>
<%End If%>
   <td> 
     <div align="center">
       <table border="0" width="110" cellpadding="0" cellspacing="0" height="80">
         <tr> 
           <td valign="middle" align="center" width="110" height="100"> 
             <p align="center"><a href="javascript:openCentered('http://<%=request.servervariables("HTTP_HOST")%>/<%=cfoto%>/<%=f1.name%>','fotoprod','<%=w+20%>','<%=h+20%>','toolbar=no')"><img src="../<%=cfoto%>/<%=f1.name%>" width="100" height="80" border=1
alt="Foto: <%=f1.name%>
Creata il : <%=f1.DateCreated%>
Peso : <%=f1.Size%> bytes
Dimensioni : <%=w%> X <%=h%> pixel
Colori : <%=c%>
Foto = <%=nfoto%>"></a> 
           </td>
         </tr>
         <tr> 
           <td valign="middle" align="center" width="110" height="10"><span class="mytxt"><%=f1.name%></span><br>
             </td>
         </tr>
       </table>
     </div>
 </td>    
<%'          response.write w & " x " & h & " " & c & " colors"
ufoto = nfoto
     else
         response.write "&nbsp;"
     end if
n = n + 1
nfoto = nfoto + 1
'-------------------------- inizio
if n = nmax then
n = 0
%>
</tr>
<%
end If
'-------------------------- fine
Next
%>
</table>
<table width="80%" border="0" cellspacing="2" cellpadding="2">
 <tr> 
   <td width="33%"> 
     <div align="left"> 
       <%if pnum <> 1 then%>
       <a href="thumb.asp?pnum=<%=pnum-1%>" class="mytxt">&laquo; indietro</a> 
       <%end if%>
     </div>
   </td>
   <td width="34%"> 
     <div align="center" class="mytxt"> | 
       <%
np = 1
Do while ftot-(np-1)*fpagina > 0%>
       <a href="thumb.asp?pnum=<%=np%>" class="mytxt"><%=np%></a> | 
       <%
np = np + 1
loop%>
     </div>
   </td>
   <td width="33%"> 
     <div align="right"> 
       <%if ftot > ufoto then%>
       <a href="thumb.asp?pnum=<%=pnum+1%>" class="mytxt">avanti &raquo;</a> 
       <%end if%>
     </div>
   </td>
 </tr>
</table>
<%
 set objFC = nothing
 set objF = nothing
 set objFSO = nothing
%>
</body>
</html>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...