UC知道谁能帮我的asp页面数据显示分页啊！
来源：百度知道 编辑：UC知道 时间：2024/05/18 05:30:23
谢谢大家了！
还有一个，能帮我页面分页吗？就是让它每10个数据分一页．！
能帮我改下吗？我有分一定加分的！
代码是:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="cnscu_sb.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head
还有一个，能帮我页面分页吗？就是让它每10个数据分一页．！
能帮我改下吗？我有分一定加分的！
代码是:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.inc"-->
<!--#include file="cnscu_sb.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head
<%
'该函数用来求出当前显示页码的最小值
Function minPage(page_no,page_total)
Dim numTemp
numTemp=(int((page_no-1)/10))*10+1
minPage=numTemp
End Function
'该函数用来求出当前显示页码的最大值
Function maxPage(page_no,page_total)
Dim numTemp
numTemp=(int((page_no-1)/10))*10+10
If numTemp>page_total Then
numTemp=page_total
End If
maxPage=numTemp
End Function
%>
<%
IF Request.QueryString("page")="" Then
page=1
Else
page=Request.QueryString("page")
end if
%>
<%id=usb(request("id"))
cz=usb(request("cz"))
set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from wap_pl where lid<>0 order by tm asc"
rs.open rsppl,conn,1,2
if rs.eof then
response.write("暂无评论<br/>")
else
rs.Move(0)
rs.PageSize=500000