<% adm=session("nickname") submit=request("submit") sql="select * from yfindex where good=1 order by time DESC" set rscust=server.createobject("adodb.recordset") rscust.cursortype=3 rscust.open sql,conn,1,3 '管理员选择精华文章----------- if submit="非精选文章" and adm<>"" then for each item in request("del_update") updatesql="update yfindex set good=0 where indexid="&item&"" conn.execute(updatesql) next end if '结束--------------- %> yfbbs

精 华 文 章 集 锦
<% if rscust.recordcount=0 then%>




精华文章未选出!!!




<% else%>
<% rscust.pagesize=20 page=clng(request.querystring("page_code")) if page<1 then page=1 if page>rscust.pagecount then page=rscust.pagecount rscust.AbsolutePage=page %>
 
本栏共有文章<%=rscust.recordcount%>篇 共有<%=rscust.pagecount%>页 本页是第<%=page%>页
发表文章
">
<% if page<>1 then ' response.write "第一页" response.write "上一页" end if if page<>rscust.pagecount then response.write "下一页 " ' response.write "最后一页" end if %>
<%if adm="asean" or adm="aser" then%>
<%end if%> <%for ipage=1 to rscust.pagesize sql="select * from users where userid="&rscust("userid") set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 %> <% rs.Close set rs=nothing rscust.movenext if rscust.eof then exit for next %>
回应   主 题 作 者 浏览数 发表时间
<%=rscust("renum")%> .gif"> <%if adm="asean" or adm="aser" then%> "> <%end if%>&yfc_id=<%=yfc_id%>&yfdet_id=<%=yfdet_id%>"><%=rscust("title")%> " title="看看<%=trim(rs("nickname"))%>的资料"><%=rs("nickname")%> <%=rscust("visit")%> <%=(month(rscust("time"))&"-"&day(rscust("time"))&" "&hour(rscust("time"))&":"&minute(rscust("time")))%>
<%if adm="asean" or adm="aser" then%>
<%end if%>
 
<% if page<>1 then ' response.write "第一页" response.write "上一页" end if if page<>rscust.pagecount then response.write "下一页 " ' response.write "最后一页" end if %>
<% rscust.Close set rscust=nothing conn.close end if%>