<% tiezi=clng(Request("tiezi")) if tiezi="" then tiezi=0 end if set zhutie=lj.execute("select * from tiezi where xuhao="& tiezi &"") if not zhutie.eof then lj.execute("update tiezi set liulan=liulan+1 where xuhao="& tiezi &"") xuhao=zhutie("bankuai") set bankuai=lj.execute("select mingzi from bankuai where xuhao="& xuhao &"") %>
论坛版块<%=server.HTMLEncode(bankuai("mingzi"))%> → 当前帖子
题目:<%=server.HTMLEncode(zhutie("biaoti"))%> 回复:<% set huifushu=lj.execute("select count(*) as huifu from tiezi where tiezi='"& tiezi &"'") response.Write(huifushu("huifu")) %> 浏览:<% response.Write(zhutie("liulan")) %>
<% if zhutie("mingzi")=mingzi then Response.Write("删除 修改") elseif mingzi="" then Response.Write("^_^!") elseif mingzi<>"" then Response.Write("删除 顶帖") end if %>
心情:.gif" align="absmiddle"> 作者:" target="_blank"><%=server.HTMLEncode(zhutie("mingzi"))%> 时间 <%=zhutie("shijian")%> 序号:<%=zhutie("xuhao")%>
<%=UBBCode(zhutie("neirong"))%>
<% sql="select * from tiezi where tiezi='"& tiezi &"' order by shijian" set liulanpaixu=lj.execute("select liulanpaixu from luntan") if liulanpaixu("liulanpaixu")=0 then sql=sql+" desc" end if set huifu=server.CreateObject("adodb.recordset") huifu.open sql,lj,1,2 if huifu.bof and huifu.eof then Response.Write("
没有回复帖子
") else if request("ye")="" then ye=1 else ye=cint(request("ye")) end if set luntan=lj.execute("select meiyehuifu from luntan") huifu.pagesize=luntan("meiyehuifu") huifu.absolutepage=ye zong=huifu.pagecount tou=luntan("meiyehuifu") do while not huifu.eof and tou>0 tou=tou-1 %>
心情:.gif" align="absmiddle"> 作者:" target="_blank"><%=server.HTMLEncode(huifu("mingzi"))%> 时间 <%=huifu("shijian")%> 序号:<%=huifu("xuhao")%>
<% if huifu("mingzi")=mingzi then Response.Write("删除 修改") else Response.Write("^_^!") end if %>
<%=UBBCode(huifu("neirong"))%>
<% huifu.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&"") %>
心情
内容
  <% set youke=lj.execute("select youkefatie from luntan") if youke("youkefatie")<>0 then response.Write("请注意:本论坛设置游客不能发帖子。") end if fanhui=request("fanhui") if fanhui="" then response.Write("回复帖子") elseif fanhui="kong" then response.Write("您刚才的表单没填完,请填好以后再提交。") elseif fanhui="duo" then response.Write("帖子内容不能超过65535个文字。") end if %>
<% else %>
论坛版块 → 错误提示
找不到这个帖子
<% end if %>