<% hlSign="[url=http://www.zhongyf.com]你是你自己的医生,我是你的中药方[/url]" id=int(Request("id")) top set rs=Conn.Execute("Select forumid From forum where id="&id) if rs.eof or rs.bof then error"
  • 系统不存在该帖子的资料" forumid=rs(0) set rs=nothing sql="select * from bbsconfig where id="&forumid&"" Set Rs=Conn.Execute(sql) bbsname=rs("bbsname") moderated=rs("moderated") logo=rs("logo") followid=rs("followid") pass=rs("pass") password=rs("password") userlist=rs("userlist") ii=3 Set Rs = Nothing if Request("action")="next" then sql="select * from forum where id > "&id&" and forumid="&forumid&" and deltopic<>1 limit 0, 1" elseif Request("action")="Previous" then sql="select * from forum where id < "&id&" and forumid="&forumid&" and deltopic<>1 order by id Desc limit 0, 1" else sql="select * from forum where ID="&id&"" end if Set Rs=Conn.Execute(sql) if rs.eof or rs.bof then error"
  • 系统不存在该帖子的资料" if rs("deltopic")=1 and membercode<4 then error"
  • 该主题不存在!" topic=ReplaceText(rs("topic"),"<[^>]*>","") %> >
       <%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> ><%=bbsname%> → <%=topic%>

    ">发表一个新主题/post.gif" border="0"> &topic=<%=topic%>">回复帖子/reply.gif" border="0">您是本帖第 <%=rs("views")%> 个阅读者  ">浏览上一篇主题 刷新本主题 ">浏览下一篇主题
     主题<%=topic%> >适合打印机打印的版本  通过电子邮件发送此页面  添加加到IE收藏夹  报告本帖 
    <% if Request("topage")<2 then content=rs("content") if Request.Cookies("username")=empty then content=ReplaceText(content,"]*>相关附件<\/A>","相关附件(须登录后才能下载)") '''''''投票'''''''' if rs("polltopic")<>"" then if rs("multiplicity")=1 then multiplicity="checkbox" else multiplicity="radio" end if content=""&content&"
    " vote=split(rs("polltopic"),"|") for i = 0 to ubound(vote) if not vote(i)="" then content=""&content&"" end if next content=""&content&"
    "&i+1&".

    " end if '''''''结束投票'''''''' sql="select * from user where username='"&rs("username")&"'" Set Rs1=Conn.Execute(sql) '##翔宇特殊贴V2.0 ####################### %> <% '##翔宇特殊贴V2.0 ####################### %> <% ii=ii+1 if ii=5 then ii=3 %> >
    <%=rs("username")%>
    <%=rs1("honor")%>
    <%if rs1("sex")<>"" then%> .gif>  <%end if%>
    <%if Request.Cookies("showface")<>"0" then%> <%end if%>

    <%if rs1("faction")<>"" then%>门派:<%=rs1("faction")%>

    <%end if%> <%if rs1("consort")<>"" then%>配偶:<%=rs1("consort")%>

    <%end if%> 经验值:<%=rs1("experience")%>

    社区币:<%=rs1("money")%>

    发贴数:<%=rs1("posttopic")+rs1("postrevert")%>

    注册:<%=split(rs1("regtime")," ")(0)%>

    体力值: height=9 alt=<%=rs1("userlife")%>>

    状态:<%if instr("|"&onlinelist&"","|"&rs("username")&"|")>0 then%>在线<%else%>离线<%end if%>

    查看<%=rs("username")%>的个人资料 ','','width=320,height=170')">发送短讯息给<%=rs("username")%> 把<%=rs("username")%>加入好友 搜索<%=rs("username")%>发表过的所有主题 搜索<%=rs("username")%>回复过的所有主题 >发送电邮给<%=rs("username")%> <%if rs1("userhome")<>"" then%>>访问<%=rs("username")%的主页 src=images/homepage.gif border=0> <%end if%> 复制这个帖子 引用回复这个帖子 断章取义 回复这个帖子 No.<%i=1%><%=i%> 

    <%if instr(badlist,rs("username"))=0 then%>

    <%if InStr(1,content,"[MP=",1) + InStr(1,content,"[RM=",1) + InStr(1,content,"[FLASH=",1) >0 then %> <%else if forumid=36 then content=content & "

    " & banner %> <%=replace(content,"blueharbour-banner",banner)%> <%end if%>

    <%else%> >==============================
       该用户帖子已被过滤   
    ==============================
    <%end if%>
    <% sign=rs1("sign") If sign="" Then sign=hlSign if sign<>"" and Request.Cookies("sign")<>"0" then%> ——————————
    >
    <%end if%>

    &retopicid=yuzi> 转播到腾讯微博 发表时间:<%=rs("posttime")%>  IP:&retopicid=yuzi>已记录
    <% end if Set Rs1 = Nothing id=rs("id") act=topic replies=rs("replies") locktopic=rs("locktopic") goodtopic=rs("goodtopic") toptopic=rs("toptopic") ReList=rs("ReList") rs.close if replies > 0 then pagesetup=15 '设定每页的显示数量 TotalPage=cint(replies/pagesetup) '总页数 if TotalPage < replies/pagesetup then TotalPage=TotalPage+1 PageCount = cint(Request.QueryString("ToPage")) if PageCount < 1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage beginRec=(PageCount-1)*pagesetup sql="select * from reforum"&ReList&" where topicid="&id&" order by id limit "& beginRec &", "&pagesetup&"" rs.Open sql,Conn,1 on error resume next '找不到回帖时候忽略错误 if RS.EOF then replies=conn.execute("Select count(id)from reforum"&ReList&" where topicid="&id&"")(0) conn.execute("update forum set replies="&replies&" where id="&id&"") end if hai=0 Do While Not RS.EOF hai=hai+1 sql="select * from user where username='"&rs("username")&"'" Set Rs1=Conn.Execute(sql) 'if RS.EOF then conn.execute("delete from reforum"&ReList&" where username='"&rs("username")&"'") %> <% ii=ii+1 if ii=5 then ii=3 %> > <%content=rs("content") If Len(content)<200 Then hlHeight="400" Else hlHeight="100%" %>
    <%=rs("username")%>
    <%=rs1("honor")%>
    <%if rs1("sex")<>"" then%> .gif>  <%end if%>
    <%if Request.Cookies("showface")<>"0" then%> <%end if%>

    <%if rs1("faction")<>"" then%>门派:<%=rs1("faction")%>

    <%end if%> <%if rs1("consort")<>"" then%>配偶:<%=rs1("consort")%>

    <%end if%> 经验值:<%=rs1("experience")%>

    社区币:<%=rs1("money")%>

    发贴数:<%=rs1("posttopic")+rs1("postrevert")%>

    注册:<%=split(rs1("regtime")," ")(0)%>

    体力值: height=9 alt=<%=rs1("userlife")%>>

    状态:<%if instr("|"&onlinelist&"","|"&rs("username")&"|")>0 then%>在线<%else%>离线<%end if%>

    >
    查看<%=rs("username")%>的个人资料 ','','width=320,height=170')">发送短讯息给<%=rs("username")%> 把<%=rs("username")%>加入好友 搜索<%=rs("username")%>发表过的所有主题 搜索<%=rs("username")%>回复过的所有主题>发送电邮给<%=rs("username")%> <%if rs1("userhome")<>"" then%>>访问<%=rs("username")%的主页 src=images/homepage.gif border=0> <%end if%> )>复制这个帖子 引用回复这个帖子 断章取义 回复这个帖子 No.<%=i+hai+(PageCount-1)*pagesetup%> 

    <%if instr(badlist,rs("username"))=0 then%>
    style="text-indent:2em;height=267px;" class="hlPost" > <% if Request.Cookies("username")=empty then content=ReplaceText(content,"]*>相关附件<\/A>","相关附件(须登录后才能下载)") %>

    <%if InStr(1,content,"[MP=",1) + InStr(1,content,"[RM=",1) + InStr(1,content,"[FLASH=",1) >0 then %> <%else%> <%=content%> <%end if%>

    <%else%> >==============================
       该用户帖子已被过滤   
    ==============================
    <%end if%>
    <%sign=rs1("sign") If sign="" Then sign=hlSign if sign<>"" and Request.Cookies("sign")<>"0" then%> ——————————
    >
    <%end if%>

    &retopicid=<%=rs("id")%>> 转播到腾讯微博 发表时间:<%=rs("posttime")%>  IP:&retopicid=<%=rs("id")%>>已记录
    <% Set Rs1 = Nothing RS.MoveNext loop RS.Close end if if TotalPage=0 then TotalPage=1 PageCount=1 end if %>
    本主题共有 <%=TotalPage%> 页 [ <%ShowPage TotalPage,PageCount,"id="&id %> ] 收藏帖子 | 取消收藏 | 返回页首 
    <%if Request.Cookies("username")<>"" then%>
     快速回复主题<%=act%>
     用户名:<%=Request.Cookies("username")%> [退出]

     
            
    管理选项: <% response.write "拉前主题 | " if locktopic=1 then response.write "开放主题" else response.write "关闭主题" end if response.write " | " if toptopic=2 then response.write "取消总置顶" else response.write "主题总置顶" end if response.write " | " if toptopic=1 then response.write "取消置顶" else response.write "主题置顶" end if response.write " | " if goodtopic=1 then response.write "移出精华区" else response.write "添加到精华区" end if %>| 移动主题 | 删除主题
    <%end if%> <% conn.execute("update forum set Views=Views+1 where id="&id&"") htmlend %>