Bygg en egen sökmotor #4
Förord
Nu skall vi börja rita ut våran tabell som skall presentera sökresultatet som sågs på föregående sida. Genom att använda den html kod som ritade ut resultatet - så använder vi den och arbetar in våra variabler och mer html-kod för att få en fin tabellInnehåll
Relaterade artiklar
» Bygg en egen sökmotor #1» Bygg en egen sökmotor #2
» Bygg en egen sökmotor #3
<%
Sub CreateReport (rst)
..
DrawNavBar= DrawNavBar & ""
PageInfo = " (" & page_id & "/" & pages & ")"
response.Write "Sökresultat (" & trim(totrec) & ")
"
response.Write " Sida:" & PageInfo & "
End If
..
InsertSplitRow
do while not rst.eof
tmp=tmp+1
WriteRecord rst
rst.movenext
if rst.eof or tmp => RecPerPage then exit do
loop
InsertSplitRow
..
Avslutar med att presentera sida (1 2 3).
End Sub
%>
Jag börjar med att fråga om det i asp-scriptet skickas med page_id som är den sida vi vill titta på när vi bläddrar oss igenom sökresultaten. Därefter sätter jag en variabel till 15 för vi skall visa just 15 poster per sida. I och med att vi lägger detta i en variabel kan vi lätt ställa in det antal som passar för just denna typen av sökning.
Splitrow rutinen ritar bara ut en linje tvärs över som en avgränsare. Eftersom rutinen kallas mer än en gång så sparar jag lite plats och kod genom att göra det till en rutin istället för att placera ut det flera gånger.
<%
Sub InsertSplitRow
response.write ""
response.write " ![]()
response.write " "
End Sub
%>
Writerecord rutinen är det rutin som egentligen ritar ut allting.
Todo:
Skriva klart hanteringen för writerecord, därefter är det dags att förklara vad som görs och slutligen summera och bygga ett testprojekt av detta
Jonas Boman
Samt en del fel i koden