<% sort_id=request("sort_id") if sort_id>6 or sort_id<1 then response.write("") response.end end if if request("page")="" then page=1 else page=cint(request("page")) end if set rs=server.CreateObject("ADODB.RecordSet") Sql="select id,title,user_name,submit_time,sort_id,shenhe from content where sort_id="&sort_id&" and shenhe=1 order by submit_time desc" rs.open sql,conn,1,1 set rs1=server.CreateObject("ADODB.RecordSet") Sql1="select id,Bbs_address,sort from sort where id="&sort_id rs1.open sql1,conn,1,1 bbs_address=rs1("bbs_address") sort=rs1("sort") rs1.close set rs1=nothing %> 光明网论文发表交流中心

<% If not rs.eof then rs.movefirst rs.pagesize=25 rs.absolutepage=page for i=1 to rs.pagesize %> <% rs.movenext if rs.eof then exit for next else response.write "" end if %>
" target="_blank"><%=rs("title")%>
<%=rs("user_name")%>
<%=month(rs("Submit_time"))%>-<%=day(rs("Submit_time"))%>
该类还没有论文发表


第<%=page%>页/计<%=rs.pagecount%>页(共<%=rs.recordcount%>条记录)　

<% if not rs.eof then %> <%if page<>1 then %> 首页 <%end if%>    <%if page>1 then %> 前页 <%end if%>    <%if page 后页 <%end if%>    <%if page<>rs.pagecount then %> 末页 <%end if%> <%end if%>


<% rs.close set rs=nothing conn.close set conn=nothing %>