CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

intercore Nybegynder

06. marts 2001 - 19:24 Der er 9 kommentarer og
1 løsning

Kun 10 søgeresultater af gangen

Hjælp.
Jeg har et problem jeg vil gerne have lavet paging i dette script. jeg har forsøgt på www.activeserverpage.dk men jeg kan stadig ikke finde ud af det.
Sådan ser scriptet ud og jeg vil blive meget meget glad hvis du vil lave det sådan at der kommer 10 søgeresultater af gangen.

<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")
Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
strSQL = \"SELECT LinkID, LinkName, LinkDesc, LinkURL, LinkHits, LinkID, LinkAdded, LinkWord, LinkPlus FROM links WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<CENTER><A HREF=\"\"default.asp\"\" TARGET=\"\"_top\"\">Hjem</A> : Søgeresultat fra Søg</CENTER>\"
Response.Write \"<center>\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" bgcolor=\"\"#000000\"\">\"
Do While Not rs.EOF
Response.Write \"<tr><td width=100% bgcolor=#006bb6>\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\" Besøg fra Søg : \" & rs(\"LinkHits\") & \" Adresse : \" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>Besøg</a> <HR></td></tr>\"
rs.MoveNext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<center><A HREF=default.asp>Websøg</a> fandt intet der svarede til dit søgeord Tilbage til start? <A HREF=default.asp>Klik her</A></center>\"
End If
myConn.Close
Set myConn = Nothing
%>

Synes godt om

netsrac Praktikant

06. marts 2001 - 19:26 #1

Et spørgsmål må KUN oprettes engang!
http://www.eksperten.dk/spm/54759
http://www.eksperten.dk/spm/54746
http://www.eksperten.dk/spm/54726

Synes godt om

slash Nybegynder

06. marts 2001 - 19:32 #2

det var da det mest uoverskuelige kode jeg længe har set! Hvis du sætter det bedre op er der > mulighed for hjælp!

Synes godt om

intercore Nybegynder

06. marts 2001 - 19:33 #3

<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")

Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

strSQL = \"SELECT LinkID, LinkName, LinkDesc, LinkURL, LinkHits, LinkID, LinkAdded, LinkWord, LinkPlus FROM links WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")

myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

Response.Write \"<CENTER><A HREF=\"\"default.asp\"\" TARGET=\"\"_top\"\">Hjem</A> : Søgeresultat fra Søg</CENTER>\"
Response.Write \"<center>\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" bgcolor=\"\"#000000\"\">\"
Do While Not rs.EOF
Response.Write \"<tr><td width=100% bgcolor=#006bb6>\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\" Besøg fra Søg : \" & rs(\"LinkHits\") & \" Adresse : \" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>Besøg</a> <HR></td></tr>\"
rs.MoveNext

Loop
Response.Write \"</table>\"
Else

Response.Write \"<center><A HREF=default.asp>Websøg</a> fandt intet der svarede til dit søgeord Tilbage til start? <A HREF=default.asp>Klik her</A></center>\"
End If

myConn.Close
Set myConn = Nothing
%>

Synes godt om

intercore Nybegynder

06. marts 2001 - 19:34 #4

<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")

Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

strSQL = \"SELECT LinkID, LinkName, LinkDesc, LinkURL, LinkHits, LinkID, LinkAdded, LinkWord, LinkPlus FROM links WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")

myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

Response.Write \"<CENTER><A HREF=\"\"default.asp\"\" TARGET=\"\"_top\"\">Hjem</A> : Søgeresultat fra Søg</CENTER>\"

Response.Write \"<center>\"

Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" bgcolor=\"\"#000000\"\">\"

Do While Not rs.EOF

Response.Write \"<tr><td width=100% bgcolor=#006bb6>\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\" Besøg fra Søg : \" & rs(\"LinkHits\") & \" Adresse : \" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>Besøg</a> <HR></td></tr>\"
rs.MoveNext

Loop
Response.Write \"</table>\"
Else

Response.Write \"<center><A HREF=default.asp>Websøg</a> fandt intet der svarede til dit søgeord Tilbage til start? <A HREF=default.asp>Klik her</A></center>\"

End If

myConn.Close
Set myConn = Nothing
%>

Synes godt om

intercore Nybegynder

06. marts 2001 - 19:35 #5

<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")

Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

strSQL = \"SELECT LinkID, LinkName, LinkDesc, LinkURL, LinkHits, LinkID, LinkAdded, LinkWord, LinkPlus FROM links WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")

myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

Response.Write \"<CENTER><A HREF=\"\"default.asp\"\" TARGET=\"\"_top\"\">Hjem</A> : Søgeresultat fra Søg</CENTER>\"

Response.Write \"<center>\"

Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" bgcolor=\"\"#000000\"\">\"

Do While Not rs.EOF

Response.Write \"<tr><td width=100% bgcolor=#006bb6>\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\" Besøg fra Søg : \" & rs(\"LinkHits\") & \" Adresse : \" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>Besøg</a> <HR></td></tr>\"
rs.MoveNext

Loop
Response.Write \"</table>\"
Else

Response.Write \"<center><A HREF=default.asp>Websøg</a> fandt intet der svarede til dit søgeord Tilbage til start? <A HREF=default.asp>Klik her</A></center>\"

End If

myConn.Close
Set myConn = Nothing
%>

Nu skulle den være der

Synes godt om

tpiil Nybegynder

06. marts 2001 - 19:38 #6

<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")
Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT LinkID, LinkName, LinkDesc, LinkURL, LinkHits, LinkID, LinkAdded, LinkWord, LinkPlus FROM links WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
rs.Open strSQL, myConn, 1
intPage = Request(\"side\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
If not (rs.BOF Or rs.EOF) Then
rs.PageSize = \"10\"
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
end if
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<CENTER><A HREF=\"\"default.asp\"\" TARGET=\"\"_top\"\">Hjem</A> : Søgeresultat fra Søg</CENTER>\"
Response.Write \"<center>\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" bgcolor=\"\"#000000\"\">\"
Do While Not rs.EOF And intRecCount > 0
Response.Write \"<tr><td width=100% bgcolor=#006bb6>\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\" Besøg fra Søg : \" & rs(\"LinkHits\") & \" Adresse : \" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>Besøg</a> <HR></td></tr>\"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<center><A HREF=default.asp>Websøg</a> fandt intet der svarede til dit søgeord Tilbage til start? <A HREF=default.asp>Klik her</A></center>\"
End If
If Clng(intPageCount) > 1 Then %>
<center>\" size=\"2\">Side
<%
For intNum = 1 To intPageCount
%>
<a href=\"?id=<%=request(\"id\")%>&side=<%=intNum%>\"><%=intNum%></a>
<%
Next
myConn.Close
Set myConn = Nothing
%>

Synes godt om

tpiil Nybegynder

06. marts 2001 - 19:39 #7

<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")
Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT LinkID, LinkName, LinkDesc, LinkURL, LinkHits, LinkID, LinkAdded, LinkWord, LinkPlus FROM links WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
rs.Open strSQL, myConn, 1
intPage = Request(\"side\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
If not (rs.BOF Or rs.EOF) Then
rs.PageSize = \"10\"
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
end if
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<CENTER><A HREF=\"\"default.asp\"\" TARGET=\"\"_top\"\">Hjem</A> : Søgeresultat fra Søg</CENTER>\"
Response.Write \"<center>\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" bgcolor=\"\"#000000\"\">\"
Do While Not rs.EOF And intRecCount > 0
Response.Write \"<tr><td width=100% bgcolor=#006bb6>\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\" Besøg fra Søg : \" & rs(\"LinkHits\") & \" Adresse : \" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>Besøg</a> <HR></td></tr>\"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<center><A HREF=default.asp>Websøg</a> fandt intet der svarede til dit søgeord Tilbage til start? <A HREF=default.asp>Klik her</A></center>\"
End If
If Clng(intPageCount) > 1 Then %>
<center>Side
<%
For intNum = 1 To intPageCount
%>
<a href=\"?id=<%=request(\"id\")%>&side=<%=intNum%>\"><%=intNum%></a>
<%
Next
myConn.Close
Set myConn = Nothing
%>

Synes godt om

tpiil Nybegynder

06. marts 2001 - 19:41 #8

hvis der er fejl i vil jeg godt lige have db\'en til tpiil@netstuff.dk

Synes godt om

slash Nybegynder

06. marts 2001 - 19:46 #9

har du forresten overvejet at anvende CSS til formattering af text, tabeller, etc. - eller droppe det indtil koden virker?

Nå, men har brugt copy/paste fra www.active...dk - ved ikke om det virker idet jeg ikke benytter denne pagingløsning til daglig, men derimod arbejder jeg med arrays og pager i dem! PS: target=_new findes ikke i html4.0 specifikationen!

<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")

Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

strSQL = \"SELECT LinkID, LinkName, LinkDesc, LinkURL, LinkHits, LinkID, LinkAdded, LinkWord, LinkPlus FROM links WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")

myConn.Open strDSN
Set rs = myConn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write \"Side \" & intPage & \" af \" & intPageCount & \"\"
Do While Not rs.EOF And intRecCount > 0
Response.Write \"<tr><td width=100% bgcolor=#006bb6>\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_blank>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\" Besøg fra Søg : \" & rs(\"LinkHits\") & \" Adresse : \" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_blank>Besøg</a> <HR></td></tr>\"

intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write \"Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<a href=default.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=default.asp?page=\" & intPage - 1 & \"><<</a>\"
Else
Response.Write \"<<\"
End If

Response.Write \" \"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=default.asp?page=\" & intPage + 1 & \">>></a> \"
Else
Response.Write \">>\"
End If
%>

Synes godt om

tpiil Nybegynder

06. marts 2001 - 20:21 #10

koden blev sådan her, jeg hjalp ham over mail:
<%
strKeyword = Trim(Request(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")
Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT LinkID, LinkName, LinkDesc, LinkURL, LinkHits, LinkID, LinkAdded, LinkWord, LinkPlus FROM links WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
rs.Open strSQL, myConn, 1
intPage = Request(\"side\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
If not (rs.BOF Or rs.EOF) Then
rs.PageSize = \"10\"
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
end if
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<CENTER><A HREF=\"\"default.asp\"\" TARGET=\"\"_top\"\">Hjem</A> : Søgeresultat fra Søg</CENTER>\"
Response.Write \"<center>\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" bgcolor=\"\"#000000\"\">\"
Do While Not rs.EOF And intRecCount > 0
Response.Write \"<tr><td width=100% bgcolor=#006bb6>\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\" Besøg fra Søg : \" & rs(\"LinkHits\") & \" Adresse : \" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>Besøg</a> <HR></td></tr>\"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
Response.Write \"</table>\"
Else
Response.Write \"<center><A HREF=default.asp>Websøg</a> fandt intet der svarede til dit søgeord Tilbage til start? <A HREF=default.asp>Klik her</A></center>\"
End If
If Clng(intPageCount) > 1 Then %>
<center>Side
<% end if %>
<%
For intNum = 1 To intPageCount
%>

<a href=\"?Keyword=<%=request(\"Keyword\")%>&side=<%=intNum%>\"><%=intNum%></a>

<%
Next
myConn.Close
Set myConn = Nothing
%>

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS