ASP新闻分页问题

来源：百度知道编辑：UC知道时间：2024/05/22 14:47:41

<%
flag="尚未处理"
set rs=server.createobject("adodb.recordset")
sqltext="select * from Conews Order BY id desc"
rs.open sqltext,conn,3,3
dim PerPage
PerPage=5
'假如没有数据时
If rs.eof and rs.bof then
call showpages
response.write "还没任何新闻"
response.end
End if
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
text="0123456789"
Rs.PageSize=PerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageC

ASP简单分页调用实例，请先保存fy_set.asp和fy_get.asp两个文件，然后调用示例

示例：
将以下代码保存为test.asp
<%
set Conn = server.CreateObject("ADODB.Connection")
Path = Server.MapPath("/")&"/data/xx.mdb"
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Path+";Persist Security Info=False")
set rs=server.CreateObject("ADODB.recordset")
sql="select * from table1"
%>

<%
while not rs.eof and n>0
response.write rs(0)
response.write rs(1)
response.write " "
n = n - 1
rs.movenext
wend
%>


将以下代码保存为fy_set.asp
<%
' ========在包含此段代码前您必须准备好以下变量========
' conn -> 数据库连接对象,已经打开
' rs -> 记录集,处于关闭状态
' sql -> SQL语句
' page

ASP新闻分页问题 asp新闻过长分页问题 asp问题?分页问题 asp类别新闻文章分页请教！求教ASP分页问题 asp分页的问题 asp分页显示问题? 关于ASP分页问题? asp分页问题 ASP分页错误问题