Galeria de Fotos

[lord_damonie 0]

cara será que você poderia fazer essa alteração para JSCRIPT? so nessas primeiras linha, porque ja estou ficando perdido!!!

[AMON-HÁ 0]

cara será que você poderia fazer essa alteração para JSCRIPT? so nessas primeiras linha, porque ja estou ficando perdido!!!

Qual primeira linha???

essa??? <%@LANGUAGE="JSCRIPT" CODEPAGE="1252"%>

se for já tá em JSCRIPT... hehehe

 

o que você precisa mudar é o que existe de VBScript no código...

Exemplo:

if (nmax = "") then

nmax = 2

end if

para

if (nmax = "") {

nmax = 2;

}

como eu naum sou de usar o JSCRIPT eu naum sei bem certo se a igualdade(comparação) é só uma (=) ou duas (==)

de qualquer forma tente os dois...

veja a outra maneira...

if (nmax == "") {

nmax = 2;

}

acho que é essa segunda...

 

assim você vai fazer com todo o seu código... tudo que tiver de VBScript você tem que mudar para JSCript...

 

beleza??? http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[lord_damonie 0]

Hehehe, deu certo cara, mas agora pulamos para o proxima erro!!!

Tipo de erro:Erro de compilação do Microsoft JScript (0x800A03F0)'{' esperado/novo_telao/events/thumb.asp, line 63Dim objFSO

olhe aqui a linha do erro que vai da linha "60 a 66"

<% function GetBytes(flnm, offset, bytes) Dim objFSO Dim objFTemp Dim objTextStream Dim lngSize

[AMON-HÁ 0]

Hehehe, deu certo cara, mas agora pulamos para o proxima erro!!!

 

 

QUOTE

Tipo de erro:

Erro de compilação do Microsoft JScript (0x800A03F0)

'{' esperado

/novo_telao/events/thumb.asp, line 63

Dim objFSO

 

 

olhe aqui a linha do erro que vai da linha "60 a 66"

 

QUOTE

<%

function GetBytes(flnm, offset, bytes)

 

Dim objFSO

Dim objFTemp

Dim objTextStream

Dim lngSize

Hehehe... primeiramente vamo terminar nosso trabalho, e como eu disse mudar TUDO para JScript...

 

muda ae essa parte que você acabou de mim mostrar...

Var objFSO;

Var objFTemp;

Var objTextStream;

Var lngSize;

 

axo que a function tb tem que mudar...

[micox 2]

Lord, acho que é bom você procurar sobre a sintaxe do jscript na internet. porque é bem diferente de vbscript e toda hora vai darum erro diferente se você ficar misturando as duas linguagens...Vai ser melhor pra você aprender por completo sobre a linguagem (e sobre sua enorme diferença do vbscript) em vez de ficar só tapando buraco toda hora.Ah. vai ser melhor pro seu aprendizado também.

[AMON-HÁ 0]

Lord, acho que é bom você procurar sobre a sintaxe do jscript na internet. porque é bem diferente de vbscript e toda hora vai darum erro diferente se você ficar misturando as duas linguagens...

Tb axo!!! http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

[lord_damonie 0]

cara eu mudei esse trecho mas continua o mesmo erro!!! se coloco assim:

<% function GetBytes(flnm, offset, bytes); Dim objFSO; Dim objFTemp; Dim objTextStream; Dim lngSize;

o erro vai ser o seguinte:

Tipo de erro:Erro de compilação do Microsoft JScript (0x800A03F0)'{' esperado/novo_telao/events/thumb.asp, line 61, column 38function GetBytes(flnm, offset, bytes);

[AMON-HÁ 0]

cara eu mudei esse trecho mas continua o mesmo erro!!! se coloco assim:QUOTE<%function GetBytes(flnm, offset, bytes);Dim objFSO;Dim objFTemp;Dim objTextStream;Dim lngSize;o erro vai ser o seguinte:QUOTETipo de erro:Erro de compilação do Microsoft JScript (0x800A03F0)'{' esperado/novo_telao/events/thumb.asp, line 61, column 38function GetBytes(flnm, offset, bytes);

:o Naum... naum se coloca ponto-e-virgula no inicio da function naum...qnd eu disse que na function tb mudaria era...function GetBytes(flnm, offset, bytes) {...}e naum declara variável com o 'Dim' naum... (isso é VBSCRIPT)... declara com 'var'...assim:var objFSO;var objFTemp;var objTextStream;var lngSize;

[lord_damonie 0]

Certo mudei os DIM por VAR, mas agora esta dando o seguinte erro:

Tipo de erro:Erro de compilação do Microsoft JScript (0x800A03EC)';' esperado/novo_telao/events/thumb.asp, line 68, column 3on error resume next--^

ai vai um trecho do codigo que estamos concertando, que vai da linha "60 a 93"...

<% function GetBytes(flnm, offset, bytes){ var objFSO; var objFTemp; var objTextStream; var 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

[AMON-HÁ 0]

Cara... o código estava em VBSCRIPT... porque você quis mudar para JSCRIPT????bagunçou tudo...poste o original ae...

[lord_damonie 0]

Cara coloquei ele todo em VBSCRIPT e eta funcionando beleza, aquela maquina de problemas foi solucionada!!! agora estou com um unico problema!!!coloquei na linha 72 uma variavel que busca os dados do banco de dados, mas esta dando o seguinte erro:

Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0401)Fim da instrução esperado/novo_telao/events/thumb.asp, line 72, column 31cfoto = "(eventos.Fields.Item("URL").Value)"------------------------------^

[AMON-HÁ 0]

Cara coloquei ele todo em VBSCRIPT e eta funcionando beleza, aquela maquina de problemas foi solucionada!!! agora estou com um unico problema!!!coloquei na linha 72 uma variavel que busca os dados do banco de dados, mas esta dando o seguinte erro:QUOTETipo de erro:Erro de compilação do Microsoft VBScript (0x800A0401)Fim da instrução esperado/novo_telao/events/thumb.asp, line 72, column 31cfoto = "(eventos.Fields.Item("URL").Value)"------------------------------^

é dificil ajudar sem vê pelo menos como é que você criou o objeto recordset e como é que está a string SQLposte pelo menos essas duas parte ae...

[lord_damonie 0]

Ai vai o script da linha "65 a 77" sei que o erro esta acontecendo ao tentar recuperar os dados do BD...

'-----------------------------| codice | code |if nmax = "" thennmax = 2end ifif cfoto = "" thencfoto = "(eventos.Fields.Item("URL").Value)"end ifif fpagina = "" thenfpagina = 10end if

[AMON-HÁ 0]

Ai vai o script da linha "65 a 77" sei que o erro esta acontecendo ao tentar recuperar os dados do BD...

'-----------------------------| codice | code |if nmax = "" thennmax = 2end ifif cfoto = "" thencfoto = "(eventos.Fields.Item("URL").Value)"end ifif fpagina = "" thenfpagina = 10end if

Naum...mande aquele parte que temSet .....e a que temsql = "select ...entendeu???

[lord_damonie 0]

saca velho o script esta funcionando!!! mas agora ele ta dando erro nessa parte quando coloco a variavel do banco de dados!!!!vou colocar todo o script aqui e você da uma olhadinha!!!

<%@LANGUAGE="vb script:openCentered('http://<%=request.servervariables("HTTP_HOST")%>/<%=cfoto%>/<%=f1.name%>','fotoprod','<%=w+20%>','<%=h+20%>','toolbar=no')"><img src="<%=cfoto%>/<%=f1.name%>"alt="Foto: <%=f1.name%>Creata il : <%=f1.DateCreated%>Peso : <%=f1.Size%> bytesDimensioni : <%=w%> X <%=h%> pixelColori : <%=c%>Foto = <%=nfoto%>" width="100" height="80" border=1></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 "" end ifn = n + 1nfoto = nfoto + 1'-------------------------- inizioif n = nmax thenn = 0%></tr><%end If'-------------------------- fineNext%></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">« indietro</a> <%end if%> </div> </td> <td width="34%"> <div align="center" class="mytxt"> | <%np = 1Do while ftot-(np-1)*fpagina > 0%> <a href="thumb.asp?pnum=<%=np%>" class="mytxt"><%=np%></a> | <%np = np + 1loop%> </div> </td> <td width="33%"> <div align="right"> <%if ftot > ufoto then%> <a href="thumb.asp?pnum=<%=pnum+1%>" class="mytxt">avanti »</a> <%end if%> </div> </td> </tr></table><% set objFC = nothing set objF = nothing set objFSO = nothing%></body></html><%eventos.Close()Set eventos = Nothing%>

[AMON-HÁ 0]

Cara, eu dei uma olhada rápida aki... mas coloca esse código ae no lugar do que você me mostrou e vê se dar algum erro...

<%@LANGUAGE="VBSCRIPT"%><%Dim eventosDim eventos_numRows'Set eventos = Server.CreateObject("ADODB.Recordset")'eventos.ActiveConnection = MM_teste_STRING'eventos.Source = "SELECT * FROM EVENTOS ORDER BY ID ASC"'eventos.CursorType = 0'eventos.CursorLocation = 2'eventos.LockType = 1'eventos.Open()Dim strConexaoDim ConnDBDim SQLstrConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _ 	Server.MapPath("banco.mdb")&";Persist Security Info=False"			 Set ConnDB = Server.CreateObject("ADODB.Connection")ConnDB.Open(strConexao)SQL = "SELECT * FROM EVENTOS ORDER BY ID ASC"Set eventos = Server.CreateObject("ADODB.Recordset")eventos.Open SQL, ConnDB, 3, 3eventos_numRows = 0%><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.0eval(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"><%'----------------------------| Configurazione Thumbnail | Thumbnail config |'nmax = quante immagini per riga (how many images in every row)'cfoto = cartella foto (image folder)'fpagina = foto per pagina (images in every page)'finizio = foto di inizio (first image)'pnum = numero pagina (page number)nmax = request("nmax")cfoto = request("cfoto")fpagina = request("fpagina")finizio = request("finizio")pnum = request("pnum")'-----------------------------| codice | code |if nmax = "" thennmax = 2end ifif cfoto = "" thencfoto = eventos("URL")end ifif fpagina = "" thenfpagina = 10end ifif finizio = "" thenfinizio = 1end ifif pnum = "" thenpnum = 1end if'------------------------------| fine codice di configurazione | end code |%><%function GetBytes(flnm, offset, bytes)Dim objFSODim objFTempDim objTextStreamDim lngSizeon error resume nextSet objFSO = CreateObject("Scripting.FileSystemObject")' First, we get the filesizeSet objFTemp = objFSO.GetFile(flnm)lngSize = objFTemp.Sizeset objFTemp = nothingfsoForReading = 1Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)if offset > 0 thenstrBuff = objTextStream.Read(offset - 1)end ifif bytes = -1 then ' Get All!GetBytes = objTextStream.Read(lngSize) 'ReadAllelseGetBytes = objTextStream.Read(bytes)end ifobjTextStream.Closeset objTextStream = nothingset objFSO = nothingend functionfunction lngConvert(strTemp)lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256)))end functionfunction lngConvert2(strTemp)lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256)))end functionfunction gfxSpex(flnm, width, height, depth, strImageType)dim strPNG dim strGIFdim strBMPdim strTypestrType = ""strImageType = "(unknown)"gfxSpex = FalsestrPNG = chr(137) & chr(80) & chr(78)strGIF = "GIF"strBMP = chr(66) & chr(77)strType = GetBytes(flnm, 0, 3)if strType = strGIF then ' is GIFstrImageType = "GIF"Width = lngConvert(GetBytes(flnm, 7, 2))Height = lngConvert(GetBytes(flnm, 9, 2))Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)gfxSpex = Trueelseif left(strType, 2) = strBMP then ' is BMPstrImageType = "BMP"Width = lngConvert(GetBytes(flnm, 19, 2))Height = lngConvert(GetBytes(flnm, 23, 2))Depth = 2 ^ (asc(GetBytes(flnm, 29, 1)))gfxSpex = Trueelseif strType = strPNG then ' Is PNGstrImageType = "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 0Depth = 2 ^ (asc(left(Depth, 1)))gfxSpex = Truecase 2Depth = 2 ^ (asc(left(Depth, 1)) * 3)gfxSpex = Truecase 3Depth = 2 ^ (asc(left(Depth, 1))) '8gfxSpex = Truecase 4Depth = 2 ^ (asc(left(Depth, 1)) * 2)gfxSpex = Truecase 6Depth = 2 ^ (asc(left(Depth, 1)) * 4)gfxSpex = Truecase elseDepth = -1end selectelsestrBuff = GetBytes(flnm, 0, -1) ' Get all bytes from filelngSize = len(strBuff)flgFound = 0strTarget = chr(255) & chr(216) & chr(255)flgFound = instr(strBuff, strTarget)if flgFound = 0 thenexit functionend ifstrImageType = "JPG"lngPos = flgFound + 2ExitLoop = falsedo while ExitLoop = False and lngPos < lngSizedo while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSizelngPos = lngPos + 1loopif asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 thenlngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))lngPos = lngPos + lngMarkerSize + 1elseExitLoop = Trueend ifloop'if ExitLoop = False thenWidth = -1Height = -1Depth = -1elseHeight = lngConvert2(mid(strBuff, lngPos + 4, 2))Width = lngConvert2(mid(strBuff, lngPos + 6, 2))Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)gfxSpex = Trueend ifend ifend function':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::'::: Inizio Thumb :::':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::Set objFSO = CreateObject("Scripting.FileSystemObject")dove = server.MapPath(""&cfoto)Set objF = objFSO.GetFolder(dove)Set objFC = objF.Filesnfoto = 1%><table border="1" cellspacing="4" cellpadding="1" class="mytxt"><%ftot = 0For Each f1 in objFCftot = ftot + 1Nextstarthere = (pnum-1) * fpaginaendhere = pnum * fpagina + 1'response.write ftot&"<br>"'response.write starthere&"<br>"'response.write endhere&"<br>"%><%For Each f1 in objFCif 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%>"alt="Foto: <%=f1.name%>Creata il : <%=f1.DateCreated%>Peso : <%=f1.Size%> bytesDimensioni : <%=w%> X <%=h%> pixelColori : <%=c%>Foto = <%=nfoto%>" width="100" height="80" border=1></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 = nfotoelseresponse.write ""end ifn = n + 1nfoto = nfoto + 1'-------------------------- inizioif n = nmax thenn = 0%></tr><%end If'-------------------------- fineNext%></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">« indietro</a> <%end if%></div></td><td width="34%"> <div align="center" class="mytxt"> | <%np = 1Do while ftot-(np-1)*fpagina > 0%><a href="thumb.asp?pnum=<%=np%>" class="mytxt"><%=np%></a> | <%np = np + 1loop%></div></td><td width="33%"> <div align="right"> <%if ftot > ufoto then%><a href="thumb.asp?pnum=<%=pnum+1%>" class="mytxt">avanti »</a> <%end if%></div></td></tr></table><%set objFC = nothingset objF = nothingset objFSO = nothing%></body></html><%ConnDB.Close'eventos.Close()Set ConnDB = NothingSet eventos = Nothing%>

Antes, é claro... mude o nome do banco de dados ae no código...

http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

[lord_damonie 0]

Certo agora o codigo esta funcionando normal!! mas tenho um problema com a paginação, quando clico em pagina 1|2|3... aparece /thumb.asp?pnum=2, certo mas quando eu entrar com uma variavel por exemplo "/thumb.asp?URL=igapora" e para ir para a proxima pagina ou seja pagina 1|2|3... não poderar ser /thumb.asp?pnum=2 tem que entrar com o valor atual!!! como faço isso??ai vai o codigo da paginação!!! sendo que estou usando a coluna URL do banco de dados!!!

<%if pnum <> 1 then%><a href="thumb.asp?pnum=<%=pnum-1%>" class="mytxt">« indietro</a> <%end if%></div></td><td width="34%"> <div align="center" class="mytxt"> | <%np = 1Do while ftot-(np-1)*fpagina > 0%><a href="thumb.asp?pnum=<%=np%>" class="mytxt"><%=np%></a> | <%np = np + 1loop%></div></td><td width="33%"> <div align="right"> <%if ftot > ufoto then%><a href="thumb.asp?pnum=<%=pnum+1%>" class="mytxt">avanti »</a> <%end if%>

[lord_damonie 0]

será que alguem pode tirar minha duvida???Estou precisando resolver o problema da paginação que postei anteriormente!!!!

[AMON-HÁ 0]

Cara... aquele código que você me mandou naum está funcionando naum...e o pior que eu nem tenho tempo de olhar o que deve ser...entaum vamos vê se a gente resolve esse problema aqui msm... beleza???primeiro... me diz uma coisa... a paginação funciona de boa né??? tipo... se naum passar o valor da URL ela funciona normalmente... naum é isso???...você tá com problemas em passar o valor de dois parametros juntos... é isso???tipo... /thumb.asp?pnum=2&URL=igaporaé esse o seu problema...???

[lord_damonie 0]

Cara deu certo a galeria, funcionando 100%... Valeu pela ajuda!!!

Galeria de Fotos, o resultado!!!