<%classid=request("classid") set dhrs=server.createobject("adodb.recordset") dhsql="select * from class where id="&classid dhrs.open dhsql,conn,1,1 classname=dhrs("classname") dhrs.close set dhrs=nothing %> <%=classname%>_<%=website%>
当前位置:<%=website%> >> <%=classname%>


<% 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 "
"&addtime&"
阅读:"&hits&"次
" & vbCrLf rs.movenext if rs.eof then exit for next %>

<%if Page<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if rs.pagecount-page<1 then response.write "下一页 尾页" else response.write "" response.write "下一页 尾页" end if response.write " 页次:"&Page&"/"&rs.pagecount&"页 " response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页" response.write " 转到:" response.write " " %>
<% 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 %>