topic.asp

一个不错的论坛原代码

      for i=0 to ubound(l_lockuser1)
      if fyusername=l_lockuser1(i) then
      erroruser=1
      exit for
      end if
      next
    end if
if fylocktopic<>1 and erroruser<>1 then
 response.write(ubbcode(rs_reply("r_content"))&"<BR>"&_
rs_reply("t_lastedit")&"<br><br>"&_
"<div class=tdc2 align=right>『本文仅代表作者["&fyusername&"]的观点，版权属作者与"&l_title&"共同所有』</div><br><br>") 
'判断是否显示签名
if fysign<>"" and checklocksign=0  then  response.write("<img src=image/sign.gif><br>"&ubbsign(fysign)&"<br>")
'如果发言被屏蔽则显示下面的信息
else
response.write("<br><br><center>================================================<BR>"&_
"此用户发言已经被屏蔽<BR>"&_
"======================================================</center><br><br>")
end if%>
 </td>
      </tr>
 
  </tbody>
    </table>


   </td>
      </tr>
 
  </tbody>
    </table>


    </td>
  </tr>
  </span>
  </tbody>
    
      <tr>
      
      <td valign=top bgcolor=<%=bgcolor%>    class=tdc  height=25 align=center>
  <img src=image/posttime.gif alt=发表时间><%=rs_reply("r_time")%>
  </td>
    <td valign=top bgcolor=<%=bgcolor%>    class=tdc >
  <table width=96% align=center>
  <tr>
  <td whidth=50%> <%if isuser then%><a href="edit2.asp?l_id=<%=l_id%>&t_id=<%=trim(t_id)%>&r_id=<%=rs_reply("r_id")%>"><img alt=编辑/删除帖子 src="image/edit.gif"  border=0  ></a> 
  <%response.write("<a href=""postfo.asp?action=editreply&l_id="&l_id&"&t_id="&trim(t_id)&"&r_id="&rs_reply("r_id")&"&dell=1&sendtopic=fy"" title=""删除此帖"" onclick=""{if(confirm('一定要删除该回复吗？确定删除吗?')){return true;}return false;}""><img src=image/del.gif border=0></a>")%>
  <%end if%></td>
  <td whidth=50% align=right class=tdc>
    <img src="image/ip.gif"    border=0> 
<%if issupermaster then 
response.write("发表人ip:"&rs_reply("r_ip"))
else
response.write("IP已记录")
end if%>
   
</td>
  </table>
  </td>
  </tr>
    </td>
  </tr>

    <%  
    
rs_reply.MoveNext 
rcount=rcount+1
loop 
end if
rs_reply.close 
set rs_reply=nothing 

%>
   

</table>
  </center>
</div>

  <table border="0" cellspacing="0" cellpadding="3"align="center" class=tb1>
  <tr  align="left" height=23> 
            <td  bgcolor=<%=tColor2%> class=tdc > 
            <%if viewtopic="tree" then
            response.write("回复数："&rs_topic("t_replynum"))
            else
           
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1
if pageend>maxpagecount then pageend=maxpagecount
response.write(" [ ")
if maxpagecount > 6 then Response.Write ("<a href=?l_id="&l_id&"&t_id="&trim(t_id)&"&page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href=?l_id="&l_id&"&t_id="&trim(t_id)&"&page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if maxpagecount > page +5 then Response.Write( " ... <a href=?l_id="&l_id&"&t_id="&trim(t_id)&"&page="&maxpagecount&">"&maxpagecount&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&maxpagecount&"页   每页:"&pages&" 回复数:"&r&" ")%>
            <%end if%></td>
    <td bgcolor=<%=tColor2%> class=tdc align=right><%sqltop="select top 1 t_id,t_title from topic where t_id<"&cint(trim(t_id))&" and l_id="&cint(l_id)&" order by t_id desc"
    set rstop=conn.execute(sqltop)
    if not rstop.eof then
    response.write("<a href=topic.asp?l_id="&cint(l_id)&"&t_id="&rstop("t_id")&" title=""上一主题："&rstop("t_title")&"""><img src=image/prev.gif border=0></a> ")
    set rstop=nothing
    end if%><%sqltop="select top 1 t_id,t_title from topic where t_id>"&cint(trim(t_id))&" and l_id="&cint(l_id)&""
    set rstop=conn.execute(sqltop)
    if not rstop.eof then
    response.write("<a href=topic.asp?l_id="&cint(l_id)&"&t_id="&rstop("t_id")&" title=""下一主题："&rstop("t_title")&"""><img src=image/next.gif border=0></a>")
    set rstop=nothing
    end if%> 　</td>
  </tr>
<%if (issupermaster or ismaster or isbanzhu) and isuser then%>
  <tr> 
    <td align="center" <%=tColor%> class=tdc1 colspan="2">管理： 
      <%if issupermaster or ismaster then
if rs_topic("t_top")="0" then
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=toptop>取消总固顶</a>|")
else
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=toptop>总固顶</a>|")
end if
end if

if rs_topic("t_lock")="1" then
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=lock>取消关闭</a>|")
else
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=lock>关闭主题</a>|")
end if
if rs_topic("t_jinhua")="0" then
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=jinhua>加入精华</a>|")
else
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=jinhua>取消精华</a>|")
end if
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=del>删除主题</a>|")
if rs_topic("t_top")="1" then
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=top>取消置顶</a>|")
else
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=top>置顶</a>|")
end if

response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=ts>拉升主题</a>|")
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=move>移动主题</a>|")
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=copy>复制主题</a>|")
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=user>管理用户</a>|")
response.write("<a href=up.asp?l_id="&l_id&"&t_id="&t_id&"&action=gooduser>奖励/惩罚</a>|")
response.write("<a href=announce.asp?l_id="&l_id&"&action=post>发布公告</a>|")
%>

</td>
  </tr>
<%end if%>
</table>

<table class=tb2 align="center" cellpadding=1 cellspacing=0>
<tr><FORM METHOD=POST action="search.asp?action=search">
<td class=tdc align=left>
快速搜索：<input type=text name="key" class=bdtj3 size="20">&nbsp;
<input type=submit name=submit value="搜索" class=bdtj>
<input type=hidden name="lanmu" value="<%=rslanmu("l_id")%>">
<input type=hidden name="title" value="1">
<input type=hidden name="sdate" value="30">
</td>
</FORM>
<td align="right" class=tdc>
跳转到:         <select name="menu1" onChange="jump('parent',this,0)" class="bdtj3">
            <option value="#" selected >&nbsp;&nbsp;├<%=rslanmu("l_title")%></option>
<% sqlfen="select f_id,f_title from fenlei order by f_num asc"
set rsfen=conn.execute(sqlfen)
do while not rsfen.eof%>
<option value="#">++<%=rsfen("f_title")%>++</option>
<%sql_lanmu1="select * from lanmu where f_id="&rsfen("f_id")&""
set rs_lanmu1=conn.execute(sql_lanmu1)
%>
               <% do while not rs_lanmu1.Eof %>
      
      <option value=list.asp?l_id=<%=rs_lanmu1("l_id")%>>&nbsp;&nbsp;├<%=rs_lanmu1("l_title")%></option>
      
      <%rs_lanmu1.MoveNext 
        Loop
        set rs_lanmu1=nothing
       
        rsfen.movenext
			loop
			set rsfen=nothing
			 set rslanmu=nothing%>  </select>
 </td>
 </tr>
 </table>
<div align="center">
  <center>

    <%'树型显示
if viewtopic="tree" then%>
 <table  border=1 borderColor=<%=tdc2%> cellPadding=1 cellSpacing=0 width=<%=tdc3%> style="border-collapse: collapse" align=center>
        <tbody>
        <tr > 
          <td width="35%" align="left" height="23" <%=tColor%> class=tdc1 colspan="4">==>树型目录</td>
         
        </tr>
        </tbody>
          <tbody>
        <tr > 
          <td width="10%" align="left" height="23" bgcolor=<%=tcolor1%> class=tdc>主 帖：</td>
         
         
          <td bgcolor=<%=tcolor1%> align=left class=tdc>主题:<% if int(r_id)<>-1 then response.write("<a href=""?l_id="&l_id&"&t_id="&t_id&"&viewtopic=tree"">")
          response.write(htmlencode(rs_topic("t_title"))&"</a>")%></td>
          <td align=left width="15%" bgcolor=<%=tcolor1%> class=tdc>作者：<a href="viewuser.asp?username=<%=rs_topic("t_username")%>"><%=rs_topic("t_username")%></a></td>
           <td align=left nowrap width="10%" bgcolor=<%=tcolor1%> class=tdc><%=rs_topic("t_time")%>　</td>
          
        </tr>
        </tbody>
        <%    
sql = "select r_content,r_id,r_time,r_username from reply where t_id="&trim(t_id)&" order by r_time asc"
set rs=conn.execute(sql)
do while not rs.eof
       if trcolor="" then
        bgcolor=""&tColor2&""
   trcolor=1
    else
        bgcolor=""&tColor1&""
        trcolor=""
    end if %>
        <tbody>
        <tr > 
          <td width="10%" align="right" height="23" bgcolor=<%=bgcolor%> class=tdc>回复：</td>
         
         
          <td bgcolor=<%=bgcolor%> align=left class=tdc>主题:<% if int(r_id)<>int(rs("r_id")) then response.write("<a href=""?l_id="&l_id&"&t_id="&t_id&"&r_id="&rs("r_id")&"&viewtopic=tree"">")
          response.write(left(rs("r_content"),30)&"..</a>")%></td>
          <td align=left width="15%" bgcolor=<%=bgcolor%> class=tdc>作者：<a href="viewuser.asp?username=<%=rs("r_username")%>"><%=rs("r_username")%></a></td>
           <td align=left nowrap width="10%" bgcolor=<%=bgcolor%> class=tdc><%=rs("r_time")%>　</td>
          
        </tr>
        </tbody>
        <%rs.movenext
        loop
        %>
        </table>
        <BR>

<%end if%>


<table cellPadding=0 cellSpacing=0 width=<%=tdc3%>>
   <form ACTION="postfo.asp?action=reply&l_id=<%=l_id%>&t_id=<%=trim(t_id)%>" METHOD="POST" name="form1" onSubmit="return CheckForm();" onkeydown='up()'> <tr> 
      <td  > 
        <table border=1 borderColor=<%=tdc2%> cellPadding=1 cellSpacing=0 width=100% style="border-collapse: collapse" >
          <tr> 
            <td align=right  height="22"  <%=tColor%> class=tdc1 >
            <p align="left">　快速回复主题</td> <td valign=middle <%=tColor%>   
 class=tdc1>  &nbsp;&nbsp; <%=htmlencode(rs_topic("t_title"))%> 　</td> 

          </tr>
       
       <%if isuser then%>
            <tr> 
            <td align=right width="15%" bgcolor=<%=tcolor2%> 
 class=tdc><b>回复主题</b>：</td>
            <td bgcolor=<%=tcolor2%> 
 class=tdc>  &nbsp;
              <input name=f3_motif size=60 maxLength=30 class="bdtj3" value="Re:<%=HTMLEncode(rs_topic("t_title"))%>" >（不得超过 30 个汉字）            </td>
          </tr>
          
          <tr> 
            <td valign=top NOWRAP   bgcolor=<%=tcolor2%> 
 class=tdc>
            <p align=right><b>内容：</b><BR><BR>
<input type="checkbox" name="t_autourl" value="1" checked> 自动URL 分析<br>
               <input type="checkbox" name="t_lockubb" value="1" > 禁止UBB 转换<br>  
 
               <input type="checkbox" name="t_sign" value="0" checked> 显示个性签名
          </td>
            <td valign=top bgcolor=<%=tcolor2%> width="79%"
 class=tdc> &nbsp;
              <textarea name=f3_content rows=8 cols=75 wrap=VIRTUAL class="bdtj3" ></textarea>
              <br>
            </td>
          </tr>
          <tr> 
            <td valign=top NOWRAP align=center bgcolor=<%=tcolor2%> 
 class=tdc colspan="2" ><%        

    for i = 1 to cpbbq


 Response.Write "<img src=""emot/em" & i & ".gif"" onClick=""setsmiley('em" & i &":')"">&nbsp;"
if i mod 21=20 then response.write("<br>")
next
%>
            ← 
            </td>
          </tr>

          <tr> 
            <td valign=top align=right  bgcolor=<%=tcolor2%> 
 class=tdc>　</td>
            <td valign=middle bgcolor=<%=tcolor2%>     width="79%"
 class=tdc>   
 <input type="hidden" name="sendtopic" value="true">
 <input type="hidden" name=ip  value="<% = o_ip %>">
             &nbsp;<input type="submit" name="Submit" value="确 认"   class=bdtj OnClick="this.disabled=true;document.form1.submit();"> <input type=button value='预 览' name=Button onclick=view() class=bdtj>
              <input type="reset" name="Submit2" value="清 空" class=bdtj>[按CTRL+ENTER 直接发表] 帖子长度：<input name="Len" value="0"   readonly size="8" class="bdtj" > 最大为: <%=t_size%> 字节;最小为: <%=h_lesstopic%> 字节 </td>
          </tr>
<%end if%>
        </table>
      </td>
    </tr></form>
    <form name=preview action=view.asp method=post target=view>
<input type=hidden name=title value=><input type=hidden name=content value=>
</form>
  </table>


  <% 
    set rs_topic=nothing
    set rslanmu=nothing
    set rs=nothing
    set rs_user=nothing%><%end if%><!--#include file="bq.asp" -->