<%id=request("id") set arrs=server.createobject("adodb.recordset") arsql="select * from article where id="&id arrs.open arsql,conn,1,3 classname=arrs("classname") if arrs("keywords")<>"" then Keywords=arrs("keywords") else Keywords=arrs("title")&"_"&website end if %> _<%=website%>" name=Description> <%=arrs("title")%>_<%=website%>
当前位置:<%=website%> >>"><%=arrs("classname")%>

<%=arrs("title")%>



<% listpage=request("listpage") arrcontent=split(arrs("content"),"$$$") InnerPageNum=ubound(arrcontent) if listpage="" then listpage=1 end if response.Write arrcontent(listpage-1) %>

发布日期:<%=arrs("addtime")%>    <% hits=arrs("hits") arrs("hits")=hits+1 arrs.update response.Write " 阅读 " & hits+1 & " 次" %>   
<% 'rollnum=listpage id=arrs("id") if InnerPageNum<>0 then if listpage=1 then response.Write "[上一页] " else response.Write "[上一页] " end if for pagerollnum=0 to InnerPageNum if pagerollnum=listpage-1 then response.Write (pagerollnum+1)&" " else response.Write "["&pagerollnum+1&"] " end if next if (listpage-1) = InnerPageNum then response.Write "[下一页]" else response.Write "[下一页] " end if 'response.Write listpage &"fdafdas" &(InnerPageNum+1) end if %>
<% arrs.close set arrs=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 %>