Ir para conteúdo

POWERED BY:

Arquivado

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

neotheone

Problemas com a paginação

Por , em ASP Clássico

Recommended Posts

neotheone    0

neotheone
Postado

Estou com problemas na paginação, o script está:

http://www.wilsonsons.com.br/bancodeimagens

 

digitem no campo de busca a palavra: terminal , vcs veram q ira aparecer 2 paginas, sendo q na segunda ela nao aparece o resto das fotos, o q pode está havendo? sds Felipe

 

 

 

 

 

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

 

Dim strURL

 

 

Dim cnnSearch

Dim rstSearch

Dim strDBPath

 

Dim strSQL

Dim strSearch

inicio = Timer

 

'#Função que tira todos os acentos das palavras

function TiraAcento(StrAcento)

for i = 1 to len(StrAcento)

Letra = mid(StrAcento, i, 1)

Select Case Letra

Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

Letra = "A"

Case "é","É","ê","Ê","Ë","ë","È","è"

Letra = "E"

Case "í","Í","ï","Ï","Ì","ì"

Letra = "I"

Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

Letra = "O"

Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

Letra = "U"

Case "ç","Ç"

Letra = "C"

Case "ñ"

Letra = "N"

End Select

texto = texto & Letra

next

TiraAcento = texto

end function

 

 

strURL = Request.ServerVariables("URL")

 

strSearch = Request.QueryString("search")

 

%>

<html>

<head>

<style>

<!--

a {text-decoration:none}

a:hover {text-decoration:underline; color:black}

a:active {text-decoration:none; color:black}

a:visited {text-decoration:underline; color:black}

-->

</style>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

 

<p> </p>

<table align="center" width="688" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

<td height="128" colspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

<td width="688" height="128"><form action="<%= strURL %>" method="get">

<div align="center">

<input name="search" value="<%= strSearch %>" />

<input name="submit" type="submit" value="Pesquisar" />

</div>

</form>

<p align="center">

<%

If strSearch <> "" Then

 

strDBPath = Server.MapPath("imagens.mdb")

 

Const adUseClient = 3

 

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

cnnSearch.CursorLocation = adUseClient

 

Set rs=server.CreateObject("ADODB.RecordSet")

nomepagina="procura-imagens.asp"

registros=2

 

sql="select * from imagens"

rs.open sql, cnnSearch,3,3

 

if rs.eof then

response.Write("nenhum registro foi encontrador")

 

else

if Request.QueryString("pagina")=""then

pagina=1

elseif cint(Request.QueryString("pagina"))<1 then

pagina = 1

elseif cint(Request.QueryString("pagina"))>rs.PageCount then

pagina = rs.PageCount

else pagina=Request.QueryString("pagina")

end if

end if

 

rs.AbsolutePage = pagina

 

contador=0

 

 

 

strSQL = "SELECT id, imagem, categoria, descricao, link " _

& "FROM imagens " _

& "WHERE chave LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' "

 

 

Set rstSearch = cnnSearch.Execute(strSQL)

intContador = rstSearch.RecordCount

limite_coluna=3

%>

</p></td>

</tr>

</table></td>

</tr>

<tr>

<td width="292" height="78"></td>

<td width="120" valign="top"><table width="120" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF">

<!--DWLayoutTable-->

<%

 

 

do while contador<registros and not rs.eof

 

 

%>

<tr>

<%

for coluna = 1 to limite_coluna

if rstSearch.EOF then

response.write "<td> </td>"

 

else

%>

<td width="116" height="58" valign="top"><p><img src="<%=rstSearch("imagem")%>" alt="Imagem"></p>

<p><a href="<%=rstSearch("link")%>">link</a></p></td>

<%

rs.MoveNext

contador=contador+1

 

%>

<%

end if

if not rstSearch.EOF then rstSearch.MoveNext

next

%>

</tr>

<%

if rstSearch.BOF then rstSearch.MoveNext

Loop

%>

 

<%

if rs.eof then

response.Write("")

end if

for i=1 to rs.pagecount

response.Write(("<a href="&nomepagina&"?pagina="&i&">")&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a> ")

next%>

 

 

</table></td>

<td width="276"></td>

</tr>

<tr>

<td height="30"></td>

<td valign="top"><!--DWLayoutEmptyCell--> 

 

</td>

<td></td>

</tr>

<tr>

<td height="18"></td>

<td valign="top">

<%

rs.Close

set rs=nothing

rstSearch.Close

Set rstSearch = Nothing

cnnSearch.Close

Set cnnSearch = Nothing

end if

%>

</td>

<td></td>

</tr>

<tr>

<td height="1244"></td>

<td> </td>

<td></td>

</tr>

</table>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

Se clicar na página 1 também não aparece nada.

 

Não li o seu código, por isso pergunto: como você fez para manter os parâmetros da busca entre as páginas? Acho que o erro pode estar aí.

 

[]s

 

É isso mesmo.

 

Dá uma olhada:

 

se clicar no link:

 

http://www.wilsonsons.com.br/bancodeimagen...ns.asp?pagina=1

 

passando o search na query:

 

http://www.wilsonsons.com.br/bancodeimagen...search=terminal

 

Fununcia!!!!

 

Agora tem outro erro:

 

http://www.wilsonsons.com.br/bancodeimagen...search=terminal

 

teste

 

mais um teste

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