Question

这段代码是什么意思，请高手详细解释下，我是新手，谢谢！

Call OpenConn
sql = "select * from qk_product order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If Not rs.eof then
rs.pagesize=8
curpage = request.QueryString("curpage")
If curpage="" Or (Not IsNumeric(curpage)) Or CLng(curpage)<1 Then
curpage = 1
End If
curpage = CLng(curpage)
If curpage>rs.pagecount Then
curpage=rs.pagecount
response.end
End If
rs.absolutepage=curpage
index = 1
For i=1 To rs.pagesize
If rs.eof Or rs.bof Then
Exit For
End If

Answer 1

Call OpenConn '打开数据库连接
sql = "select * from qk_product order by id desc" '赋值，SQL查询语句
Set rs = Server.CreateObject("ADODB.Recordset") '创建记录集实例
rs.open sql,conn,1,1 '打开记录集
If Not rs.eof then '判断记录是否存在，这里表示存在
rs.pagesize=8 '设置每页记录数
curpage = request.QueryString("curpage") '获取curpage参数值
If curpage="" Or (Not IsNumeric(curpage)) Or CLng(curpage)<1 Then '如果curpage为空、非数字或小于1，重新赋值curpage为1
curpage = 1
End If
curpage = CLng(curpage) '转换格式为长整型
If curpage>rs.pagecount Then '判断页码是否大于记录分页总页数，大于就重新赋值为总页数
curpage=rs.pagecount
response.end
End If
rs.absolutepage=curpage '移动指针到当前页码
index = 1 '赋值
For i=1 To rs.pagesize '循环，从1到每页记录数
If rs.eof Or rs.bof Then '如果指针移到最后就退出循环
Exit For
End If

追问

curpage = request.QueryString("curpage") '获取curpage参数值
我在代码里面,并没有找到相关curpage的值呢

果然是高手啊.但有些地方我还是有点迷,能否留下Q 呢.

追答

curpage是来源页传递过来的参数，就是分页的页码，比如当前页页码是5，下一页链接带的curpage参数值就是6，上一页是4.

追问

哥哥,能认识下吗,留个Q 好吗?

追答

QQ满了 不好意思 百度HI

追问

你的HI账号是?

追答

跟这个一样的啊

追问

麻烦认证下,谢谢你了