您所在位置：主题：大家帮忙解释一下代码
zhujialin
[专家分：50] 发布于 2007-07-25 14:36:00
大家帮忙具体解释一下下面代码，做一下注释：
<% Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From bbs Order By time Desc,re_time Desc"
Rs.Open Sql,conn,3,3
If IsNumeric(Request("Page"))=false Or Request("Page")="" Then
Page=1
Else
Page=CInt(Request("Page"))
End if
Rs.PageSize=10 '每页显示的帖子数
If Rs.EOF Or Rs.BOF Then
Response.Write "<tr><td height='25' align='center' bgcolor='#FFFFFF' colspan='5'>该论坛目前还没有帖子！</td></tr>"
Else
myPageSize=Rs.PageSize
Rs.AbsolutePage=Page
Do While not Rs.Eof And myPageSize>0
%>
<% Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From bbs Order By time Desc,re_time Desc"
Rs.Open Sql,conn,3,3
If IsNumeric(Request("Page"))=false Or Request("Page")="" Then
Page=1
Else
Page=CInt(Request("Page"))
End if
Rs.PageSize=10 '每页显示的帖子数
If Rs.EOF Or Rs.BOF Then
Response.Write "<tr><td height='25' align='center' bgcolor='#FFFFFF' colspan='5'>该论坛目前还没有帖子！</td></tr>"
Else
myPageSize=Rs.PageSize
Rs.AbsolutePage=Page
Do While not Rs.Eof And myPageSize>0
%>
