——~~~BBS论坛欢迎您~~~

<% conn="DBQ="+server.mappath("../ydd.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set dbconnection=server.CreateObject ("adodb.connection") dbconnection.Open conn curpage=trim(Request.QueryString ("curpage")) if curpage="" then curpage=1 elseif curpage=0 then curpage=1 end if curpage=cint(curpage) set rs=server.CreateObject ("adodb.recordset") sql="select * from bbs where addid='1 ' order by addtime desc" rs.Open sql,conn,3,3 rs.PageSize=18 dim totalpages totalpages=rs.PageCount if curpage>rs.PageCount then curpage=rs.PageCount end if rs.AbsolutePage =curpage dim totalcount totalcount=rs.RecordCount %> ——~~~BBS论坛欢迎您~~~

我要发言刷新首页上一页下一页尾页共 <% =totalpages %> 页共 <% =totalcount %> 条主贴目前在第 <% =curpage %> 页每页 <% =rs.PageSize %> 条主贴我要发言

主题

发言人

浏览

发言时间

<% i=1 do while not rs.eof and i<=rs.PageSize %> <% aaa=rs("id") set rs1=server.CreateObject ("adodb.recordset") sql1="select addid from bbs where addid='"& aaa &"' order by addtime" rs1.Open sql1,conn,3,3 bbb=rs1.RecordCount %>

<%if rs1.EOF then%>

<% else %>

<%end if%> " target="_parent"> <% =rs("name") %>

<%=left(rs("neirong"),28)&"..."%>

<% =rs("username") %>

<% =bbb %>

<% =rs("dianjicishu") %>

<% =rs("addtime") %>

<% rs1.Close set rs1=nothing %> <% rs.MoveNext i=i+1 loop %>

<% rs.Close set rs=nothing dbconnection.close set dbconnection=nothing %>