论坛 - <%=bbsname%>

<% dim conn,rs,rsuser dim owner,id,topid,layer,order dim CurPage If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then CurPage = 1 Else CurPage = CINT(Request.QueryString("CurPage")) End If if request.querystring("owner") = "" then owner = "wishbbs" Else owner = request.querystring("owner") end if set rs=server.createobject("adodb.recordset") set rsuser=server.createobject("adodb.recordset") set rsuser=conn.execute("Select * From User Where User='" & owner & "'") dim bbsname,bbsowner,owneremail bbsname=rsuser("subject") bbsowner=rsuser("name") bbsuser=rsuser("user") bbsurl=rsuser("url") bbsemail=rsuser("email") bbscomment=rsuser("comment") rsuser.close set rsuser=nothing %> 论坛 - <%=bbsname%>

::::东成科技::::

　东成科技留言板　　公司主页：http://www.ducen.com/　　返回首页

<%rs.open "SELECT * FROM bbs WHERE Owner='" & owner & "' and layer=1 ORDER BY lasttime desc , TopID DESC , [Order] ",Conn,1,1 if not rs.eof and not rs.bof then RS.PageSize=30 Dim TotalPages TotalPages = RS.PageCount If CurPage>RS.Pagecount Then CurPage=RS.Pagecount end if RS.AbsolutePage=CurPage rs.CacheSize = RS.PageSize Dim Totalcount Totalcount =INT(RS.recordcount) %>

<> 共<%=Totalcount%>条帖子，<%=CurPage%>/<%=TotalPages%>页

讨论区风格

精华区

发表文章 >[刷新] &Curpage=<%=Curpage-1%>>[前页] &Curpage=<%=Curpage+1%>>[后页] &Curpage=1>[首页] &Curpage=<%=TotalPages%>>[尾页]

热度

精华

文章主题

新窗

作者

最后更新时间

最后回复

点击

<%I=0 p=RS.PageSize*(Curpage-1) do while (Not RS.Eof) and (II

<%if rs("click")>=15 and rs("order")=1 then%>

<% else %>

<% end if %>

<%if rs("isbest")=1 then%>

<% end if %>

<% response.write("·") %>

.gif align=absmiddle> &ID=<%=rs("ID")%> ><%=rs("Topic")%> <%if rs("txtlong")>0 then%> (<%=rs("txtlong")%>字)<%end if%><%if rs("time")>=date() then response.write("

")%>

&ID=<%=rs("ID")%>')>

')><%=rs("txtname")%>

<%=rs("lasttime")%>

<%if rs("replyname")<>"" then%>')><%=rs("replyname")%><% end if%>

<%=rs("reply")%>

<%=rs("Click")%>

<%rs.movenext II=II+1 loop%> <%StartPageNum=1 do while StartPageNum+15<=CurPage StartPageNum=StartPageNum+15 Loop EndPageNum=StartPageNum+14 If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount %>

<> 页次： <%=CurPage%>/<%=TotalPages%> ，每页：<%=RS.PageSize%>帖

页数： << <% For I=StartPageNum to EndPageNum if I<>CurPage then %> [<%=I%>] <% else %> <%=I%> <% end if %> <% Next %> <% if EndPageNum [更多...] <%end if%>

<%else%>暂时无帖子，请添加新帖子 <%end if%> <% rs.close set rs=nothing %> <%conn.close set conn=nothing %>