[LeadBBS相关] 关于新话题显示 公告, border, center, 管理员

管理员你好，我安装了登录+新话题+公告插件，可是新话题不显示，我参照了官方论坛的方法，也不可以，我把代码复制给你，帮我看一下。

%>
</script>
</table>
<%end function
function gonggao
if gbl_tableheadstring <> "" then
                  %><table width=<%=def_bbs_screenwidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=gbl_tableheadstring%></td></tr></table><%
            end if%><table width=<%=def_bbs_screenwidth%> border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=def_bbs_darkcolor%> class=tbone>
<tr bgcolor=<%=def_bbs_lightdarkcolor%>>
<td class=tbhead><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=headfont>〓 用户登录 〓</font><b></td>
<td class=tbhead><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=headfont>〓 最新话题 〓</font><b></td>
<td class=tbhead><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=headfont>〓 论坛公告 〓<%if checksupervisorusername = 1 then%>｜</b><a href=user/sendmessage.asp> 发布公告 </a><b>｜</b><%else%></b><%end if%><b></td>
</tr>
<tr bgcolor=<%=def_bbs_lightestcolor%> class=tbbg9>
<td width=24%>
<%if gbl_chk_user <> "" then%>

            <%if gbl_chk_user <> "" then
                 response.write "<img src=images/null.gif width=2 height=2><br><img src=/leadbbs/user.gif> 用 户 名：<a href=user/lookuserinfo.asp?name=" & gbl_chk_user & ">" & gbl_chk_user & "</a><br>"
                 response.write "<img src=images/null.gif width=2 height=2><br><img src=/leadbbs/user_jy.gif> 经 验 值：" & clng(ccur(gbl_chk_onlinetime)/60)
                 end if%>
                 <br>
                 <%if gbl_chk_user <> "" then
                 response.write "<img src=/leadbbs/emoney.gif> " & def_pointsname & "：" & gbl_chk_points
                 end if%>
<br><img src=/leadbbs/p.gif> 浏 览 器：<%=getsbinfo(request.servervariables("http_user_agent"),1)%>
<br><img src=/leadbbs/h.gif> 操作系统：<%=getsbinfo(request.servervariables("http_user_agent"),2)%>
<br><img src=/leadbbs/ip.gif> ＩＰ：<%=gbl_ipaddress%>
<br><img src=/leadbbs/y.gif> 新进来宾：<%displayusernewest%>        
<%
  else
%>
<table border=0 cellspacing=1 cellpadding=6 align=center bgcolor=<%=def_bbs_darkcolor%> class=tbone>
     <form action=user/login.asp method="post">
  <tr>

    <table border=0 cellspacing=0 cellpadding=0 width='100%'>
    <tr align=center>
    <td width='70%'>
      <table border=0>
      <form name=login_frm method=post action='login.asp?action=login_chk' onsubmit="return login_true()">
      <tr>
      <td>
        <p align="right">用户:</p>
      </td>
      <td><input name=user type=text maxlength=20 size=10 value="<%=htmlencode(gbl_chk_user)%>" class=fminpt></td>
      <tr>
      <td>
        <p align="right">密码:</p>
      </td>
      <td><input name=pass type=password maxlength=20 size=10 value="<%=htmlencode(gbl_chk_pass)%>" class=fminpt>
      </td>      
      </tr>
      <tr>
      <td colspan="2"><select name=ckiexp>
                                         <option value="-1">无效
                                         <option value="365">一年
                                         <option value=1>一天
                                         <option value=2>两天
                                         <option value=7>一周
                                         <option value=31>一月
                                   </select>  <input type=submit value="登录" class=fmbtn>
      </td>
      </tr>
    </form></table>  
    </td>
    <tr><td align=center>
      <table border=0>
      <tr>
      <td><a href='user/userjoin.asp'>免费注册</a></td>
      <td width=5></td>
      <td><a href='user/usergetpass.asp'>忘记密码</a></td>
      </tr>
      </table>
    </td></tr>
    </table>
<% end if %>
<td width=38%>
<script language=javascript src="other/article/topic.asp?boardid=1&tora=1&hotflag=0&number=10&stime=0&strlen=24&hits=0"></script>
</td>
<td width=38%>
<%
if gbl_chk_tempstr <> "" then
     response.write "<br><p align=left><font color=ff0000 class=redfont><b>" & gbl_chk_tempstr & "</b></font>"
else
     gbl_chk_tempstr = ""
     getmessagevalue
     if gbl_chk_tempstr = "" then
           lookmessage
     else
           response.write "<p align=center><font color=ff0000 class=redfont>   " & gbl_chk_tempstr & ""
     end if
end if%>
</td>
</tr>
</table>
<%if gbl_tablebottomstring <> "" then
                  %><table width=<%=def_bbs_screenwidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=gbl_tablebottomstring%></td></tr></table><br><%
            end if%>
<%
end function
main%>

这是other/article/topic.asp里我找到的代码，红色的是我按要求加上的

r sql = 0 to num
                if getdata(2,sql) = 1 then getdata(1,sql) = killhtmllabel(getdata(1,sql))
               
                dim fulltitle
                fulltitle = getdata(1,sql)
                fulltitle = replace(getdata(1,sql),"""","'")               
                if len(getdata(1,sql)) > strlen/2 then
                        if strlength(getdata(1,sql)) > strlen then
                                getdata(1,sql) = lefttrue(getdata(1,sql),strlen - 3) & "..."

boards和topicsi里我路径也改一致了，对了说明一下，这两个文件是我从网上下的，文件名原来是这样的，boards2    topicsi3    我把2/3去掉后替换了原来的文件，然后按上面的的办法改的。就这些了。

http://www.elxy.net/leadbbs/other/article/topic.asp  可以调出来啊，你打开看看

这可怎么办。我还挺喜欢那个的

但是按照我上述的办法在本机调试,本机上也不显示啊

有个细节忘说了，我的论坛原来是和自由动力网站整合好的，可是因为某种原因，我把网站删了，现在只单独用论坛，网站首页是显示论坛新贴的。不知道和这有关否？是不是哪能些文件里有关联。