paging
hej jeg har et problem med noget kode.problemmet er at når man søger for eksemple på "L" så udskriver den også navne som ikke indholder "L"
håber dette givermening!
Her har i koden:
Del 1: index.asp :
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="includes/config.asp" -->
<!-- #include file="dbconnect.asp" -->
<%
mycase = request.QueryString("mycase")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>test</title>
</head>
<body>
<html>
<table cellpadding="0" cellspacing="0" width="153">
<tr> <form action="index.asp?mycase=searchres" method="post">
<td width="110"><input type="text" name="sog" style="width:110px; border:1px #000 solid;" /></td>
<td width="43"><input type="submit" value="Ok" style="width:43px; height:22px;"/></td>
</form>
</tr>
</table>
<br /><br />
<!-- #include file="case.asp" -->
</body>
</html>
del 2 case.asp :
<%
page = request.QueryString("page")
Select Case mycase
Case "searchres"
session("sog") = replace(replace(server.HTMLEncode(request.Form("sog")),"'",""),"=","")
set antal = conn.execute("select count(*) as records from bruger where brugernavn like '%"&session("sog")&"%' ")
Records = Clng(antal("records"))
antal.close
set antal = nothing
page = request.QueryString("Page")
if page = "" or not isNumeric(page) then
page = int(1)
else
page = int(page)
end if
PageSize = int(10)
Start = page*PageSize
Start = Start-PageSize
j = records/PageSize
If j/1 = int(j) Then
Pages = j
Else
Pages = int(j)+1
End if
set pro = conn.execute("select * from bruger where brugernavn like '%"&session("sog")&"%' order by ID asc LIMIT " & Start & ", " & PageSize & "")
if (pro.eof or pro.bof) then%>
Din søgning gav ikke noget resultat!
<% else %>
<% do until pro.eof%>
<a href="index.asp?mycase=showseachs&id=<%=pro("ID")%>"><%=pro("brugernavn")%></a> <br />
<%
pro.movenext
loop %>
<% end if %>
<br />
<div id="pageskift">
<% if not records < pagesize then
For i = 1 to Pages
if i = page then
Response.Write "<span class='skift'><strong>" & i & "</strong></span> "
else
Response.Write "<a href='index.asp?mycase=searchres&Page=" & i & "' class='prolink'>"
Response.Write i
Response.Write "</a> "
end if
next
end if
%>
<%
case "showseachs"
id = request.QueryString("id")
sql = "SELECT * FROM bruger WHERE ID="&id
set rs = Conn.Execute(sql)
%>
<%do until rs.eof %>
<%=rs("bruger_tekst")%><br />
<%rs.movenext
loop %>
<%
end select
%>
