换页带上参数
if page<>1 then
response.write " <a href=XXX.asp?txtpage=1&keyword="&keyword&"><font size=2>第一页</font></a>"
response.write " <a href=XXX?txtpage="&(page-1)&"&keyword="&keyword&"><font size=2>上一页</font></a>"
end if
if page<>rs.pagecount then
response.write " <a href=XXX.asp?txtpage="&(page+1)&"&keyword="&keyword&"><font size=2>下一页</font></a>"
response.write " <a href=XXX.asp?txtpage="&rs.pagecount&"&keyword="&keyword&"><font size=2>最后一页</font></a>"
end if
<%
keyword=request.form("cn")
set mycon=server.createobject("adodb.connection")
set mycom=server.createobject("adodb.command")
set myrec=server.createobject("adodb.recordset")
mycon.open "driver={sql server};server=hxy;Password=qf;User ID=sa;Database=agricultures"
myrec.open "select cid,cname from dbo.companys1 where cname like '%"&keyword&"%'",mycon,3,3
%>
<table width="90%" border="0">
<tr>
<td>
<%
if keyword="" then
response.write(" ")
else
if myrec.bof and myrec.eof then
response.write("未搜索到相关纪录,请做其他尝试")
%>
</td>
</tr>
<%
else
nowpage=request.querystring("page")
if nowpage="" then
ispage=1
else
ispage=nowpage
end if
myrec.pagesize=3
myrec.absolutepage=ispage
totpage=myrec.pagecount
while ( i<3 and not myrec.eof)
%>
<tr><td><%=myrec.fields(1).value%></td></tr>
<%
i=i+1
myrec.movenext
wend
%>
<tr><td>
<%
response.write("总共搜索到"&totpage&"页")
for j=1 to totpage
If j = CInt(Request.QueryString("page")) Then
Response.Write"["&j&"]"
Else
Response.Write"<a href='page.asp?page="&j&"cn="&keyword&"'>["&j&"]</a>"
End If
next
myrec.close
end if
end if
%>
</td></tr>
</table>