UC知道asp查询后分页
来源：百度知道 编辑：UC知道 时间：2024/05/14 03:33:54
请高手帮在此基础上帮我改成可用的
<%
key=request("key")
opt=request("opt")
spm=request.form("key")
szy=request.form("主演")
szz=request.form("作者")
if trim(spm)="" and trim(szy)="" and trim(szz)="" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from szzz order by sdate desc"
rs.open sql,conn,1,1
end if
if trim(spm)<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from szzz where spm like '%"&trim(spm)&"%' order by sdate desc" '按HITS从大到小排列，ASC和DESC相反
rs.open sql,conn,1,1
end if
if trim(szy)<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from szzz where szy like '%"&szy&"%' order by sdate desc"
rs.open sql,conn,1,1
end i
<%
key=request("key")
opt=request("opt")
spm=request.form("key")
szy=request.form("主演")
szz=request.form("作者")
if trim(spm)="" and trim(szy)="" and trim(szz)="" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from szzz order by sdate desc"
rs.open sql,conn,1,1
end if
if trim(spm)<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from szzz where spm like '%"&trim(spm)&"%' order by sdate desc" '按HITS从大到小排列，ASC和DESC相反
rs.open sql,conn,1,1
end if
if trim(szy)<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from szzz where szy like '%"&szy&"%' order by sdate desc"
rs.open sql,conn,1,1
end i
这个分页绝对能用，我写的哈，拿去该成自己的数据库连接，和数据字段就好了，我用的SQL数据库
<%
Set conn=Server.CreateObject("ADODB.Connection")
'conn.ConnectionString="driver={SQL Server};server=127.0.0.1;uid=ms;pwd=123;database=AS_message"
conn.open"DSN=aspdbs;UID=sm;PWD=123;Database=AS_message"
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection=conn
rs.CursorType=3
rs.open"select * from message"
rs.pagesize=3
page=Clng(Request.QueryString("page"))
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
rs.AbsolutePage=page
%>
<table width="642" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#666666" bordercolordark="#CCCCCC" bgcolor="#FFFFFF">
<tr>
<td colspan="2&quo