topic.asp

一个不错的论坛原代码

response.write("<img src=image/level/10.gif>")
else
response.write("<img src=image/level/"&fygrade&".gif>")
end if
response.write("<br><br>")
if fyname<>"" then response.write(" &nbsp;头衔："&fyname&"<br>")
     response.write(" &nbsp;等级：")
sql_fen = "select g_title from grade where g_num="&fygrade&""
set rs_fen =conn.Execute (sql_fen)
if not rs_fen.eof then%>
<%=rs_fen("g_title")%>
 <% end if
 rs_fen.close
 set rs_fen=nothing
 %>
<br>&nbsp;威望：<%=fyweiwang%><br>
      &nbsp;发贴：<%fysendbar=fysend*0.005+3
 if fysendbar>120 then fysendbar=120
response.write("<img src=image/vote/bar0.gif width="""&fysendbar&""" height=9 alt="&fysend&"篇>")%><br>
      &nbsp;经验：<%fysendbar=fyfen*0.005+3
 if fysendbar>120 then fysendbar=120
response.write("<img src=image/vote/bar2.gif width="""&fysendbar&""" height=9 alt="&fyfen&">")%>
<br>
      &nbsp;财产：<%fysendbar=fymoney*0.005+3
 if fysendbar>120 then fysendbar=120
response.write("<img src=image/vote/bar4.gif width="""&fysendbar&""" height=9 alt="&fymoney&"dxxo元>")%>
<br>
       &nbsp;魅力：<%fysendbar=fybeauty*0.005+3
 if fysendbar>120 then fysendbar=120
response.write("<img src=image/vote/bar3.gif width="""&fysendbar&""" height=9 alt="&fybeauty&">")%><br>

            <% if fyaddress<>"" then response.write("&nbsp;来自："&fyaddress&" <br>")%>
            &nbsp;注册：<%=fytime%><br>
            </td>
            </tr>
            </table>
            <%else
            response.write("该用户已经被删除")
            end if%>
    </td>
    <td valign=top bgcolor=<%=tcolor1%>  width="79%" class=tdc > 
    
    <table border=0 width=96% align=center style=" table-layout:fixed;word-break:break-all">
    <tbody><tr><td valign=middle bgcolor=<%=tcolor1%>   class=tdc height=23 width=93%>
       <%if fyusername<>"" then%>
      <a href="viewuser.asp?username=<%=fyusername%>" target=_blank><img alt=按此观看<%=fyusername%>的个人资料 src="image/chakan.gif"  border=0></a> 
      <a href="pm.asp?mode=add&action=add&username=<%=fyusername%>"><img alt=按此发论坛短信给<%=fyusername%> src="image/pm.gif"  border=0 ></a> 
      <a href="friend.asp?action=add&u_friendname=<%=fyusername%>"><img alt=按此添加<%=fyusername%>到好友列表 src="image/friend.gif"  border=0> </a> 
            <a href="search.asp?action=search&key=<%=fyusername%>&lanmu=<%=request("l_id")%>&sdate=0&title=2" target=_blank><img alt=按此搜索<%=fyusername%>在该版块发表的主题 src="image/find.gif"  border=0> </a> 
       <%if fytodaytime=0 then%> <a href=mailto:<%=fyemail%>><img alt=按此发邮件给<%=fyusername%> src="image/email.gif"  border=0></a><%end if%>
        <%if fyhome<>""then%> <a href="<%=fyhome%>" target=_blank> <img alt=访问<%=fyusername%>的主页 src="image/homepage.gif"  border=0></a><%end if%>
          <%if fyqq<>""then%> <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=fyqq%>" target="_blank"><img alt="<%=fyusername%> 的 oicq 是<%=fyqq%>，查看<%=fyusername%>的资料" src="image/oicq.gif"  border=0> </a><%end if%>
                    <%end if%>
      <a href="javascript:copyText(document.all.copyid);"><IMG alt=复制这个帖子 src="image/copy.gif" border=0></a>
      <a href="reply.asp?l_id=<%=l_id%>&t_id=<%=trim(t_id)%>&quote=topic"><img alt=引用这个帖子回复 src="image/yinyong.gif"  border=0  ></a>  
      <a href="reply.asp?l_id=<%=l_id%>&t_id=<%=trim(t_id)%>"><img alt=直接回复此帖 src="image/re.gif"  border=0 > </a>


     </td> <td valign=middle align=right bgcolor=<%=tcolor1%>  class=tdc height=23>
<b>顶 楼</b>
      </td>
      </tr>
      
      <tr><td bgcolor=<%=tdc2%> height=1 colspan=2></td></tr>
      <tr >
      <td  bgcolor=<%=tcolor1%>  class=tdc colspan=2 height=* >
      <table width=100% border=0 style=" table-layout:fixed;word-break:break-all">
      <tbody><tr><td valign=top bgcolor=<%=tcolor1%>  class=tdc height=*>
     <% response.write("<span class=tdc2><img src="&rs_topic("t_face")&" border=0 align=""absmiddle"">标题:"&htmlencode(rs_topic("t_title"))&"</span>")%>
      </td>
       <td  bgcolor=<%=tcolor1%>  class=tdc height=* align=right>
 字号 <SELECT class=bdtj3  onchange='copyid.style.fontSize=this.value'> <OPTION value=9pt selected>9 
                                pt</OPTION> <OPTION value=10pt>10 pt</OPTION> 
                                <OPTION value=12pt>12 pt</OPTION> <OPTION 
                                value=14pt>14 pt</OPTION> <OPTION value=16pt>16 
                                pt</OPTION> <OPTION value=19pt>19 
                              pt</OPTION></SELECT> 
      </td>
      </tr>
      <tr>
            <td valign=top  bgcolor=<%=tcolor1%>  class=tdc colspan=2 height=* id=thetd style="FONT-SIZE: 9pt">
    <span id=copyid style="FONT-SIZE: 9pt">
      <%
      erroruser=0
       if l_lockuser<>"" then
      l_lockuser1=split(l_lockuser, "|")
      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_topic("t_content"))&"<BR>"&_
rs_topic("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>
     <tr>
      
      <td valign=top bgcolor=<%=tcolor1%>    class=tdc  height=25 align=center>
  <img src=image/posttime.gif alt=发表时间> <%=rs_topic("t_time")%>
  </td>
    <td valign=top bgcolor=<%=tcolor1%>    class=tdc >
  <table width=96% align=center>
  <tr>
  <td whidth=50%> <%if isuser then%><a href="edit.asp?l_id=<%=l_id%>&t_id=<%=trim(t_id)%>"><img alt=编辑/删除帖子 src="image/edit.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_topic("t_ip"))
else
response.write("IP已记录")
end if%>

   
</td></span>
  </table>
  </td>
  </tr>
    </td>
  </tr>
  </tbody>
  <% end if
  checkurl=0
pages = ""&r_page&""
set rs_reply = server.createobject("adodb.recordset") 
sql = "select r_title,r_content,r_time,t_autourl,t_sign,r_ip,t_lastedit,t_lockubb,r_username,r_face,r_id from reply where t_id="&trim(t_id)
if  viewtopic="tree" then sql=sql&" and r_id="&trim(r_id)
sql=sql&" order by r_time asc"
rs_reply.open sql,conn,1,1
maxpagecount=1
r=0
if not(rs_reply.BOF or rs_reply.EOF) then
r=rs_topic("t_replynum")
if r mod pages=0 then
     		maxpagecount= r \ pages
  	else
     		maxpagecount= r \ pages+1
  	end if
 
	rs_reply.MoveFirst
	if int(page) > maxpagecount then page = maxpagecount
   	if int(page)<1 then page=1
	rs_reply.Move (page-1) * pages
	rcount=0
 do while not rs_reply.eof and rcount <int(pages)
checklockubb=1
checkurlreply=0
if rs_reply("t_autourl")=1 then checkurlreply=1
checklockubbreply=0
checklocksign=0
if rs_reply("t_sign")=1 then checklocksign=1
if rs_reply("t_lockubb")=1 then checklockubbreply=1
sql_user= "select sex,fen,locktopic,u_todaytime,time,username,send,home,imgwidth,u_name,imgheight,imghead,address,u_weiwang,u_beauty,u_money,sign,grade,qq,email,face from user where username='"&rs_reply("r_username")&"'"
set rs_user=conn.Execute (sql_user)
if not rs_user.eof then
fyusername=rs_user("username")
fysex=rs_user("sex")
fysign=rs_user("sign")
fyimghead=chkimg(rs_user("imghead"))
fyimgwidth=rs_user("imgwidth")
fyimgheight=rs_user("imgheight")
fyaddress=rs_user("address")
fygrade=rs_user("grade")
fyweiwang=rs_user("u_weiwang")
fyfen=rs_user("fen")
fybeauty=rs_user("u_beauty")
fymoney=rs_user("u_money")
fyhome=rs_user("home")
fyname=rs_user("u_name")
fyqq=rs_user("qq")
fyemail=rs_user("email")
fyface=rs_user("face")
fysend=rs_user("send")
fytime=year(rs_user("time"))&"-"&month(rs_user("time"))&"-"&day(rs_user("time"))
fytodaytime=rs_user("u_todaytime")
fylocktopic=rs_user("locktopic")
else
fyusernam=""
end if
%> 
<%'交叉配色
    
        if trcolor="" then
        bgcolor=""&tColor2&""
        bgcolor1=""&tColor1&""
   trcolor=1
    else
        bgcolor=""&tColor1&""
        bgcolor1=""&tColor2&""
        trcolor=""
    end if
%>
<tbody>
  <tr bgcolor=<%=bgcolor%>> 
    <td valign=top noWrap width="21%"  class=tdc style="Word-Break:Break-all">  
     <%if fyusername<>"" then%>
     <table border=0 width=96%   align=center>
    <tr>
    <td width=80% valign=middle style="filter:glow(color=none,strength=2)">&nbsp;<b><font class=tdc1><%=fyusername%></font></b></td>
    <td width=20% valign=middle align=right>
    <%sqlo="select o_username from online where o_username='"&fyusername&"'"
            set rso=conn.execute(sqlo)
            if rso.bof or rso.eof then 
            ouser="离线"
            else
           ouser="在线"
           end if
           set rso=nothing
    if fysex="男" then 
    response.write("<img src=image/boy.gif alt=帅哥哟,"&ouser&">")
    else
    response.write("<img src=image/girl.gif alt=美女哟,"&ouser&">")
    end if
       %>
  </td></tr><tr>
  <td valign=top bgcolor=<%=bgcolor%>    class=tdc  colspan=2>

        <% if fyimghead<>"" then%>
      <img src=<%=fyimghead%> width=<%=fyimgwidth%> height=<%=fyimgheight%> vspace=5>
      <%else%>
      <img src=<%=fyface%> vspace=5>
      <%end if
response.write("<BR>")
if int(fygrade)>10 then 
response.write("<img src=image/level/10.gif>")
else
response.write("<img src=image/level/"&fygrade&".gif>")
end if
response.write("<BR><BR>")
if fyname<>"" then response.write(" &nbsp;头衔："&fyname&"<br>")
     response.write(" &nbsp;等级：")
sql_fen = "select g_title from grade where g_num="&fygrade&""
set rs_fen =conn.Execute (sql_fen)
if not rs_fen.eof then%>
<%=rs_fen("g_title")%>
 <% end if
 rs_fen.close
 set rs_fen=nothing
 %>
<br>&nbsp;威望：<%=fyweiwang%><br>
      &nbsp;发贴：<%fysendbar=fysend*0.005+3
 if fysendbar>120 then fysendbar=120
response.write("<img src=image/vote/bar0.gif width="""&fysendbar&""" height=9 alt="&fysend&"篇>")%><br>
      &nbsp;经验：<%fysendbar=fyfen*0.005+3
 if fysendbar>120 then fysendbar=120
response.write("<img src=image/vote/bar2.gif width="""&fysendbar&""" height=9 alt="&fyfen&">")%>
<br>
      &nbsp;财产：<%fysendbar=fymoney*0.005+3
 if fysendbar>120 then fysendbar=120
response.write("<img src=image/vote/bar4.gif width="""&fysendbar&""" height=9 alt="&fymoney&"CPB元>")%>
<br>
       &nbsp;魅力：<%fysendbar=fybeauty*0.005+3
 if fysendbar>120 then fysendbar=120
response.write("<img src=image/vote/bar3.gif width="""&fysendbar&""" height=9 alt="&fybeauty&">")%><br>
            <% if fyaddress<>"" then response.write("&nbsp;来自："&fyaddress&" <br>")%>
            &nbsp;注册：<%=fytime%><br>
            </td>
            </tr>
            </table>
            <%else
            response.write("该用户已经被删除")
            end if%>

    </td>
    <td valign=top  class=tdc width="79%">
    <table border=0 width=96% align=center style=" table-layout:fixed;word-break:break-all">
    <tbody><tr><td valign=top bgcolor=<%=bgcolor%>   width=90% class=tdc>
  <%if fyusername<>"" then%>
      <a href="viewuser.asp?username=<%=fyusername%>" target=_blank><img alt=按此观看<%=fyusername%>的个人资料 src="image/chakan.gif"  border=0></a> 
      <a href="pm.asp?mode=add&action=add&username=<%=fyusername%>"><img alt=按此发论坛短信给<%=fyusername%> src="image/pm.gif"  border=0 ></a> 
      <a href="friend.asp?action=add&u_friendname=<%=fyusername%>"><img alt=按此添加<%=fyusername%>到好友列表 src="image/friend.gif"  border=0> </a> 
            <a href="search.asp?action=search&key=<%=fyusername%>&lanmu=<%=request("l_id")%>&sdate=0&title=2" target=_blank><img alt=按此搜索<%=fyusername%>在该版块发表的主题 src="image/find.gif"  border=0> </a> 
       <%if fytodaytime=0 then%> <a href=mailto:<%=fyemail%>><img alt=按此发邮件给<%=fyusername%> src="image/email.gif"  border=0></a><%end if%>
        <%if fyhome<>""then%> <a href="<%=fyhome%>" target=_blank> <img alt=访问<%=fyusername%>的主页 src="image/homepage.gif"  border=0></a><%end if%>
          <%if fyqq<>""then%> <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=fyqq%>" target="_blank"><img alt="<%=fyusername%> 的 oicq 是<%=fyqq%>，查看<%=fyusername%>的资料" src="image/oicq.gif"  border=0> </a><%end if%>
                    <%end if%>
      <a href="javascript:copyText(document.all.copyid<%=rcount%>);"><IMG alt=复制这个帖子 src="image/copy.gif" border=0></a>
       <a href="reply.asp?l_id=<%=l_id%>&t_id=<%=trim(t_id)%>&r_id=<%=rs_reply("r_id")%>&quote=reply"><img alt=引用这个帖子回复 src="image/yinyong.gif"  border=0></a> 
       <a href="reply.asp?l_id=<%=l_id%>&t_id=<%=trim(t_id)%>"><img alt=直接回复此帖 src="image/re.gif"  border=0 ></a>



        </td> <td valign=middle align=right bgcolor=<%=bgcolor%>   class=tdc height=23 >
  <B>第<%=((page-1)* pages)+rcount+1%>楼</b>
      </td>
      </tr>
      <tr><td bgcolor=<%=tdc2%> height=1 colspan=2></td></tr>
   
      <tr>
    <td  bgcolor=<%=bgcolor%> class=tdc colspan=2 height=* >
      <table width=100% border=0 style=" table-layout:fixed;word-break:break-all">
      <tbody><tr><td valign=top bgcolor=<%=bgcolor%>  class=tdc height=*>
     <% response.write("<span  class=tdc2><img src="&rs_reply("r_face")&" border=0 align=""absmiddle""> 标题:"&htmlencode(rs_reply("r_title"))&"</span>")%>
      </td>
       <td  bgcolor=<%=bgcolor%>  class=tdc height=* align=right>
 字号 <SELECT class=bdtj3   onchange='copyid<%=rcount%>.style.fontSize=this.value' > <OPTION value=9pt selected>9 
                                pt</OPTION> <OPTION value=10pt>10 pt</OPTION> 
                                <OPTION value=12pt>12 pt</OPTION> <OPTION 
                                value=14pt>14 pt</OPTION> <OPTION value=16pt>16 
                                pt</OPTION> <OPTION value=19pt>19 
                              pt</OPTION></SELECT> 
      </td>
      </tr>
      <tr>
               <td valign=top  bgcolor=<%=bgcolor%>  class=tdc colspan=2 height=* id=thetd<%=rcount%> style="FONT-SIZE: 9pt">
    
<span id=copyid<%=rcount%> style="FONT-SIZE: 9pt">
   <%
     erroruser=0
        if l_lockuser<>"" then
      l_lockuser1=split(l_lockuser, "|")