|
|
|
 |
|
|
<%
set rs_fy=server.createobject("adodb.recordset")
sqltext4="select * from SmallClass_New where BigClassName='"&owen1&"' and isMenu = 0 order by orderby"
rs_fy.open sqltext4,conn,1,1
For j = 1 To rs_fy.RecordCount
If rs_fy.Eof or rs_fy.bof Then Exit For
%>
|
|
<%
rs_fy.movenext
Next
rs_fy.close
%>
|
|
|
|
|
|
|
|
|
|
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if owen1<>"" and owen2 <>"" then
sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc"
rs.Open sql,conn,1,1
elseif owen1<>"" then
sql="select * from news where BigClassName='"&owen1&"' order by id desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=20
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
◎ |
"><%= RS("TITLE") %> [<%= RS("infotime") %>] (阅读<%= RS("hits") %>次) |
<%
rs.movenext
if rs.eof then exit for
next
%>
|
<%
end if
rs.close
set rs=nothing
%>
|
|
|
|