Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lord_damonie

Galeria de Fotos

Por , em ASP Clássico

Recommended Posts

lord_damonie    0

lord_damonie
Postado

Olá pessoal!! estou tentando desenvolver uma galeria de fotos usando FSO, ate ai tudo bem consigo inserir os valores e tal, mas quando vou criar uma conexão com o banco de dados para poder recuperar o nome da pasta, acontece o erro!!!

Erro de compilação do Microsoft VBScript (0x800A0401)Fim da instrução esperado/novo_telao/events/thumb.asp, line 4, column 55var Recordset1 = Server.CreateObject("ADODB.Recordset");

esse erro como disse antes so acontece após ter criado a conexão com o banco de dados!!!Quero saber o que posso fazer para fazer com que esse script de certo!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

lord_damonie    0

lord_damonie
Postado

ai vai o script da 1º linha até a 12º...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/telao.asp" --><%var Recordset1 = Server.CreateObject("ADODB.Recordset");Recordset1.ActiveConnection = MM_telao_STRING;Recordset1.Source = "SELECT * FROM EVENTOS";Recordset1.CursorType = 0;Recordset1.CursorLocation = 2;Recordset1.LockType = 1;Recordset1.Open();var Recordset1_numRows = 0;%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

lord_damonie    0

lord_damonie
Postado

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/telao.asp" --><%var Recordset1 = Server.CreateObject("ADODB.Recordset");Recordset1.ActiveConnection = MM_telao_STRING;Recordset1.Source = "SELECT * FROM EVENTOS";Recordset1.CursorType = 0;Recordset1.CursorLocation = 2;Recordset1.LockType = 1;Recordset1.Open();var Recordset1_numRows = 0;%><html><head></head><body bgcolor="#FFFFFF" leftmargin="3" topmargin="0" marginwidth="0" marginheight="0"><table width="770" border="0" cellpadding="0" cellspacing="0" background="images/back.gif"> <tr> <td width="141"> <%'----------------------------| 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 = "imagens"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 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="0" cellspacing="0" cellpadding="0" 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 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> <script language='JavaScript'><!--function makevisible(cur,which){if (which==0) cur.filters.alpha.opacity=100 else cur.filters.alpha.opacity=60}//---></SCRIPT><script language="Javascript"> /* Gradual-Highlight Image Script II- By J. Mark Birenbaum (birenbau@ugrad.cs.ualberta.ca) Permission granted to Dynamicdrive.com to feature script in archive For full source to script, visit http://dynamicdrive.com */ nereidFadeObjects = new Object(); nereidFadeTimers = new Object(); function nereidFade(object, destOp, rate, delta){ if (!document.all) return if (object != "[object]"){ //do this so I can take a string too setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0); return; } clearTimeout(nereidFadeTimers[object.sourceIndex]); diff = destOp-object.filters.alpha.opacity; direction = 1; if (object.filters.alpha.opacity > destOp){ direction = -1; } delta=Math.min(direction*diff,delta); object.filters.alpha.opacity+=direction*delta; if (object.filters.alpha.opacity != destOp){ nereidFadeObjects[object.sourceIndex]=object; nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate); } }</script> <td valign="middle" align="center" width="110" height="100"><p align="center"><a href="<%=cfoto%>/<%=f1.name%>" target="meio"><img src="../<%=cfoto%>/<%=f1.name%>" width="100" height="80" border=1alt="Foto: <%=f1.name%>Criado em: <%=f1.DateCreated%>Tamanho: <%=f1.Size%> bytesDimensão : <%=w%> X <%=h%> pixelCor : <%=c%>Foto = <%=nfoto%>"></a> </td> </tr> <tr></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></td> <td width="629"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <div align="center"> <table width="624" height="45" border="0" cellpadding="0" cellspacing="0"> <tr></tr> </table> </div></td> </tr> <tr> <td> </td> </tr> <tr> <td> </td> </tr> </table></td> </tr></table><table width="44%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="26%"> <div align="left"> <%if pnum <> 1 then%> <a href="thumb.asp?pnum=<%=pnum-1%>"><img src="images/anterior.gif" width="83" height="25" border="0"></a> <%end if%> </div> </td> <td width="48%"> <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="26%"> <div align="right"> <%if ftot > ufoto then%> <a href="thumb.asp?pnum=<%=pnum+1%>"><img src="images/proxima.gif" width="83" height="25" border="0"></a> <%end if%> </div> </td> </tr></table><% set objFC = nothing set objF = nothing set objFSO = nothing%></body></html><%Recordset1.Close();%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tiozinhovoce ta usando VBScript e declaranco como JScript<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/telao.asp" --><%var Recordset1 = Server.CreateObject("ADODB.Recordset");tente assim<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/telao.asp" --><%set Recordset1 = Server.CreateObject("ADODB.Recordset")pode dar outros erros pra frente mas vamos tentar consetar este primeiro

Compartilhar este post

Link para o post
Compartilhar em outros sites

lord_damonie    0

lord_damonie
Postado

Colocando ele em ASP JAVASCRIPT TEM ALGUM PROBLEMA OU TEM SER DECLARADO EM VBSCRIPT??TROQUEI AS 4 PRIMEIRAS LINHAS CONFORME O INDICADO, AGORA ESTA ACONTECENDO 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 5, column 45Recordset1.ActiveConnection = MM_telao_STRING;

Compartilhar este post

Link para o post
Compartilhar em outros sites

micox    2

micox
Postado

voce ta usando VBScript e declaranco como JScript

Ops. Acho que é o contrário. No código ele está usando jscript (var e ponto-virgula são do jscript). ehheBom, se ele já fez o código todinho em Jscript acho que é mais fácil alterar a declaração apenas
<%@LANGUAGE="JSCRIPT" CODEPAGE="1252"%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tira tudo quanto for ponto e virgulo dos codigos aspa menos que esteja tudo em JScript ai voce deixa e muda apenas a primeira linha para<%@LANGUAGE="JSCRIPT" CODEPAGE="1252"%>e volta o seu recordset como tava anteso que não pode é voce misturar...

Compartilhar este post

Link para o post
Compartilhar em outros sites

lord_damonie    0

lord_damonie
Postado

cara o erro agora esta sendo o seguinte!!!

Tipo de erro:Erro de compilação do Microsoft JScript (0x800A03F7)Constante de seqüência não finalizada/novo_telao/events/thumb.asp, line 23, column 76'----------------------------| Configurazione Thumbnail | Thumbnail config |---------------------------------------------------------------------------^

acho q aquele primeiro erro foi solucionado!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

micox    2

micox
Postado

Cara, primeiro fala pra nóis: você se decidiu por Jscript ou VBscript???Pelo que eu ví na descrição do erro, parece que você se decidiu por Jscript, sendo assim, o caractere que inicia comentários no jscript é '//' (barra barra) e não ' (apóstrofo).Té maisl

Compartilhar este post

Link para o post
Compartilhar em outros sites

lord_damonie    0

lord_damonie
Postado

cara troquei todos os "apóstrofo" (') por "barra barra" (//), e está dando o seguinte erro!!!!

Tipo de erro:Erro de compilação do Microsoft JScript (0x800A03ED)'(' esperado/novo_telao/events/thumb.asp, line 38, column 3if nmax = "" then--^

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce esta usando JScript...todas as decisoes precisão de parentesesif (nmax = "") thensó confirme se o então é com "THEN" ou com "{"

Compartilhar este post

Link para o post
Compartilhar em outros sites

AMON-HÁ    0

AMON-HÁ
Postado

Cara... seu código tá todo misturado...ou você usa VBScript ou JScript...no cabeçalho você declara VBScript... porém existem várias rotinas em JScript... :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

lord_damonie    0

lord_damonie
Postado

fiz como o relatado acima!!! mas continua os erros, estou usando jscript!!o trecho do codigo abaixo que contem o problema!!

<%@LANGUAGE="JSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/telao.asp" --><%var Recordset1 = Server.CreateObject("ADODB.Recordset");Recordset1.ActiveConnection = MM_telao_STRING;Recordset1.Source = "SELECT * FROM EVENTOS";Recordset1.CursorType = 0;Recordset1.CursorLocation = 2;Recordset1.LockType = 1;Recordset1.Open();var Recordset1_numRows = 0;%><html><head></head><body bgcolor="#FFFFFF" leftmargin="3" topmargin="0" marginwidth="0" marginheight="0"><table width="770" border="0" cellpadding="0" cellspacing="0" background="images/back.gif"> <tr> <td width="141"> <%//----------------------------| 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 = "imagens"end ifif (fpagina = "") thenfpagina = 10end ifif (finizio = "") thenfinizio = 1end ifif (pnum = "") thenpnum = 1end if//------------------------------| fine codice di configurazione | end code |%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

AMON-HÁ    0

AMON-HÁ
Postado

fiz como o relatado acima!!! mas continua os erros, estou usando jscript!!

o trecho do codigo abaixo que contem o problema!!

Cara, naum é só mudar <%@LANGUAGE="JSCRIPT" CODEPAGE="1252"%>

tem que mudar no código tb...

veja...

if (nmax = "") then

nmax = 2

end if

isso é VBScript...

 

ou um ou outro... http://forum.imasters.com.br/public/style_emoticons/default/yes.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito