至顶网›软件频道 ›asp 用存储过程实现数据分页2

asp 用存储过程实现数据分页2

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

　　四、search_koushi.asp

作者：佚名来源：asp论坛 2007年9月25日

　四、search_koushi.asp

<%
line=6
if request("page")="" then
page=1
else
page=request("page")
end if

if page<1 then
page=1
end if

title=trim(request("title"))
list2_id=trim(request("list2_id"))
set rs2=conn.execute("sp_c ''tiku_koushi'',''"&title&"'',''"&list2_id&"''")
pagecount=CInt(rs2(0)\line)
if(CInt(rs2(0)) mod line)=0 then
pagecount=pagecount
else
pagecount=pagecount+1
end if

if CInt(page)>=pagecount then
page=CInt(pagecount)
end if
str=""
str=str&"page="&page&"&title="&title&"&list2_id="&list2_id
set rs=conn.execute

("sp_search_tiku ''tiku_koushi'',''"&title&"'',''"&list2_id&"'',''"&line&"'',''"&CInt(page)&"''")
if rs.eof then
response.write "no record"

else
%>
<html>

<head>

td{font-size:12px;}

a{text-decoration:none;}

</style>
<script language="javascript">
</script>
</head>

<td width="454" align="center" height=24 valign="middle">口试题的题目</td>

</tr>

<% do until rs.eof %>

<td valign="middle">·<a href=void(0)"

onclick="window.open(''editkoushi.asp?id=<%=rs("id")%>&page=<%=page%>&title=<%=title%>&list2_id=<%=list2_id%>'','''',''width=518
height=160 left=100'')">

<%=rs("title")%></a></td>

</tr>

rs.movenext

loop

<a href="search_koushi.asp?page=<%=1%>&title=<%=title%>&list2_id=<%=list2_id%>">首页</a>　<a
href="search_koushi.asp?page=<%=page-1%>&title=<%=title%>&list2_id=<%=list2_id%>">上一页</a>　<a
href="search_koushi.asp?page=<%=page+1%>&title=<%=title%>&list2_id=<%=list2_id%>">下一页</a>　<a
href="search_koushi.asp?page=<%=pagecount%>&title=<%=title%>&list2_id=<%=list2_id%>">末页</a>　　

一共 <%=pagecount%> 页　当前页为: <%=page%>/<%=pagecount%> 页

　　共有 <%=rs2(0)%> 条记录</td>

</tr>

</table>

</body>

</html>

<%
rs2.close

set rs2=nothing

rs.close

set rs=nothing

end if