Problemas na querystring

[HASh 0]

Estou tendo problemas com o seguinte script

 

 

<%function is_image(this_file) 	Dim ext	ext = lcase(Mid(this_file, InStr(this_file, ".")+1, 4))	if ext="jpg" or ext="gif" or ext="bmp" then		is_image = true	else		is_image = false	end ifend functionDim album_FSO, album_list, img_id, itemDim dir_stringdir_string = "fotos/" & Request.QueryString("dir")set album_FSO = Server.CreateObject("Scripting.FileSystemObject")set album_list = album_FSO.GetFolder(Server.MapPath(dir_string))img_id=0For each item in album_list.SubFolders		if img_id = 0 AND (InStr(1, item, "_vti", 1) = 0)then			response.write "<b>Albums:</b>"		end if		If InStr(1, item, "_vti", 1) = 0 Then			response.write "<a href=""fotos.asp?dir=" & Server.URLEncode(item.name) & """>"			response.write item.name & "</a>"			img_id = img_id + 1		end ifNext set item = nothingset album_list = nothingset album_FSO = nothingif img_id = 0 then	Dim dir_name, show_pic	dir_name = Request.QueryString("dir")	dir_string = "fotos/" & dir_name	if Request.QueryString("next_id") = "" then		show_pic = "0"	else		show_pic = Request.QueryString("next_id")	end if	set album_FSO = Server.CreateObject("Scripting.FileSystemObject")	set album_list = album_FSO.GetFolder(Server.MapPath(dir_string))		dim mark_num, img_dir_name, did_print_image	img_id=0	mark_num = 0	img_dir_name = dir_name	dir_name=Server.URLEncode(dir_name)	For each item in album_list.Files		if (show_pic = (img_id&"")) and is_image(item) then			response.write "<img src=""fotos/" & img_dir_name & "/" & item.name & """ border=""1"" alt=""Tempo aproximado de download [28.8 modem]: " & Round((item.Size/28800),2) & " seg."">"			mark_num = img_id		end if		img_id = img_id+1	Next 	if mark_num <> 0 then	response.write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""400"">"	response.write "<tr>"				if mark_num = 0 then		response.write "<td width=""50%"" align=""left""></td>"	else		response.write "<td width=""50%"" align=""left""><a href=""fotos.asp?dir=" & dir_name & "&next_id=" & mark_num-1 & "&max_pic=" & img_id & """>Anterior</a></td>"	end if				if ((mark_num+1)&"") = Request.QueryString("max_pic") then		response.write "<td width=""50%"" align=""right""></td>"	else		response.write "<td width=""50%"" align=""right""><a href=""fotos.asp?dir=" & dir_name & "&next_id=" & mark_num+1 & "&max_pic=" & img_id & """>Próxima</a></td>"	end if				response.write "</tr>"	response.write "</table>"	else		response.redirect("fotos.asp?dir=" & dir_name & "&next_id=" & (show_pic+1))	end if		set item = nothing	set album_list = nothing	set album_FSO = nothingelse	response.write "</ul>"end if%>

Tipo, no meu pc ele roda perfeitamente, porém, quando vou rodar no servidor ele não funfa...

 

Alguém pode me dar um help?

 

Obrigado.

[shumi 0]

Da algum erro?qual o erro?Abraços

[HASh 0]

O estranho é que não dá erro de vbscript, ele simplesmente dá timeout e aparece assim como nessa print:

 

http://www.djhash.com.br/temp/01.jpg

 

O certo seria aparecer assim:

 

http://www.djhash.com.br/temp/02.jpg

 

Sinceramente não sei o que há de errado com o script...

 

Será que são as permissões do diretório ou do arquivo?

 

Abraço

[shumi 0]

Cara não olhei seu script direito, mas da uma olhada na URL como esta passando:fotos.asp?dir=&next_id=1dir=cade o valor dele?Não tem, ou não está vindo?O erro pode estar ai, ele tenta processar e estoura o timeout!Da uma olhada nisso!Abraços

[HASh 0]

Mas como no iis vai normal? Não entendi isso...

Tipo, aki no meu pc, qdo naum esta definido o valor dir, ele mostra a primeira foto da pasta fotos...

Mas no servidor, o que acontece, quando eu coloco uma subpasta, ele reconhece e vai... por exemplo, uma pasta chamada teste, ele cria o album teste, mas quando você clica no link do album, ele não abre...

 

http://www.djhash.com.br/fotos.asp

 

Não sei o que fazer :S

[HASh 0]

Troquei o script, agora tá funfando...

 

<%Dim objFSODim objFolderDim objFileDim PathDim ImageCountDim ImageNumberDim NextImageDim PreviousImageDim FileExtentionDim ErrorPageImageCount = 0ErrorPage = "fotos.asp?Path=fotos"Set Path = Request.QueryString("Path")If Path = "" Then	Response.Redirect(ErrorPage)End IfIf ImageCount = 0 Then	Set objFSO = CreateObject("Scripting.FileSystemObject")	Set objFolder = objFSO.GetFolder(Server.MapPath(Path & "/"))		For Each objFile In objFolder.Files			FileExtention = LCase(Right((objFile.Name), 4))				If FileExtention = ".jpg" Then					ImageCount = Cint(ImageCount) + 1				End If		Next		Set objFSO = Nothing	Set objFolder = Nothing	Set objFile = NothingEnd IfImageNumber = Cint(Request.QueryString("ImageNumber"))	If ImageNumber < 1 Then		ImageNumber = 1	ElseIf ImageNumber > ImageCount Then		ImageNumber = ImageCount	End IfFunction Buttons(ImageCount, ImageNumber)	If ImageNumber = 1 Then		NextImage = "<A HREF=""fotos.asp?Path=" & Path & "&ImageNumber=" & (ImageNumber + 1) & """>Próxima</A>"			ElseIf ImageNumber > 1 AND ImageNumber < ImageCount Then		NextImage = "<A HREF=""fotos.asp?Path=" & Path & "&ImageNumber=" & (ImageNumber + 1) & """>Próxima</A>"		PreviousImage = "<A HREF=""fotos.asp?Path=" & Path & "&ImageNumber=" & (ImageNumber - 1) & """>Anterior</A>"	Else		PreviousImage = "<A HREF=""fotos.asp?Path=" & Path & "&ImageNumber=" & (ImageNumber - 1) & """>Anterior</A>"	End If	Buttons = "<table width=380 height=10 border=0 cellpadding=0 cellspacing=0><tr><td width=50% align=left>"& PreviousImage &"</td><td width=50% align=right>"& NextImage &"</td></tr></table>"End Function%><table width="400" border="0" cellspacing="0" cellpadding="0" align="center">  <TR>	<TD ALIGN="center">	  <%	  Response.Write("<IMG SRC=""" & Path & "/"& ImageNumber & ".jpg" & """ border=2>")	  %>		  </TD>  </TR>  <TR>	<TD width="400" ALIGN="center">	  <%=Buttons(ImageCount, ImageNumber)%></TD>  </TR></TABLE>

Obrigado pela força, shumi!!

Abraços.

[shumi 0]

beleza cara!

qualquer coisa estamos ai! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Abração

[jrcardozo 4]

Título do tópico alterado devido a 09ª RegradeAlguém pode me dar uma ajudinha?paraProblemas na querystring