asp 高手请进！！！！搜索分页

来源：百度知道 编辑：UC知道 时间：2024/06/28 15:00:37
我弄了好久都不行，麻烦那位大侠帮我写写！
提交表单名为key
我的数据源名是“connection”
数据表为shop
从shop表里筛选sp_keyword like key
搜索分页数为6 文件名暂定为cc.asp

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->

<%

dim key
dim sql
dim rs
dim rscount
dim page_count
dim page_size
dim currentpage
dim str_search
page_size=10

key=request("key")
if key<>"" then
str_search="key="& key
end if
sql="select * from shop where topic like '%"& key &"%' or content like '%"& key &"%' order by hot desc"

set rs = CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.movelast
rscount=rs.recordcount
rs.pagesize=page_size
page_count=rs.pagecount
if request("currentpage")<>"" then
currentpage=request("currentpage")
if currentpage<=1 then currentpage=1
'if currentpage>=page_count then currentpage=