|
|
| 源码名称 |
LeadBBS首页调用热帖自动显示隐藏版 v1.0 |
| 运行环境 |
Win9x/NT/2000/XP/ |
|
| 整理时间 |
2006-5-29 12:57:41 |
| 源码星级 |
 |
| 源码语言 |
简体中文 |
| 源码类型 |
国产软件 |
| 授权方式 |
免费软件 |
| 源码大小 |
11.0 KB |
| 相关连接 |
暂时没有 |
| 下载统计 |
|
| 解压密码 |
www.99admin.com |
|
| ∷源码说明∷ |
修改“十大帖子”为鼠标移入显示、鼠标移走消失的方法：
1。将Topic.asp解压到LeadBBS\other\Article下
2。编辑Boards.asp，找到
'Response.Write "fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)):"&fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)) 'DEF_PageExeTime1=Timer * 1000
%>
<%
If BoardNum = -1 Then
Response.Write "<table width=" & DEF_BBS_ScreenWidth & " border=0 cellspacing=1 cellpadding=6 align=center bgcolor=" & DEF_BBS_DarkColor & " class=TBone><tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td colspan=4>找不到任何版面</td></tr></table>"
Else%>
<s cript language=javas cript>
将下面的代码插入到第三行的%> 和 <%之间，就好了。
<table id=HotBoard width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center>
<tr><td><%=GBL_TableHeadString%></td></tr></table>
<table onmouseover=dowithhotboard(HotBoard1,1) 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/NullPic.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>＝十大最新话题＝</font><b></td>
<td class=TBHead><img src=/images/NullPic.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>＝十大热门话题＝</font><b></td></tr>
</table>
<div id=HotBoard1 bgcolor=#ffaa22 style='position:absolute;visibility:hidden'>
<table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
<td width=50%>
<s cript language=javas cript src=./other/article/topic.asp></s cript>
</td>
<td width=50%>
<s cript language=javas cript src=./other/article/topic.asp?Hotflag=1></s cript>
</td>
</tr></table></div>
<br>
<s cript language=javas cript>
var objname = "";
var H1Visible = 0;
HotBoard1.style.left=HotBoard.offsetLeft
function dowithhotboard(objname,showmethod){
if (objname != ""){
if (showmethod==1){
objname.style.visibility="visible";
H1Visible = 1;}
else{
objname.style.visibility="hidden";
H1Visible = 0; }
}
}
</s cript>
<s cript language="javas cript">
var where = ""; // which link
function checkwhere(e) {
if (document.layers){
xCoord = e.x;
yCoord = e.y;
}
else if (document.all){
xCoord = event.clientX;
yCoord = event.clientY;
}
else if (document.getElementById){
xCoord = e.clientX;
yCoord = e.clientY;
}
yCoord=yCoord+document.body.scrollTop;
self.status = "X???= "+ xCoord + " Y???= " +yCoord;
if ((xCoord<HotBoard.offsetLeft || xCoord> HotBoard.offsetWidth+HotBoard.offsetLeft || yCoord<HotBoard.offsetTop || yCoord> HotBoard1.offsetTop+HotBoard1.offsetHeight) & H1Visible)
dowithhotboard(HotBoard1,0);
}
document.onmousemove = checkwhere;
if(document.captureEvents) {document.captureEvents(Event.MOUSEMOVE);}
</s cript>
chaoliu修改于2004-5-11
欢迎来我的站点交流学习。
潮流工作室： http://www.chao6.com
本站为非营利性站点，所有资源均是网上搜集或私下交流学习之用，任何涉及商业盈利目的均不得使用，否则产生的一切后果将由您自己承担！本站仅仅提供一个观摩学习的环境，将不对任何资源负法律责任!、本站的所有软件和资料均为软件作者提供和网友推荐收集整理而来，仅供学习和研究使用。如有侵犯你版权的，请来信指出，本站将立即改正。
访问本站的用户必须明白，本站对提供下载的软件等不拥有任何权利，其版权归该下载资源的合法拥有者所有。 |
|
您当前的位置：久久站长站 -> 论坛相关 -> Leadbbs插件 -> 下载LeadBBS首页调用热帖自动显示隐藏版 v1.0