关于新话题显示
管理员你好，我安装了登录+新话题+公告插件，可是新话题不显示，我参照了官方论坛的方法，也不可以，我把代码复制给你，帮我看一下。%>
</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%>
[color=red]<script language=javascript src="other/article/topic.asp?boardid=1&tora=1&hotflag=0&number=10&stime=0&strlen=24&hits=0"></script>[/color]
</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%> 请先看一下此帖http://www.leadbbs.com/a/a2.asp?b=200&id=1542847如仍有问题再来问。 这是other/article/topic.asp里我找到的代码，红色的是我按要求加上的
r sql = 0 to num
if getdata(2,sql) = 1 then getdata(1,sql) = killhtmllabel(getdata(1,sql))
dim fulltitle
[color=red]fulltitle = getdata(1,sql)
fulltitle = replace(getdata(1,sql),"""","'")[/color]
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去掉后替换了原来的文件，然后按上面的的办法改的。就这些了。 1、注意一下文件的名称：
<script language=javascript src="other/article/[color=red]topic.asp[/color]?boardid=1&tora=1&hotflag=0&number=10&stime=0&strlen=24&hits=0"></script>
[color=red]还是topicsi3[/color]？要一致。
2、在浏览器地址栏中输入http://你的论坛地址/other/article/topic.asp，看看能否调出新帖（当然要有新帖才行）？如果能，说明topic.asp文件没问题；如果不能说明此文件有问题，更换。
3、如果还不能调出的话，将[color=red]<script language=javascript src="other/article/topic.asp?boardid=1&tora=1&hotflag=0&number=10&stime=0&strlen=24&hits=0"></script>[/color]修改为：
[color=red]<script language=javascript src="./other/article/topic.asp"></script>[/color]
如此时能调出，说明后面加的参数有问题。
4、若再不行，请给出地址，帮你测试一下。因为有一些新帖不能显示的情况是与空间有关的。这种情况目前还没找到解决的办法。 http://www.elxy.net/leadbbs/other/article/topic.asp 可以调出来啊，你打开看看 [quote][b]下面引用由[i]散步的风[/i]发表的内容：[/b]
http://www.elxy.net/leadbbs/other/article/topic.asp 可以调出来啊，你打开看看[/quote]
直接打开可以，但新建一html页，加入js代码后，提示错误。这种情况属于空间问题，以前遇到好几次了。没办法。 这可怎么办。我还挺喜欢那个的[EM14] 但是按照我上述的办法在本机调试,本机上也不显示啊 [quote][b]下面引用由[i]散步的风[/i]发表的内容：[/b]
但是按照我上述的办法在本机调试,本机上也不显示啊[/quote]
啊？本机也不显示？那你试试这个吧：http://www.leadbbs.com/a/a.asp?b=10&id=808615看看能否正常调用？ 有个细节忘说了，我的论坛原来是和自由动力网站整合好的，可是因为某种原因，我把网站删了，现在只单独用论坛，网站首页是显示论坛新贴的。不知道和这有关否？是不是哪能些文件里有关联。 可能。你以前也用了新帖调用吗？有没有调用成功过呢？
还有就是与一些特殊代码有关，比如屏蔽右键、禁止复制等。
页:
[1]