<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select id,Title,hits,addtime,ClassName,classid from article where classid="&classid&" order by id desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("
没有符合要求的文章 ")
else
rs.PageSize=newsperpage
page=clng(request("page"))
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
Title = rs("Title")
turl="article.asp?id="&rs("id")
hits= rs("hits")
addtime=rs("addtime")
response.Write "" & vbCrLf
rs.movenext
if rs.eof then exit for
next
%>
<%
end if
set rs=nothing%> |
|
|
|
|
<%
set getrs=server.createobject("adodb.recordset")
sql="select top "&tjrownum&" id,title from article where tj=1 order by id desc"
getrs.open sql,conn,1,1
tt=1
if getrs.bof then
str= "暂时还没有信息!"
else
do while not getrs.eof
bttitle=replace(getrs("title"),chr(32),"")
xstitle=gotTopic(bttitle,tjzinum)
%>
<%
getrs.movenext
tt=tt+1
loop
end if
getrs.close
set getrs=nothing
%>
|
|
<%
set getrs=server.createobject("adodb.recordset")
sql="select top "&tjrownum&" id,title from article order by hits desc,id"
getrs.open sql,conn,1,1
tt=1
if getrs.bof then
str= "暂时还没有信息!"
else
do while not getrs.eof
bttitle=replace(getrs("title"),chr(32),"")
xstitle=gotTopic(bttitle,tjzinum)
%>
<%
getrs.movenext
tt=tt+1
loop
end if
getrs.close
set getrs=nothing
%>
|
|
<%
set getrs=server.createobject("adodb.recordset")
sql="select top "&tjrownum&" id,title from article order by id desc"
getrs.open sql,conn,1,1
tt=1
if getrs.bof then
str= "暂时还没有信息!"
else
do while not getrs.eof
bttitle=replace(getrs("title"),chr(32),"")
xstitle=gotTopic(bttitle,tjzinum)
%>
<%
getrs.movenext
tt=tt+1
loop
end if
getrs.close
set getrs=nothing
%>
|
|