<% xuhao=clng(request("bankuai")) if xuhao="" then xuhao=0 end if set bankuai=lj.execute("select mingzi from bankuai where xuhao="& xuhao &"") if not bankuai.eof then %>
论坛版块 → <%=server.HTMLEncode(bankuai("mingzi"))%>
 
 
表情
标 题
浏览
回复
作者
<% sql="select xuhao,biaoti,xinqing,mingzi,liulan from tiezi where bankuai="& xuhao &" and tiezi='tiezi' order by shijian desc" set tiezi=server.CreateObject("adodb.recordset") tiezi.open sql,lj,1,2 if tiezi.bof and tiezi.eof then Response.Write("
本版没有帖子
") else if request("ye")="" then ye=1 else ye=cint(request("ye")) end if set luntan=lj.execute("select meiyetiezi from luntan") tiezi.pagesize=luntan("meiyetiezi") tiezi.absolutepage=ye zong=tiezi.pagecount tou=luntan("meiyetiezi") do while not tiezi.eof and tou>0 tou=tou-1 %>
.gif">
"><%=server.HTMLEncode(tiezi("biaoti"))%>
<% response.Write(tiezi("liulan")) %>
<% shuyu=tiezi("xuhao") set huifu=lj.execute("select count(*) as huifu from tiezi where tiezi='"& shuyu &"'") response.Write(huifu("huifu")) %>
" target="_blank"> <%=server.HTMLEncode(tiezi("mingzi"))%>
<% tiezi.movenext loop end if %>
<% if ye=1 then response.Write("头页 上页 ") end if if ye<>1 then response.Write("头页 ") response.Write("上页 ") end if if ye<>zong then response.Write("下页 ") response.Write("尾页 ") end if if ye=zong then response.Write("下页 尾页 ") end if response.Write(" 总页数 "&zong&"") response.Write(" 当前页 "&ye&"") %>
<%else%>
论坛版块 → 错误提示
没有此论坛板块
<%end if%>