如儿 2008-3-17 18:03
<span style="FONT-SIZE: 12px;">1 在顶部插入“查看新贴”等按钮<br/>打开bbs/inc/Board_Popfun.asp这个文件，找到这一段(可以搜索null.gif找到)：<br/><br/><table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center" height="2"><br/><tr><br/> <td><img src=<%=DEF_BBS_HomeUrl%>images/null.gif width=1 height=1></td><br/></tr><br/></table><br/><br/>在后面插入：<br/><br/><table width="750" border="0" align="center"><br/> <tr> <br/> <td><div align="center"> <a href="/bbs/Search/List.asp">查看新贴</a> <br/> <a href="/bbs/User/UserAncTopic.asp">发表主题</a><br/> <a href="/bbs/User/UserFriend.asp">我的好友</a> <br/> <a href="/bbs/User/SendMessage.asp">短消息</a></div></td><br/> </tr><br/></table><br/><br/>我的论坛是bbs目录下的，如果不是请自行修改链接。<br/>如果想多加几个按钮，只要多加几句：<br/><a href="/bbs/User/UserFriend.asp">参与主题</a><br/>这样的代码就行了。<br/><br/> 2 区版主列表显示的修改方法 <br/><br/> 首先请对相关文件做好备份。<br/> 需改动的文件：boards.asp以及模板文件<br/>以下修改方法只适用默认模板，如果你使用了其它模板，则除了要按以下方法修改boards.asp文件外，还要按照第一步的修改方法修改你的模板。<br/>第一步：<br/>找到<br/>function displayboard(BoardID,BoardAssort,BoardName,BoardIntro,LastWriter,LastWriteTime,TopicNum,AnnounceNum,ForumPass,LastAnnounceID,LastTopicName,MasterList,BoardLimit,AssortName,TodayAnnounce,GoodNum,BoardImgUrl,BoardImgWidth,BoardImgHeight,onlineUser,LowerBoard)<br/>{<br/> var Temp = 0;<br/> if(CurrentAssosrt!=BoardAssort)<br/> {<br/> CurrentAssosrt = BoardAssort<br/> if(Flag == 1)<br/> { document.write("</table>");<br/> if(GBL_TableBottomString != "")document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>" + GBL_TableBottomString + "</td></tr></table>");<br/> document.write("<br>");<br/> }<br/> if(GBL_TableHeadString != "")document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>" + GBL_TableHeadString + "</td></tr></table>");<br/> document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=1 cellpadding=5 align=center bgcolor=#cccccc class=TBone><tr bgcolor=#666699><td colspan=4 class=TBHead><img src=images/blank.gif width=2 height=3><br><a href=Boards.asp?Assort=" + BoardAssort + "><b><font color=white class=HeadFont>" + AssortName + "</font></b></a></td></tr>");<br/>改为<br/>function displayboard(BoardID,BoardAssort,BoardName,BoardIntro,LastWriter,LastWriteTime,TopicNum,AnnounceNum,ForumPass,LastAnnounceID,LastTopicName,MasterList,BoardLimit,AssortName,TodayAnnounce,GoodNum,BoardImgUrl,BoardImgWidth,BoardImgHeight,onlineUser,LowerBoard,AssortMaster)<br/>{<br/> var Temp = 0;<br/> if(CurrentAssosrt!=BoardAssort)<br/> {<br/> CurrentAssosrt = BoardAssort<br/> if(Flag == 1)<br/> { document.write("</table>");<br/> if(GBL_TableBottomString != "")document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>" + GBL_TableBottomString + "</td></tr></table>");<br/> document.write("<br>");<br/> }<br/> if(GBL_TableHeadString != "")document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>" + GBL_TableHeadString + "</td></tr></table>");<br/> document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=1 cellpadding=5 align=center bgcolor=#cccccc class=TBone><tr bgcolor=#666699><td colspan=4 class=TBHead><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td width='75%'><img src=images/blank.gif width=2 height=3><br><a href=Boards.asp?Assort=" + BoardAssort + "><b><font color=white class=HeadFont>" + AssortName + "</font></b></a></td><td align=right>");<br/> DisplayAssortMaster(AssortMaster);<br/> document.write("</td></tr></table></td></tr>");<br/>第二步 找到<br/>function DisplayBoardMastList(s,num)<br/>{<br/> if("?LeadBBS?" == s)<br/> {<br/> document.write("全体版主");<br/> }<br/> else<br/> {<br/> if(s == "" || s == null)document.write("无");<br/> var ss,n;<br/> ss = s.split(",");<br/> for(n=0;n<ss.length;n++)<br/> {<br/> if(n>=num)break;<br/> document.write("<a href=\"User/LookUserinfo.asp?name=" + htmlencode(ss[n]) + "\">" + htmlencode(ss[n]) + "</a> ");<br/> }<br/> if(n>=num && n<ss.length)<br/> {<br/> document.write("<span style=\"cursor:hand\" title=\"更多版主: " + ss[n]);<br/> for(n=n+1;n<ss.length;n++){document.write(" " + ss[n]);}<br/> document.write("\">...</span>");<br/> }<br/> }<br/>}<br/><br/>在下面加入<br/><br/>function DisplayAssortMaster(s)<br/>{<br/><br/> document.write("<select onchange=\"var jmpURL=this.options[this.selectedIndex].value; if(jmpURL!='') {self.location=jmpURL;} else {this.selectedIndex=0;}\" ><option selected>本区版主</option>")<br/> if("?LeadBBS?" == s)<br/> {<br/> <br/> document.write("<option>全体版主</option></select>")<br/> <br/> }<br/> else<br/> {<br/> if(s == "" || s == null)document.write("<option>无</option></select>");<br/> var ss,n;<br/> ss = s.split(",");<br/> for(n=0;n<ss.length;n++)<br/> {<br/> <br/> document.write("<option value=\"User/LookUserinfo.asp?name=" + htmlencode(ss[n]) + "\">" + htmlencode(ss[n]) + "</option>");<br/> <br/> }<br/> <br/> document.write("</select>")<br/> }<br/> <br/>}<br/> <br/><br/>第三步 找到<br/>Response.Write VbCrLf & "displayboard(" & BoardID & "," & GetData(1,0) & ",""" & Replace(Replace(GetData(0,0),"\","\\"),"""","\""") & """,""" & Replace(Replace(Replace(GetData(2,0),"\","\\"),"""","\"""),VbCrLf,"\n") & """,""" & Replace(Replace(GetData(3,0),"\","\\"),"""","\""") & """,""" & GetData(4,0) & """," & GetData(29,0) & "," & GetData(30,0) & ",""" & ForumPass & """," & GetData(19,0) & ",""" & Replace(Replace(Replace(GetData(20,0),"\","\\"),"""","\"""),"<","<") & """,""" & Replace(Replace(GetData(10,0),"\","\\"),"""","\""") & """," & GetData(9,0) & ",""" & Replace(Replace(GetData(14,0),"\","\\"),"""","\""") & """," & GetData(31,0) & "," & GetData(32,0) & ",""" & Replace(Replace(GetData(21,0),"\","\\"),"""","\""") & """,""" & GetData(22,0) & """,""" & GetData(23,0) & """,0,""" & GetData(27,0) & """);"<br/><br/>改为<br/><br/>Response.Write VbCrLf & "displayboard(" & BoardID & "," & GetData(1,0) & ",""" & Replace(Replace(GetData(0,0),"\","\\"),"""","\""") & """,""" & Replace(Replace(Replace(GetData(2,0),"\","\\"),"""","\"""),VbCrLf,"\n") & """,""" & Replace(Replace(GetData(3,0),"\","\\"),"""","\""") & """,""" & GetData(4,0) & """," & GetData(29,0) & "," & GetData(30,0) & ",""" & ForumPass & """," & GetData(19,0) & ",""" & Replace(Replace(Replace(GetData(20,0),"\","\\"),"""","\"""),"<","<") & """,""" & Replace(Replace(GetData(10,0),"\","\\"),"""","\""") & """," & GetData(9,0) & ",""" & Replace(Replace(GetData(14,0),"\","\\"),"""","\""") & """," & GetData(31,0) & "," & GetData(32,0) & ",""" & Replace(Replace(GetData(21,0),"\","\\"),"""","\""") & """,""" & GetData(22,0) & """,""" & GetData(23,0) & """,0,""" & GetData(27,0) & """,""" & GetData(35,0) & """);" <br/>注意先备份源文件 <br/><br/> 3 LEADBBS翻页功能前置（更新）<br/>把翻页功能放在前面其实实现起来非常简单<br/><br/>打开Announce\announce.asp<br/><br/>第785行是： </script><br/>在他后面加上： <br/><br/> <%<br/> Response.Write PageSplitString<br/> Response.Write PageSplitString2<br/> %><br/><br/>就可以了<br/><br/>PS：想把这个翻页加到右边可以这么做：<br/><br/>在那个文件的第707行<br/>PageSplitString = "<table width=" & DEF_BBS_ScreenWidth & " border=0 cellspacing=1 cellpadding=0 align=center bgcolor=" & DEF_BBS_DarkColor & " class=TBone><tr bgcolor=" & DEF_BBS_LightestColor & " height=25 class=TBBG9><td><table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><p align=""right""><img src=" & DEF_BBS_HomeUrl & "images/null.gif width=2 height=3><br> "<br/><br/>插入红色部分就OK啦<p align=""right""><br/><br/> 4 leadbbs中如何禁止右键<br/> leadbbs中如何禁止右键 <br/> 放在boardpopfun.asp<br/> <script language="JavaScript"><br/> <!--<br/><br/> if (window.Event) <br/> document.captureEvents(Event.MOUSEUP); <br/><br/> function nocontextmenu() <br/> {<br/> event.cancelBubble = true<br/> event.returnValue = false;<br/><br/> return false;<br/> }<br/><br/> function norightclick(e) <br/> {<br/> if (window.Event) <br/> {<br/> if (e.which == 2 || e.which == 3)<br/> return false;<br/> }<br/> else<br/> if (event.button == 2 || event.button == 3)<br/> {<br/> event.cancelBubble = true<br/> event.returnValue = false;<br/> return false;<br/> }<br/><br/> }<br/><br/> document.oncontextmenu = nocontextmenu; // for IE5+<br/> document.onmousedown = norightclick; // for all others<br/> //--><br/> </script><br/><br/> <br/><br/> 5 LeadBBS论坛新贴调用程序<br/>1、可以选择是否显示发贴作者(最后回复人)<br/>2、可以选择是否显示贴子贴子发表时间<br/>3、显示的时间有3种方式可供选择：A、年月日+时间 B、年月日 C、时间<br/>4、调用贴子排序有多种方式：按发贴时间、最后更新时间、点击数、回复数（调用热贴）<br/>5、可以选择是否显示版块名称<br/>6、可以指定调用贴子网址，非指定的网址无法调用贴子（防止别人调用论坛新贴）<br/>7、可以禁止调用某版块的贴子（如禁止调用私密的论坛新贴）<br/>8、可自定义调用某段时间内的热贴<br/><br/><br/>主题帖子调用使用说明<br/><br/>调用代码举例1：<br/><script language=javascript src=http://安装目录/other/Article/topic.asp?BoardID=1&Number=20&StrLen=12&NewWindow=yes&PithFlag=0&showname=yes&showtime=yes&pai=LastTime&ShowBoardName=yes&hotdas=0></script><br/><br/>以上代码表示显示版面ＩＤ号为1的版面的最新20条主题，主题字数超过12个字节的以12字节显示(一个汉字为两个字节)，调用时显示贴子作者及最后更新时间，贴子列表按最后更新时间排序。<br/><br/>参数说明：<br/>BoardID： 版面ＩＤ号，如果不指定，则表示调用论坛最新10条主题<br/>Number：显示记录条数，最多允许调用100条，不指定默认调用10条主题<br/>StrLen：有的帖子主题可能太长，为了美化显示效果，限制显示主题的字节长度<br/>NewWindow：在新窗口中打开请设置为yes，其它表示否<br/>PithFlag：是否调用精华，1-表示仅调用精华帖(可以加上BoardID限制调用版面)<br/>showname：是否显示发贴作者名字，yes显示，其它不显示<br/>showtime：是否显示新贴最后更新时间，yes显示“年月日+时间”，yes2显示“年月日”，yes3显示“时间”，其它不显示<br/>pai：调用新贴排序，ID 、 LastTime或hits，ID是按发贴时间排序，LastTime是按最后更新排序，Hits是按贴子点击数排序，ChildNum是按主题回复数排序，不指定默认按最后更新时间排序<br/>ShowBoardName：是否显示版块名称,yes显示，其它不显示<br/>hotdays：定义某段时间内的热贴，0不调用热贴，n(n>0)表示是n天内的热贴子<br/><br/><br/>调用代码举例2：（热贴调用）<br/><script language=javascript src=http://安装目录/other/Article/topic.asp?BoardID=0&Number=10&StrLen=12&NewWindow=yes&PithFlag=0&showname=yes&showtime=yes2&pai=hits&ShowBoardName=no&hotdas=7></script><br/><br/>调用7天内的10条热贴 <br/><br/><br/>调用某专题区最新主题说明<br/><br/><br/>调用代码举例：<br/><script language=javascript src=http://安装目录/other/Article/topic.asp?GoodAssort=10&Number=20&StrLen=12&NewWindow=yes&PithFlag=0&showname=yes&showtime=yes&pai=LastTime></script><br/><br/>参数说明：<br/>GoodAssort: 指专题区编号<br/> <br/><br/>锁定调用新贴网址和禁止调用方法<br/><br/>lockurl="<a href="http://5256.web165.com/" target="_blank">http://5256.web165.com</a>,http://www.bootu.com";<br/>NotShowBoard="100|888"<br/><br/>参数说明：<br/>lockurl 允许调用新贴网址，多个网址可以用分号隔开，不限制调用网址则留空<br/>NotShowBoard 禁止调用的版块ID，禁止多个版块ID用 | 隔开，如果不禁止则留空</span>
如儿 2008-3-17 18:03
<span style="FONT-SIZE: 12px;">6 最新话题无法显示的问题<br/>解决办法————><br/><br/>在other/article.asp有的帖子调用的文件是topicsi3.asp，或者topic.asp中找到以下代码：<br/><br/>Dim FullTitle<br/>FullTitle = GetData(1,SQL)<br/><br/>在下面加上以下代码：<br/><br/>FullTitle = replace(GetData(1,SQL),"""","'")<br/><br/>这样就OK啦！ <br/> 7 用QQshow形象代替你的头像<br/>看到"QQ形象插件"，我今天就告诉大家怎么样就可以免费用QQshow形象代替你的头像！呵呵<br/><br/>我们知道QQ形象的地址如下：<br/><br/>[IMG]<a href="http://qqshow-user.tencent.com/58769930/10/00[/IMG" target="_blank">http://qqshow-user.tencent.com/58769930/10/00[/IMG</a> ]（这里没有空格的）<br/><br/>如果你用这个方法就可以在帖子中插入形象秀，在头像中插入的方法其实是一样的！<br/>打开：上传头像→自定义头像ok，就是这样:<br/><br/><a href="http://qqshow-user.tencent.com/" target="_blank">http://qqshow-user.tencent.com/</a>欲插入的QQ号码/10/00/<br/>访问网址超出本站范围，不能确定是否安全 <br/>继续访问 取消访问<a href="http://qqshow-user.tencent.com/" target="_blank">http://qqshow-user.tencent.com/</a>欲插入的QQ号码/10/00/<br/><br/>这里的QQ号码可以是任意人的QQ，只要你觉得他的QQ好酷啊....◎！＃％！◎＃％<br/><br/> 8 论坛资料中显示QQSHOW的办法<br/>论坛资料中显示QQSHOW的办法。。<br/><br/>请在announce.asp中找到：<br/>Response.Write "" & DEF_PointsName & "：" & GetData(26,n) & "<br>"<br/> Response.Write "经验：" & CLng(cCur(GetData(28,n))/60) & "<br>"<br/> Response.Write "文章：" & GetData(33,n) & "<br>"<br/> Response.Write "注册：" & Mid(RestoreTime(GetData(30,n)),3,14)<br/> <br/>后面插入 <br/><br/><br/>If isNull(GetData(21,n)) or GetData(21,n)="" Then GetData(21,n)=0<br/>If cCur(GetData(21,n))>=0 Then Response.Write "<br><a href=http://home.qq.com/home/?uin=" & GetData(21,n) & " target=_blank><img border=0 height=220 src=http://qqshow-user.tencent.com/" & GetData(21,n) & "/10/00/ ></a>" <br/><br/> 9 新贴后添加new图标及发贴时间改变颜色..<br/><br/>日期时间按官方方式计算，即从0时做为分界点：<br/>----------------------------------------------------------------------------<br/><br/>修改board/inc/board_fun.asp<br/>如果要以发贴时间做为新贴标准(显示new图标)在行492 document.write("</a>");下面加上一行:<br/>if(G21.substr(0,8)==now) document.write(" <img src=../images/<%=GBL_DefineImage%>new.gif border=0 align=absmiddle width=28 height=11>") <br/><br/><br/>如果要以回贴时间做为新贴标准(显示new图标)在行492 document.write("</a>");下面加上一行:<br/>if(G6.substr(0,8)==now) document.write(" <img src=../images/<%=GBL_DefineImage%>new.gif border=0 align=absmiddle width=28 height=11>") <br/><br/><br/>----------------------------------------------------------------------------<br/>日期时间以24小时内为新贴标准：<br/>----------------------------------------------------------------------------<br/><br/>修改文件board/inc/board_fun.asp<br/><br/>将358行<br/>var now = "<%=Left(GetTimeValue(DEF_Now),8)%>"; <br/><br/>换成<br/>var now = "<%=Left(GetTimeValue(DEF_Now),12)%>"; <br/><br/><br/>a.添加new.gif图标<br/>如果以发贴时间做为新贴标准(显示new图标)在行492 document.write("</a>");下面加上一行:<br/>if(parseInt(G21.substr(0,12))>=parseInt(now)-10000) document.write(" <img src=../images/<%=GBL_DefineImage%>new.gif border=0 align=absmiddle width=28 height=11>"); <br/><br/>如果以回贴时间做为新贴标准(显示new图标)在行492 document.write("</a>");下面加上一行:<br/>if(parseInt(G6.substr(0,12))>=parseInt(now)-10000) document.write(" <img src=../images/<%=GBL_DefineImage%>new.gif border=0 align=absmiddle width=28 height=11>"); <br/><br/><br/><br/>b.修改发贴时间颜色<br/>将521 <br/>if(G6.substr(0,8)==now)document.write("<font color=990000 class=RedFont>"); <br/><br/>换成：<br/>如果以发贴时刻起24小时内日期时间显示红色，且回贴时刻起24小时内日期时间显示兰色，换成如下行：<br/>if(parseInt(G21.substr(0,12))>=parseInt(now)-10000)document.write("<font color=red class=RedFont>")<br/>else if(parseInt(G6.substr(0,12))>=parseInt(now)-10000)document.write("<font color=blue class=BlueFont>"); <br/><br/>如果以发贴及回贴起24小时内日期时间均显示红色，那么换成如下行：<br/>if(parseInt(G6.substr(0,12))>=parseInt(now)-10000)document.write("<font color=990000 class=RedFont>"); <br/><br/><br/>new图标是利用leadbbs自带的new图标,你可以换成你自己的,将new.gif拷到images下替换掉,并修改width及height值就可以了<br/><br/>============================================================================<br/><br/>----------------------------------------------------------------------------<br/>对+号展开的主题列表回复时间修改<br/>----------------------------------------------------------------------------<br/><br/>修改board/SmallList.asp文件<br/><br/><br/>将225行<br/>If DateDiff("d",Temp,DEF_Now)<1 Then Response.Write "tempstr+="" <font color=990000 class=RedFont>"";" & VbCrLf <br/><br/><br/>换成1或2（跟据需要任选一种）<br/><br/>1.从发布主题时刻起24小时内日期时间显示为红色，从回复贴时刻起24小时内日期时间显示为兰色换成如下：<br/>If N=For1 then <br/> If DateDiff("s",Temp,DEF_Now)<86400 Then Response.Write "tempstr+="" <font color=990000 class=RedFont>"";" & VbCrLf<br/>Else<br/> If DateDiff("s",Temp,DEF_Now)<86400 Then Response.Write "tempstr+="" <font color=0000CC class=BlueFont>"";" & VbCrLf<br/>End IF <br/><br/><br/>2.主题与回复贴时间从发布时刻起24小内均显示红色；<br/>If DateDiff("s",Temp,DEF_Now)<86400 Then Response.Write "tempstr+="" <font color=990000 class=RedFont>"";" & VbCrLf</span>
如儿 2008-3-17 18:04
<span style="FONT-SIZE: 12px;">10 rm格式播放代码全屏播放改进<br/><br/><br/>官方代码无全屏播放，这对想全屏播放的朋友来说很不方便。<br/>下面代码针对rm格式播放，方法是：<br/><br/>ubbcode.asp中找下面的代码：<br/><br/><OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONSOLE VALUE=""" & second(DEF_Now) & "$3""><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=0></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1><PARAM NAME=SRC VALUE=$3><PARAM NAME=AUTOSTART VALUE=0><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=""" & second(DEF_Now) & "$3""></OBJECT><br/><br/>全部替换成下面代码即可：<br/><br/>……………………………………………………<br/><br/><input type=""button"" onclick=""if (document.player.GetPlayState()==3) document.player.SetFullScreen()"" value=""全屏播放"" style=""border-style: ridge; border-width: 1""><br><OBJECT id=player height=$2 width=$1 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA name=player><PARAM NAME=_ExtentX VALUE=10583><PARAM NAME=_ExtentY VALUE=7197><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=SHUFFLE VALUE=0><PARAM NAME=PREFETCH VALUE=0><PARAM NAME=NOLABELS VALUE=-1><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONTROLS VALUE=Imagewindow><PARAM NAME=CONSOLE VALUE=clip1><PARAM NAME=LOOP VALUE=1><PARAM NAME=NUMLOOP VALUE=0><PARAM NAME=CENTER VALUE=0><PARAM NAME=MAINTAINASPECT VALUE=0><PARAM NAME=BACKGROUNDCOLOR VALUE=#000000></OBJECT><BR><OBJECT id=RP2 height=57 width=$1 classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA><PARAM NAME=_ExtentX VALUE=10583><PARAM NAME=_ExtentY VALUE=1508><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=SHUFFLE VALUE=0><PARAM NAME=PREFETCH VALUE=0><PARAM NAME=NOLABELS VALUE=-1><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONTROLS VALUE=""ControlPanel,StatusBar""><PARAM NAME=CONSOLE VALUE=clip1><PARAM NAME=LOOP VALUE=1><PARAM NAME=NUMLOOP VALUE=0><PARAM NAME=CENTER VALUE=0><PARAM NAME=""MAINTAINASPECT"" VALUE=0><PARAM NAME=BACKGROUNDCOLOR VALUE=#000000></OBJECT><br/><br/> 11版块名称及简介文字特效.<br/>(1).论坛版块名称文字7彩色显示:<br/><br/><span style=behavior:url(inc/font.htc)>论坛版块名称</span><br/><br/>(2).论坛版块名称文字加粗显示:<br/><br/><BASEFONT SIZE=3><B>论坛版块名称</B></BASEFONT><br/><br/>(3).论坛版块简介文字绿色显示(将color=green改变可变其它色):<br/><br/><font color=green class=GreenFont>论坛版块简介....</font><br/><br/>(4).论坛版块简介文字7彩色显示<br/><span style=behavior:url(inc/font.htc)>论坛版块简介....</span> <br/><br/> 12 背景音乐<br/><script language="javascript"><br/><!--<br/>var sound1="<a href="http://www.eyou.com/song1.mid"" target="_blank">http://www.eyou.com/song1.mid"</a>;;;;<br/>var sound2="<a href="http://www.eyou.com/song2.mid"" target="_blank">http://www.eyou.com/song2.mid"</a>;;;;<br/>var sound3="<a href="http://www.eyou.com/song3.mid"" target="_blank">http://www.eyou.com/song3.mid"</a>;;;;<br/>var sound4="<a href="http://www.eyou.com/song4.mid"" target="_blank">http://www.eyou.com/song4.mid"</a>;;;;<br/>var sound5="<a href="http://www.eyou.com/song5.mid"" target="_blank">http://www.eyou.com/song5.mid"</a>;;;;<br/>var sound6="<a href="http://www.eyou.com/song6.mid"" target="_blank">http://www.eyou.com/song6.mid"</a>;;;;<br/>var sound7="<a href="http://www.eyou.com/song7.mid"" target="_blank">http://www.eyou.com/song7.mid"</a>;;;;<br/>var sound8="<a href="http://www.eyou.com/song8.mid"" target="_blank">http://www.eyou.com/song8.mid"</a>;;;;<br/>var sound9="<a href="http://www.eyou.com/song9.mid"" target="_blank">http://www.eyou.com/song9.mid"</a>;;;;<br/>var sound10="<a href="http://www.qqiao.com/bbs/images/NOTIFY.WAV"" target="_blank">http://www.qqiao.com/bbs/images/NOTIFY.WAV"</a>;;;;<br/>var x=Math.round(Math.random()*9)<br/>if (x==0) x=sound1<br/>else if (x==1) x=sound2<br/>else if (x==2) x=sound3<br/>else if (x==3) x=sound4<br/>else if (x==4) x=sound5<br/>else if (x==5) x=sound6<br/>else if (x==6) x=sound7<br/>else if (x==7) x=sound8<br/>else if (x==8) x=sound9<br/>else x=sound10<br/>if (navigator.appName=="Microsoft Internet Explorer")<br/>document.write('<bgsound src='+'"'+x+'"'+' loop="infinite">')<br/>else <br/>document.write('<embed src='+'"'+x+'"'+'hidden="true" border="0" width="20" height="20" autostart="true" loop="true">')<br/>//--><br/></script><br/><br/> 13 淡入淡出菜单修改方法<br/> 淡入淡出菜单修改方法：<br/> 搜索 board_popfun.asp 中的<br/><br/> function MM_findObj(n,d)<br/> {<br/> var p,i,x;<br/> if(!d)d=document;<br/> <br/> if((p=n.indexOf("?"))>0&&parent.frames.length)<br/> {<br/> <br/> d=parent.frames[n.substring(p+1)].document; <br/> n=n.substring(0,p);<br/> }<br/> <br/> if(!(x=d[n])&&d.all)x=d.all[n];for(i=0;!x&&i<d.forms.length;i++)x=d.forms[n];<br/> <br/> for(i=0;!x&&d.layers&&i<d.layers.length;i++)x=MM_findObj(n,d.layers.document);<br/> if(!x && <br/> document.getElementById)x=document.getElementById(n);return(x);<br/> }<br/><br/> function MSHL()<br/> {<br/> var <br/> i,p,v,obj,args=MSHL.arguments;<br/> <br/> for(i=0;i<(args.length-2);i+=3)if((obj=MM_findObj(args))!=null){v=args[i+2];<br/> <br/> if(obj.style){obj=obj.style;v=(v=='show')?'visible':(v='hide')?'hidden':v;}<br/> obj.visibility=v;}<br/> }<br/> function MN1(n)<br/> {<br/> document.write("<div id=Layer" + <br/> n + " style='position:absolute'>");<br/> document.write("<div id=serve" + <br/> n + " style='position:absolute; left:0px; top:14px; <br/> width:90px; height:30px; z-index:20; visibility: <br/> hidden;' onMouseOut=MSHL('serve" + n + "','','hide') <br/> onMouseOver=MSHL('serve" + n + "','','show')>");<br/> document.write("<table <br/> width=100% border=0 cellspacing=1 cellpadding=3 <br/> bgcolor=<%=DEF_BBS_DarkColor%> class=TBMenu <br/> style='FILTER: alpha(opacity=85)'>");<br/> document.write("<tr <br/> bgcolor=<%=DEF_BBS_LightColor%> class=MenuBG><td <br/> style='line-height:16px'>");<br/> document.write("<table <br/> width=100% border=0 border=0 cellspacing=0 cellpadding=1 <br/> style=cursor:hand>");<br/> }<br/> function MN(m,n)<br/> {<br/> document.write("<tr><td <br/> onmouseover=\"this.className='MenuColor';\" <br/> onmouseout=\"this.className='';\">");<br/> document.write("<img <br/> src=<%=DEF_BBS_HomeUrl%>images/blank.gif height=2 <br/> width=2><br><img <br/> src=<%=DEF_BBS_HomeUrl%>images/blank.gif height=2 <br/> width=2><a href=\"");<br/> if(m.substr(0,5) != <br/> "http:"){document.write("<%=DEF_BBS_HomeUrl%>" + m + <br/> "\">" + n + "</a></td></tr>");}<br/> else{document.write(m + "\">" + <br/> n + "</a></td></tr>");}<br/> }<br/> function MN2(i,m,n)<br/> {<br/> <br/> document.write("</table></td></td></tr></table></div></div>");<br/> document.write("<a <br/> href=\"<%=DEF_BBS_HomeUrl%>" + m + "\" <br/> onMouseOver=\"MSHL('serve" + i + <br/> "','','show','subscibe','','hide','order','','hide','feature','','hide','defuser','','hide','spread','','hide')\" <br/> onMouseOut=\"MSHL('serve" + i + <br/> "','','hide','subscibe','','hide','order','','hide','feature','','hide','defuser','','hide','spread')\">" <br/> + n + "</a>");<br/> }<br/><br/> 替换为<br/> var TS = new Array();<br/> var TH = new Array();<br/> function showMenu(m){<br/> <br/> i="L"+m;document.all.style.display=""<br/> <br/> if(TH[m]!=""){clearTimeout(TH[m]);TH[m]="";}<br/> <br/> if(document.all[i+'_1'].filters.alpha.opacity<80){document.all[i+'_1'].filters.alpha.opacity+=10;TS[m]=setTimeout("showMenu("+m+")",25);}<br/> <br/> else{clearTimeout(TS[m]);TS[m]=""}<br/> }<br/> function closeMenu(m){<br/> <br/> i="L"+m;if(TS[m]!=""){clearTimeout(TS[m]);TS[m]="";}<br/> <br/> if(document.all[i+'_1'].filters.alpha.opacity>0){document.all[i+'_1'].filters.alpha.opacity-=10;TH[m]=setTimeout("closeMenu("+m+")",25);}<br/> <br/> else{clearTimeout(TH[m]);TH[m]="";document.all.style.display="none"}<br/> }<br/> function MN1(n)<br/> {<br/> document.write("<div id=L"+n+" <br/> style='position:absolute; display:none'>");<br/> document.write("<div id=L"+n+"_1 <br/> style='position:absolute; left:0px; top:14px; <br/> width:114px; height:0px; z-index:20; <br/> filter:alpha(opacity=0);' onmouseover=showMenu("+n+") <br/> onmouseout=closeMenu("+n+")>");<br/> document.write("<table <br/> width=100% border=0 cellspacing=1 cellpadding=3 <br/> bgcolor=<%=DEF_BBS_DarkColor%> class=TBMenu>");<br/> document.write("<tr <br/> bgcolor=<%=DEF_BBS_LightColor%> class=MenuBG><td <br/> style='line-height:16px'>");<br/> document.write("<table <br/> width=100% border=0 border=0 cellspacing=0 cellpadding=1 <br/> style=cursor:hand>");<br/> }<br/> function MN(m,n)<br/> {<br/> document.write("<tr><td <br/> onmouseover=\"this.className='MenuColor';\" <br/> onmouseout=\"this.className='';\">");<br/> document.write("<img <br/> src=<%=DEF_BBS_HomeUrl%>images/blank.gif height=2 <br/> width=2><br><img <br/> src=<%=DEF_BBS_HomeUrl%>images/blank.gif height=2 <br/> width=2><a href=\"");<br/> if(m.substr(0,5) != <br/> "http:"){document.write("<%=DEF_BBS_HomeUrl%>" + m + <br/> "\">" + n + "</a></td></tr>");}<br/> else{document.write(m + "\">" + <br/> n + "</a></td></tr>");}<br/> }<br/> function MN2(i,m,n)<br/> {<br/> <br/> document.write("</table></td></td></tr></table></div></div>");<br/> document.write("<a <br/> href=\"<%=DEF_BBS_HomeUrl%>" + m + "\" <br/> onMouseOver=showMenu("+i+") <br/> onMouseOut=closeMenu("+i+")>" + n + "</a>");<br/> }<br/> function MNL(){document.write(" <img <br/> src=<%=DEF_BBS_HomeUrl%>images/<%=GBL_DefineImage%>splt.gif <br/> align=absmiddle width=7 height=15> ");}<br/><br/> 淡入淡出网页（此功能对于配置较低的电脑简直就是恶梦~！）：<br/> 在 board_popfun.asp 中的<br/> <meta HTTP-EQUIV="Content-Type" <br/> content="text/html; charset=gb2312"><br/> <meta http-equiv="Content-Language" <br/> content="zh-cn"><br/> 下边加入<br/> <meta http-equiv="Page-Enter" <br/> content="blendTrans(Duration=0.5)"><br/> <meta http-equiv="Page-Exit" <br/> content="blendTrans(Duration=0.5)"></span>
如儿 2008-3-17 18:04
<span style="FONT-SIZE: 12px;">14 关于通过购买贴子进行变相转帐的修改方法<br/><br/><br/>1、将以下代码存为conn.asp放入bank目录下<br/><br/><%<br/>dim connDK,connstr,dbDK<br/>dbDK="../plug-ins/bank/data/#bank.mdb"<br/>connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdk)<br/>On Error Resume Next<br/>Set connDK = Server.CreateObject("ADODB.Connection")<br/>connDK.Open connstr<br/>If Err Then<br/> err.Clear<br/> Set ConnDK = Nothing<br/> Response.Write "数据库连接出错，请检查连接字串。" <br/> Response.End<br/>End If<br/><br/>Function GetUserDK()<br/> Dim Rsdk<br/> If GBL_CHK_User="" Then<br/> GetUserDK=0<br/> Else<br/> Set Rsdk=Conndk.Execute("select daikuang from bank where username='"&GBL_CHK_User&"'")<br/> If Rsdk.eof or Rsdk.bof Then<br/> GetUserDK=0<br/> Else<br/> GetUserDK=Rsdk(0)<br/> End if<br/> Rsdk.close<br/> Set Rsdk=Nothing<br/> ConnDK.close<br/> Set ConnDK=nothing<br/> End If<br/>End Function<br/>%> <br/> <br/><br/><br/>2、修改announce/announce.asp文件<br/>在<br/><!-- #include file=inc/Poll_fun.asp --><br/>下加入<br/><!-- #include file=../plug-ins/bank/conn.asp --><br/><br/>以下该文件有两处<br/>将<br/>If GBL_CHK_Points < GetData(39,n) Then<br/> GetData(8,n) = GetFobStr("购买此帖需要花费" & GetData(39,n) & "" & DEF_PointsName & "，可惜你的" & DEF_PointsName & "不够，不能购买")<br/>Else<br/> GetData(8,n) = GetFobStr("购买此帖需要花费" & GetData(39,n) & "" & DEF_PointsName & "，<a href='javascript:opw(""BuyAnnounce.asp"",""BoardID=" & GBL_board_ID & "&AnnounceID"",""" & GetData(0,N) & """);'>点击购买帖子</a>")<br/>End If<br/><br/>改为<br/>If GBL_CHK_Points<GetUserDK+GetData(39,n) Then<br/> GetData(8,n) = GetFobStr("购买此帖需要花费" & GetData(39,n) & "" & DEF_PointsName & "，可惜你在银行有贷款，" & DEF_PointsName & "不够，不能购买")<br/>ElseIf GBL_CHK_Points < GetData(39,n) Then<br/> GetData(8,n) = GetFobStr("购买此帖需要花费" & GetData(39,n) & "" & DEF_PointsName & "，可惜你的" & DEF_PointsName & "不够，不能购买")<br/>Else<br/> GetData(8,n) = GetFobStr("购买此帖需要花费" & GetData(39,n) & "" & DEF_PointsName & "，<a href='javascript:opw(""BuyAnnounce.asp"",""BoardID=" & GBL_board_ID & "&AnnounceID"",""" & GetData(0,N) & """);'>点击购买帖子</a>")<br/>End If<br/><br/>3、修改announce/announce2.asp<br/>在<br/><!-- #include file=../inc/Limit_Fun.asp --><br/>下加入<br/><!-- #include file=../plug-ins/bank/conn.asp --><br/><br/>将<br/>If GBL_CHK_Points < Form_NeedValue Then<br/> Form_Printcontent = GetFobStr("购买此帖需要花费" & Form_NeedValue & "" & DEF_PointsName & "，可惜你的" & DEF_PointsName & "不够，不能购买")<br/>Else<br/> Form_Printcontent = GetFobStr("购买此帖需要花费" & Form_NeedValue & "" & DEF_PointsName & "，<a href='javascript:opw(""BuyAnnounce.asp"",""BoardID=" & GBL_board_ID & "&AnnounceID"",""" & Form_ParentID & """);'>点击购买帖子</a>")<br/>End If<br/><br/>改为<br/>If GBL_CHK_Points<GetUserDK+Form_NeedValue Then<br/> Form_Printcontent = GetFobStr("购买此帖需要花费" & Form_NeedValue & "" & DEF_PointsName & "，可惜你在银行有贷款，" & DEF_PointsName & "不够，不能购买")<br/>ElseIf GBL_CHK_Points < Form_NeedValue Then<br/> Form_Printcontent = GetFobStr("购买此帖需要花费" & Form_NeedValue & "" & DEF_PointsName & "，可惜你的" & DEF_PointsName & "不够，不能购买")<br/>Else<br/> Form_Printcontent = GetFobStr("购买此帖需要花费" & Form_NeedValue & "" & DEF_PointsName & "，<a href='javascript:opw(""BuyAnnounce.asp"",""BoardID=" & GBL_board_ID & "&AnnounceID"",""" & Form_ParentID & """);'>点击购买帖子</a>")<br/>End If <br/><br/><br/> 15 红楼机遇<br/>把代码<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=2 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone><br/> <tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9><br/> <td width="80"><img src='/bbs/plug-ins/jiyu/jiyu.gif' border=0 align=middle><img src='/bbs/plug-ins/jiyu/jiyu1.gif' border=0 align=middle></td><br/> <td width="95%"><iframe name="ad" frameborder=0 width=100% height=16 scrolling=no src="/bbs/plug-ins/jiyu/wpd_jiyu.asp?user=<%=GBL_CHK_User%>"></iframe></td><br/> </tr><br/></table><br/><br/>放在Board_Popfun.asp里的<br/></tr><br/> <tr><br/> <td colspan=2><br/> <img src=<%=DEF_BBS_HomeUrl%>images/null.gif height=5 width=2></td><br/> </tr><br/> </table><br/>后<br/> 16在论坛首页显示最新注册用户<br/><br/>（1）修改boards.asp<br/><br/>找到<br/>Function DisplayTopInfo<br/><br/>在它上面添加<br/><br/>Function DisplayUserNewest<br/> Dim Rs,SQL<br/> SQL = "select TOP 1 ID,UserName from LeadBBS_User Order by ID DESC"<br/> Set Rs = Con.ExeCute(SQL)<br/> If Not rs.Eof Then <br/> %><br/> <script language=javascript><br/> function s(d0,d1)<br/> {<br/> if(d0=="")return;<br/> document.write("<a href=user/LookUserInfo.asp?id=" + d0 + "><font color=red>" + d1 + "</font></a>");<br/> }<br/> </script><br/><script language=javascript><br/><% <br/> Response.Write "" & VbCrLf & "s("""<br/> Response.Write Rs.GetString(,,""",""",""");" & VbCrLf & "s(""","")<br/> Rs.Close<br/> Set Rs = Nothing<br/> Response.Write ""","""","""","""");"<br/>%></script> <br/><%<br/> Else<br/> Rs.Close<br/> Set Rs = Nothing<br/> Response.Write "找不到用户。" & VbCrLf<br/> End If<br/><br/>End Function<br/><br/>（2）然后在你想显示的地方添加<br/><br/><%DisplayUserNewest%><br/><br/>充一下，在自己想要加的位置加入如：<br/>[新进会员:<%DisplayUserNewest%>][最新注册会员:<%DisplayUserNewest%>]<br/>因为如果只是加<%DisplayUserNewest%> ，那么只显示该用户的名字，我想大家都需要对这名字做些注解的：）<br/> <br/><br/>17 论坛建站天数<br/> <br/><br/>把下面代码加到你想要放的地方(2003-10-10要改为你的建站日期)：<br/><br/><br/>论坛建站天数:<b><font color=red><%=datediff("d","2003-10-10",date())%></font></b>天<br/> 18 论坛导航(跑马灯效果)<br/>把下列代码加到leadbbs/inc/Board_Popfun.asp任何一个</script>的下面<br/> <br/> <script language="Javascript"><br/> <!--<br/> var x = 0<br/> var speed = 120<br/> var text = "::欢迎使用来我社区参观"<br/> var course = 120<br/> var text2 = text<br/><br/> function Scroll() {<br/> window.status = text2.substring(0, text2.length)<br/><br/> if (course < text2.length) {<br/> setTimeout("Scroll2()", speed)<br/> }<br/><br/> else {<br/> text2 = " " + text2<br/><br/> setTimeout("Scroll()", speed);<br/> }<br/> }<br/><br/> function Scroll2() {<br/> window.status = text2.substring(x, text2.length)<br/><br/> if (text2.length - x == text.length) { <br/> text2 = text<br/> x = 0<br/><br/> setTimeout("Scroll()", speed);<br/> }<br/><br/> else {<br/> x++<br/> setTimeout("Scroll2()", speed);<br/> }<br/> }<br/><br/> Scroll()<br/> //--><br/> </script><br/><br/><br/>19 实现链接沉浮效果的代码<br/><br/>（演示：<a href="http://qqiao.com/" target="_blank">http://qqiao.com</a>）<br/>访问网址超出本站范围，不能确定是否安全 <br/>继续访问 取消访问<a href="http://qqiao.com/" target="_blank">http://qqiao.com</a>）<br/>很多网页上，当鼠标放在图片链接上会出现下沉效果，松开又浮上来，其实在LeadBBS上也可以实现，非常简单，只需要稍微修改一下CSS文件即可。找到a:hover字段，在里面加入下面代码即可实现：<br/>background-repeat:repeat-x; background-position:bottom;LEFT: 1px; POSITION: relative; TOP: 1px; <br/> <br/>20 帖子页面vip权限显示<br/><br/><br/>打开 Announce.asp<br/><br/>找到<br/> ElseIf GetBinarybit(GetData(37,n),2) = 1 Then<br/> Response.write "认证：<font color=Green class=GreenFont>认证会员</font><br>"<br/> End If <br/><br/>下边添加<br/> If GetBinarybit(GetData(37,n),15) = 1 Then<br/> Response.write "特权：<font color=Red class=RedFont>VIP 会员</font><br>"<br/> End If <br/><br/><br/><br/>找到<br/> else<br/> { if(G37&(1<<(2-1))){document.write("认证：<font color=Green class=GreenFont>认证会员</font><br>");}<br/> }<br/> }<br/> } <br/><br/>下边添加<br/> if(G37&(1<<(15-1)))<br/> { document.write("特权：<font color=Red class=RedFont>VIP 会员</font><br>");<br/> } </span>
如儿 2008-3-17 18:04
<span style="FONT-SIZE: 12px;">21 网页建设时常用的代码<br/><br/>1. oncontextmenu=\"window.event.returnvalue=false\" 将彻底屏蔽鼠标右键 <br/> <table border oncontextmenu=return(false)><td>no</table> 可用于Table <br/>2. <body onselectstart=\"return false\"> 取消选取、防止复制 <br/>3. onpaste=\"return false\" 不准粘贴 <br/>4. oncopy=\"return false;\" oncut=\"return false;\" 防止复制 <br/>5. <link rel=\"Shortcut Icon\" href=\"favicon.ico\"> IE地址栏前换成自己的图标 <br/>6. <link rel=\"Bookmark\" href=\"favicon.ico\"> 可以在收藏夹中显示出你的图标 <br/>7. <input style=\"ime-mode:disabled\"> 关闭输入法 <br/>8. 永远都会带着框架 <br/><script language=\"javascript\"><!-- <br/> if (window == top)top.location.href = \"frames.htm\"; file://frames.htm为框架网页 <br/>// --></script> <br/>9. 防止被人frame <br/><SCRIPT LANGUAGE=javascript><!-- <br/> if (top.location != self.location)top.location=self.location; <br/>// --></SCRIPT> <br/>10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为 <br/>11. <input type=button value=查看网页源代码 <br/>onclick=\"window.location = \'view-source:\'+ \'<a href="http://hk.westxj.com/" target="_blank">http://hk.westxj.com/</a>\'\"> <br/>12. 怎样通过asp的手段来检查来访者是否用了代理 <br/><% if Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\")<>\"\" then <br/>response.write \"<font color=#FF0000>您通过了代理服务器，\"& _ <br/>\"真实的IP为\"&Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\") <br/>end if <br/>%> <br/>13. 取得控件的绝对位置 <br/>file://javascript <br/><script language=\"javascript\"> <br/>function getIE(e){ <br/> var t=e.offsetTop; <br/> var l=e.offsetLeft; <br/> while(e=e.offsetParent){ <br/> t+=e.offsetTop; <br/> l+=e.offsetLeft; <br/> } <br/> alert(\"top=\"+t+\"\\nleft=\"+l); <br/> } <br/></script> <br/>file://VBScript <br/><script language=\"VBScript\"><!-- <br/>function getIE() <br/> dim t,l,a,b <br/> set a=document.all.img1 <br/> t=document.all.img1.offsetTop <br/> l=document.all.img1.offsetLeft <br/> while a.tagName<>\"BODY\" <br/> set a = a.offsetParent <br/> t=t+a.offsetTop <br/> l=l+a.offsetLeft <br/> wend <br/> msgbox \"top=\"&t&chr(13)&\"left=\"&l,64,\"得到控件的位置\" <br/>end function <br/>--></script> <br/>14. 光标是停在文本框文字的最后 <br/><script language=\"javascript\"> <br/>function cc() <br/>{ <br/> var e = event.srcElement; <br/> var r =e.createTextRange(); <br/> r.moveStart(\'character\',e.value.length); <br/> r.collapse(true); <br/> r.select(); <br/>} <br/></script> <br/><input type=text name=text1 value=\"123\" onfocus=\"cc()\"> <br/>15. 判断上一页的来源 <br/>asp: <br/>request.servervariables(\"HTTP_REFERER\") <br/>java script: <br/>document.referrer <br/>16. 最小化、最大化、关闭窗口 <br/><object id=hh1 classid=\"clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11\"> <br/><param name=\"Command\" value=\"Minimize\"></object> <br/><object id=hh2 classid=\"clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11\"> <br/><param name=\"Command\" value=\"Maximize\"></object> <br/><OBJECT id=hh3 classid=\"clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11\"> <br/><PARAM NAME=\"Command\" value=\"Close\"></OBJECT> <br/><input type=button value=最小化 onclick=hh1.Click()> <br/><input type=button value=最大化 onclick=hh2.Click()> <br/><input type=button value=关闭 onclick=hh3.Click()> <br/>本例适用于IE <br/>17. <br/><% <br/>\'定义数据库连接的一些常量 <br/>Const adOpenForwardOnly = 0 \'游标只向前浏览记录，不支持分页、Recordset、BookMark <br/>Const adOpenKeyset = 1 \'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark <br/>Const adOpenDynamic = 2 \'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。 <br/>Const adOpenStatic = 3 \'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动 <br/>Const adLockReadOnly = 1 \'锁定类型，默认的，只读，不能作任何修改 <br/>Const adLockPessimistic = 2 \'当编辑时立即锁定记录，最安全的方式 <br/>Const adLockOptimistic = 3 \'只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等 <br/>Const adLockBatchOptimistic = 4 \'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的 <br/>Const adCmdText = &H0001 <br/>Const adCmdTable = &H0002 <br/>%> <br/>18. 网页不会被缓存 <br/>HTM网页 <br/><META HTTP-EQUIV=\"pragma\" CONTENT=\"no-cache\"> <br/><META HTTP-EQUIV=\"Cache-Control\" CONTENT=\"no-cache, must-revalidate\"> <br/><META HTTP-EQUIV=\"expires\" CONTENT=\"Wed, 26 Feb 1997 08:21:57 GMT\"> <br/>或者<META HTTP-EQUIV=\"expires\" CONTENT=\"0\"> <br/>ASP网页 <br/> Response.Expires = -1 <br/> Response.ExpiresAbsolute = Now() - 1 <br/> Response.cachecontrol = \"no-cache\" <br/>PHP网页 <br/>header(\"Expires: Mon, 26 Jul 1997 05:00:00 GMT\"); <br/>header(\"Cache-Control: no-cache, must-revalidate\"); <br/>header(\"Pragma: no-cache\"); <br/>一些初学者常用代码 引用: <br/>1.获得系统时间: <br/><%=now()%> <br/>2.取得来访用的IP: <br/><%=request.serverVariables(\"remote_host\")%> <br/>3.获得系统,浏览器版本: <br/><script> <br/>window.document.write(\"版本：\"+navigator.appName+navigator.appVersion+\" browser.\") <br/></script> <br/>4.去除IE混动条: <br/><body scroll=\"no\"> <br/><body style=\"overflow-y:hidden\"> <br/>5.进入网站,跳出广告: <br/><script language=\"javascript\"> <br/><!-- <br/><!-- 注意更改文件所在路径--> <br/>window.open(\'\'<a href="http://www./" target="_blank">http://www.</a>******.com\'\',\'\'\'\',\'\'height=200,width=300,top=0,left=30\'\'); <br/>// --> <br/></script> <br/>6.随机数: <br/><%randomize%> <br/><%=(int(rnd()*n)+1)%> <br/>N为可改变数 <br/>7.向上混动代码: <br/><marquee direction=\"up\" scrolldelay=\"200\" style=\"font-size: 9pt; color: #FF0000; line-height: 150%; font-style:italic; font-weight:bold\" scrollamount=\"2\" width=\"206\" height=\"207\" bgcolor=\"#FFFF00\">hhhhhhhhhhhhhhhhhhh</marquee> <br/>8.自动关闭网页: <br/><script LANGUAGE=\"javascript\"> <br/><!-- <br/>setTimeout(\'\'window.close();\'\', 10000); //60秒后关闭 <br/>// --> <br/></script> <br/><p align=\"center\">本页10秒后自动关闭,请注意刷新页面</p> <br/>9.随机背景音乐: <br/><%randomize%> <br/><bgsound src=\"mids/<%=(int(rnd()*60)+1)%>.mid\" loop=\"-1\"> <br/><br/>可以修改数字，限制调用个数，我这里是６０个． <br/>10.自动刷新本页面: <br/><script> <br/><!-- <br/><br/>var limit=\"0:10\" <br/><br/>if (document.images){ <br/>var parselimit=limit.split(\":\") <br/>parselimit=parselimit[0]*60+parselimit[1]*1 <br/>} <br/>function beginrefresh(){ <br/>if (!document.images) <br/>return <br/>if (parselimit==1) <br/>window.location.reload() <br/>else{ <br/>parselimit-=1 <br/>curmin=Math.floor(parselimit/60) <br/>cursec=parselimit%60 <br/>if (curmin!=0) <br/>curtime=curmin+\"分\"+cursec+\"秒后重刷本页！\" <br/>else <br/>curtime=cursec+\"秒后重刷本页！\" <br/>window.status=curtime <br/>setTimeout(\"beginrefresh()\",1000) <br/>} <br/>} <br/><br/>window.onload=beginrefresh <br/>file://--> <br/></script> <br/>11.ACCESS数据库连接: <br/><% <br/>option explicit <br/>dim startime,endtime,conn,connstr,db <br/>startime=timer() <br/>\'更改数据库名字 <br/>db=\"data/dvBBS5.mdb\" <br/>Set conn = Server.CreateObject(\"ADODB.Connection\") <br/>connstr=\"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Server.MapPath(db) <br/>\'如果你的服务器采用较老版本Access驱动，请用下面连接方法 <br/>\'connstr=\"driver={Microsoft Access Driver (*.mdb)};dbq=\" & Server.MapPath(db) <br/>conn.Open connstr <br/>function CloseDatabase <br/>Conn.close <br/>Set conn = Nothing <br/>End Function <br/>%> <br/>12.SQL数据库连接: <br/><% <br/>option explicit <br/>dim startime,endtime,conn,connstr,db <br/>startime=timer() <br/>connstr=\"driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs\" <br/>Set conn = Server.CreateObject(\"ADODB.Connection\") <br/>conn.Open connstr <br/>function CloseDatabase <br/>Conn.close <br/>Set conn = Nothing <br/>End Function <br/>%> <br/>13.用键盘打开网页代码: <br/><script language=\"javascript\"> <br/>function ctlent(eventobject) <br/>{ <br/>if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83)) <br/>{ <br/>window.open(\'网址\',\'\',\'\') <br/>} <br/>} <br/></script> <br/><br/>这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行 <br/><br/><br/>22为你的论坛增添CCTV新闻快报<br/><br/>把下面代码复制放到你想放的位置就行了:<br/><br/><tr class=a3><td align="center"><iframe name=sina_roll src=http://www.cctv.com/homepage/46/index.shtml height=15 width=450 Frameborder=No Border=0 Marginwidth=0 Marginheight=0 Scrolling=No></iframe></td></TR> <br/><br/><br/><br/>23限制发帖最少字数文字插件 <br/><br/><br/> 本论坛有演示<br/> <br/><br/><br/><br/> 后台可以管理限制的字数<br/><br/> 限定特定版面最少发贴字数的修改方法<br/><br/> 需修改三个论坛文件，修改前请对相关文件做好备份，对管理员不做限制：<br/><br/> 1、announce/announce2.asp<br/><br/> 找到Dim LMT_MaxTextLength<br/> 改为Dim LMT_MaxTextLength,LMT_MinTextLength<br/><br/> 找到<br/> If Len(Form_Content)>LMT_MaxTextLength Then<br/> GBL_CHK_TempStr = "错误，帖子内容不能超过" & <br/> DEF_MaxTextLength & "字节.<br>" & VbCrLf<br/> CheckAnnouceValue = 0<br/> If ChangeLMTFlag = 1 Then<br/> &