espaco     espaco
     
    Galeria de Fotos Galeria de Fotos email Fale ConoscoMapa do Site Mapa do Site
espaco
     
  seta Home
espaco
espaco
  seta Introdução
espaco
espaco
  seta Tai Chi Chuan
espaco
espaco
  seta Lian Gong 18 Terapias
espaco
espaco
  seta Artigos
espaco
espaco
  seta Praticas Abertas
espaco
espaco
  seta Professor Carlos Gomes
espaco
espaco
  seta Monitores
espaco
espaco
  seta Livros
espaco
espaco
  seta Links
espaco
espaco
espaco espaco
  Home | Livros  
<% 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(livros) Set objF = objFSO.GetFolder(dove) Set objFC = objF.Files nfoto = 1 %> <% ftot = 0 For Each f1 in objFC ftot = ftot + 1 Next starthere = (pnum-1) * fpagina endhere = pnum * fpagina + 1 'response.write ftot&"
" 'response.write starthere&"
" 'response.write endhere&"
" %> <%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%> <%End If%> <%' response.write w & " x " & h & " " & c & " colors" ufoto = nfoto else response.write " " end if n = n + 1 nfoto = nfoto + 1 '-------------------------- inizio if n = nmax then n = 0 %> <% end If '-------------------------- fine Next %>
<%if pnum <> 1 then%> « retornar <%end if%>
| <% np = 1 Do while ftot-(np-1)*fpagina > 0%> <%=np%> | <% np = np + 1 loop%>
<%if ftot > ufoto then%> avançar » <%end if%>
<% set objFC = nothing set objF = nothing set objFSO = nothing %>
espaco
espaco espaco