热点问题
<%
set rs=Server.CreateObject("adodb.recordset")
sql="select * from news where classid="&request("id")&" and flag=1 order by adddate desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.Write"| 没有相关记录！ | "
else
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize =15
total = rs.RecordCount
mypagesize=rs.pagesize
rs.absolutepage = page
do while not rs.eof and mypagesize>0
%>
> <%=rs("adddate")%> | <%=rs("title")%> |
<%
mypagesize=mypagesize-1
rs.movenext
loop%>
|
|
<%end if
rs.close
set rs=nothing
%>
|
