leadbbs有关问题集合备查 - 晨风暮雨

2006-02-26 15:09:57
阅读：4537次
回复
只看此人

楼主

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

leadbbs有关问题集合备查

1、关于调用的新帖没法显示

1.在other/article/topic.asp中找到
Dim FullTitle
FullTitle = GetData(1,SQL)
在下面加上如下一行代码：
FullTitle = replace(GetData(1,SQL),"""","'")

说明：大部分（官方）无语句： Dim FullTitle　　　　　　　　
　　　　　　　　 FullTitle = GetData(1,SQL)

2.打开topicsi3.asp把
HomeUrl = Replace(HomeUrl,"other/article/topic.asp","")
改成
HomeUrl = Replace(HomeUrl,"other/article/topicsi3.asp","")

3.有的可能是因为排版的不同，如去掉BoardID=1& 即可。

4.帖子标题内的英文双引号换成中文的双引号就会好的(属于1)。

5.论坛加入了比较特殊的JS代码，如：防复制、屏蔽鼠标右键、JS上下滚动按键、浮动

广告等。

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]

若冰

2006-02-26 15:35:27
引用
只看此人

2楼

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

LeadBBS空间出售

防止软件恶意注册灌水的修正

功能：只打开注册时的验证码，不打开发帖时的验证吗

我的方法不需要修改后台设置，只要修改两个文件就可以了

原理：以下列出的红色代码都是检测后台设置是否需要验证码的，
把这些红色代码去掉后，不管在后台怎么设置，注册时总是要输入验证码。

1。修改user/userjoin.asp
修改方法：去掉下面代码中的红色代码

（1）357行左右
               <%End if
               [COLOR=red]If DEF_EnableAttestNumber > 2 Then[/COLOR]%>

      if(obj.ForumNumber.value=="")
      {
            alert("请输入验证码!\n");
            ValidationPassed = false;
            obj.ForumNumber.focus();
            return;
      } [COLOR=red]<%End If%>[/COLOR]

（2）545左右
            </TR> [COLOR=red]<%If DEF_EnableAttestNumber > 2 Then%>[/COLOR]
            <TR>
                  <TD height="25" align=center>
                        <p>验证码：
                  </TD>
                  <TD height="25">
                        <TABLE border=0 class=font width="100%" cellpadding="0" cellspacing="0">
                        <TR>
                              <TD>
                              <input name=ForumNumber maxlength=4 size=4 value="<%=htmlencode(Request("RndNumber"))%>" class=fminpt></td>
                              <td> 请在框中输入<img src=<%=DEF_BBS_HomeUrl%>User/number.asp?n=<%=timer%> align=absmiddle width=32 height=12>，否则无法注册</td></tr></table>
                  </TD>
            </TR> [COLOR=red]<%End If%>[/COLOR]

2。修改user/inc/user_fun.asp
修改方法：去掉以下代码中的红色代码

(1)626行左右
      If ApplyFlag = 1 [COLOR=red]and DEF_EnableAttestNumber > 2[/COLOR] Then
            If CheckRndNumber = 0 Then
            GBL_CHK_TempStr = "<b><font color=ff0000>验证码填写错误!</font></b><br>"
            GBL_CHK_Flag = 0
            Exit Function
      End If
End If

（2）827行左右

Function CheckRndNumber

[COLOR=red]If DEF_EnableAttestNumber = 0 Then
      CheckRndNumber = 1
      Exit Function
End If[/COLOR]

[ 这个贴子最后由若冰在2006-6-24 10:37:55编辑过 ]

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]

若冰

2006-02-26 15:42:15
引用
只看此人

3楼

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

[COLOR=red]LeadBBS能不能发flash、音乐和视频，为什么管理员可以直接显示和播放，而普通用户却提示有安全问题。[/COLOR]
这是为了安全考虑在ubbcode.asp中进行的设定禁止flash或视频播放器播放Flash文件直接在帖子里运行，建议不要更改，否则你的论坛被黑的可能性几乎是100%。
恶意的flash文件可以引起跨站攻击，并获取浏览过此flash文件的用户账号及密码。
管理员可以进入修改该帖子，提交即可显示。若一定要更改的话，可以在inc\ubbcode.asp中查找CheckSupervisorUserName = 1，共有五个if语句。形式如下:
[COLOR=blue]if CheckSupervisorUserName = 1 then
语句块A
else
语句块B
endif[/COLOR]
保留以上蓝色部分的语句块A 其他删除即可。想让之前发过的也有显示可在后台"根据目前的ＵＢＢ编码及过滤词重新生成论坛内容 "

[COLOR=red]怎么样可以实现播放器自动播放？[/COLOR]
打开inc/ubbcode.asp，使用查找替换功能
查找<PARAM NAME=AUTOSTART VALUE=0>
替换<PARAM NAME=AUTOSTART VALUE=1>
以前发过的帖，需要编辑一下。如果帖很多，可以使用后台管理的更新UBB定义功能
新发的帖就不必了。

不会改的，或者改了老出错的，可以用以下修改好的代码替换。

[COLOR=blue]以下是代码片段：[/COLOR]


<%
Dim MyHomeUrl,ConvertFlag
ConvertFlag = 1
MyHomeUrl = LCase(Request.Servervariables("SCRIPT_NAME"))
If Right(MyHomeUrl,23) = "/announce/announce2.asp" or Right(MyHomeUrl,26) = "/announce/editannounce.asp" Then
If Request.ServerVariables("SERVER_PORT") <> "80" Then MyHomeUrl = ":" & Request.ServerVariables("SERVER_PORT") & MyHomeUrl
MyHomeUrl = Lcase("http://"&Request.ServerVariables("server_name") & MyHomeUrl)
MyHomeUrl = Replace(MyHomeUrl,"announce/announce2.asp","")
MyHomeUrl = Replace(MyHomeUrl,"/announce/editannounce.asp","")
Else
MyHomeUrl = ""
End If

Function PrintTrueText(tempString)

If tempString<>"" Then
PrintTrueText=Replace(Replace(Replace(Replace(Replace(htmlEncode(tempString),VbCrLf & " ","<br>" & " "),VbCrLf,"<br>" & VbCrLf)," "," ")," "," "),chr(9)," ")

If Left(PrintTrueText,1) = chr(32) Then
PrintTrueText = " " & Mid(PrintTrueText,2)
End If
Else
PrintTrueText=""
End If

End Function

Function clearUbbcode(str)

Dim n,m,str2
n = inStr(1,str,"[",0)
if n > 0 Then
m = inStr(n + 1,str,"]",0)
Else
m = 0
End If
str2 = str
Do while n > 0 and n < m and m > 0
str2 = Left(str2,n-1) & Mid(str2,m+1)
n = inStr(1,str2,"[",0)
if n > 0 Then
m = inStr(n + 1,str2,"]",0)
Else
m = 0
End If
Loop
clearUbbcode = str2

End Function

Function ClearTrTd(Str)

Dim n,m,i,str2,T1,T2,T11
T1 = "[table="
T11 = "[table]"
T2 = "[/table]"
str2 = Str
n = inStr(1,Lcase(Str),T1,0)
i = inStr(1,Lcase(Str),T11,0)
If n > i and i > 0 Then n = i
If n = 0 Then n = i
if n > 0 Then
m = inStr(n + 1,Lcase(Str),T2,0)
Else
m = 0
End If
Dim SS,Max,TStr1,Tstr2
SS = ""
Max = m
If n < 1 or n >= m Then
str2 = Replace(str2, "[tr]", "")
str2 = Replace(str2, "[TR]", "")
str2 = Replace(str2, "[/tr]", "")
str2 = Replace(str2, "[/TR]", "")
str2 = Replace(str2, "[td]", "")
str2 = Replace(str2, "[TD]", "")
str2 = Replace(str2, "[/td]", "")
str2 = Replace(str2, "[/TD]", "")
ClearTrTd = Str2
Exit Function
End If

dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True
Dim Tstr3

Do while n > 0 and n < m
TStr1 = Left(Str2,n-1)
TStr1 = Replace(TStr1, "[tr]", "")
TStr1 = Replace(TStr1, "[TR]", "")
TStr1 = Replace(TStr1, "[/tr]", "")
TStr1 = Replace(TStr1, "[/TR]", "")
TStr1 = Replace(TStr1, "[td]", "")
TStr1 = Replace(TStr1, "[TD]", "")
TStr1 = Replace(TStr1, "[/td]", "")
TStr1 = Replace(TStr1, "[/TD]", "")
re.Pattern="\[table\]"
TStr1 = re.Replace(TStr1,"")
re.Pattern="\[table=([A-Za-z0-9\=\./\?%\-&_~`@$[,\':+!#]+)\]"
TStr1 = re.Replace(TStr1,"")
re.Pattern="\[\/table]"
TStr1 = re.Replace(TStr1,"")

TStr2 = Mid(Str2,n,m+8-n)
Tstr3 = Left(Tstr2,7)
Tstr2 = Mid(Tstr2,8,m-n-7)
re.Pattern="\[table\]"
TStr2 = re.Replace(TStr2,"")
re.Pattern="\[table=([A-Za-z0-9\=\./\?%\-&_~`@$[,\':+!#]+)\]"
TStr2 = re.Replace(TStr2,"")
re.Pattern="\[\/table]"
TStr2 = re.Replace(TStr2,"")
SS = SS & TStr1 & UCase(Tstr3) & TStr2 & "[/TABLE]"
str2 = Mid(str2,m+8)

n = inStr(1,Lcase(Str2),T1,0)
i = inStr(1,Lcase(Str2),T11,0)
If n > i and i > 0 Then n = i
If n = 0 Then n = i
if n > 0 Then
m = inStr(n + 1,Lcase(Str2),T2,0)
Else
m = 0
End If
Loop
Str2 = Replace(Str2, "[tr]", "")
Str2 = Replace(Str2, "[TR]", "")
Str2 = Replace(Str2, "[/tr]", "")
Str2 = Replace(Str2, "[/TR]", "")
Str2 = Replace(Str2, "[td]", "")
Str2 = Replace(Str2, "[TD]", "")
Str2 = Replace(Str2, "[/td]", "")
Str2 = Replace(Str2, "[/TD]", "")
re.Pattern="\[table\]"
Str2 = re.Replace(Str2,"")
re.Pattern="\[table=([A-Za-z0-9\=\./\?%\-&_~`@$[,\':+!#]+)\]"
Str2 = re.Replace(Str2,"")
re.Pattern="\[\/table]"
TStr1 = re.Replace(Str2,"")
SS = SS & Str2
ClearTrTd = SS
Set Re = Nothing

End Function

Function UBB_Code(Str)

Dim USC,LoopN
USC = Str
USC = PrintTrueText(USC)
USC = Replace(USC,VbCrLf,chr(3))
dim re
set re = New RegExp
re.Global = True
re.IgnoreCase = True

re.Pattern="(javascript|jscript|js|about|file|vbscript|vbs)(:)"
USC=re.Replace(USC,"$1:")
're.Pattern="(value)"
'USC=re.Replace(USC,"value")
re.Pattern="(document)(.)(cookie)"
USC=re.Replace(USC,"$1.$3")
re.Pattern="(on(mouse|exit|error|click|key))"
USC=re.Replace(USC,"on$2")

USC = ClearTrTd(USC)
If DEF_EnableImagesUBB = 1 then
re.Pattern="(\[\/IMGA\])"
USC=re.Replace(USC,"[/IMGA]" & VbCrLf)
re.Pattern="\[IMGA=*([0-9]*),(absmiddle|left|right|top|middle|bottom|absbottom|baseline|texttop)\](/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$[\]\':+!#]+)\[\/IMGA]"
USC=re.Replace(USC,"<IMG onmouseover=""javascript:if(this.width>520)this.width=520;"" style=""CURSOR: hand"" onclick=javascript:window.open(this.src); src=""$3$4"" onload=""javascript:if(this.width>520)this.width=520;"" align=$2 border=$1>")
're.Pattern="\[IMGA\](/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$[\]\':+!#]+)\[\/IMGA]"
re.Pattern="\[IMGA\](/|../|http://|https://|ftp://)(.[^\[]*)\[\/IMGA]"
USC=re.Replace(USC,"<IMG onmouseover=""javascript:if(this.width>520)this.width=520;"" style=""CURSOR: hand"" onclick=javascript:window.open(this.src); src=""$1$2"" onload=""javascript:if(this.width>520)this.width=520;"" align=absmiddle border=0>")
USC = Replace(USC,VbCrLf,"")

re.Pattern="(\[\/IMG\])"
USC=re.Replace(USC,"[/IMG]" & VbCrLf)
re.Pattern="\[IMG=*([0-9]*),(absmiddle|left|right|top|middle|bottom|absbottom|baseline|texttop)\](/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$[\]\':+!#]+)\[\/IMG]"
USC=re.Replace(USC,"<IMG onmouseover=""javascript:if(this.width>520)this.width=520;"" src=""$3$4"" onload=""javascript:if(this.width>520)this.width=520;"" align=$2 border=$1>")
're.Pattern="\[IMG\](/|../|http://|https://|ftp://)([A-Za-z0-9\./=\?%\-&_~`@$[\]\':+!#]+)\[\/IMG]"
re.Pattern="\[IMG\](/|../|http://|https://|ftp://)(.[^\[]*)\[\/IMG]"
USC=re.Replace(USC,"<IMG onmouseover=""javascript:if(this.width>520)this.width=520;"" src=""$1$2"" onload=""javascript:if(this.width>520)this.width=520;"" align=absmiddle border=0>")
USC = Replace(USC,VbCrLf,"")
End If

re.Pattern="(\[\/URL\])"
USC=re.Replace(USC,"[/URL]" & VbCrLf)
re.Pattern="(\[URL\])(.*)(\[\/URL\])"
USC= re.Replace(USC,"<A HREF=""$2"" TARGET=_blank>$2</A>")
USC = Replace(USC,VbCrLf,"")

re.Pattern="(\[\/bgcolor\])"
USC=re.Replace(USC,"[/bgcolor]" & VbCrLf)
re.Pattern="\[bgcolor=*(#*[a-z0-9]*),*(#*[a-z0-9]*)\](.*)\[\/bgcolor\]"
USC=re.Replace(USC,"<font style=""BACKGROUND-COLOR: $1"" color=$2>$3</font>")
USC = Replace(USC,VbCrLf,"")

re.Pattern="(\[\/color\])"
USC=re.Replace(USC,"[/color]" & VbCrLf)
re.Pattern="\[color=*(#*[a-z0-9]*)\](.*)\[\/color\]"
USC=re.Replace(USC,"<font color=""$1"">$2</font>")
USC = Replace(USC,VbCrLf,"")

re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
USC= re.Replace(USC,"<A HREF=""mailto:$2"">$2</A>")

re.Pattern="(\[\/EMAIL\])"
USC=re.Replace(USC,"[/EMAIL]" & VbCrLf)
re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.*)(\[\/EMAIL\])"
USC= re.Replace(USC,"<A HREF=""mailto:$2"">$3</A>")
USC = Replace(USC,VbCrLf,"")

[COLOR=blue]If DEF_EnableFlashUBB = 1 and ConvertFlag = 1 then
re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
USC=re.Replace(USC,"<object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width=$1 height=$2><param name=src value=""$3""><embed src=""$3"" pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed></object>")
re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
USC=re.Replace(USC,"<embed src=""$3"" width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
USC=re.Replace(USC,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$1 height=$2 ><param name=ShowStatusBar value=-1><param name=Filename value=""$3""><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=""$3"" width=$1 height=$2></embed><PARAM NAME=AUTOSTART VALUE=1></object>")
re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]"
USC=re.Replace(USC,"<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=1></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=1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=""" & second(DEF_Now) & "$3""></OBJECT>")

re.Pattern="(\[FLASH\])(http://|ftp://|../)(.[^\[]*)(.swf)(\[\/FLASH\])"
USC= re.Replace(USC,"<OBJECT codeBase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"" classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=480 height=400><PARAM NAME=movie VALUE=""$2$3$4""><PARAM NAME=quality VALUE=high><embed src=""http://$3$4"" quality=high pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type='application/x-shockwave-flash' width=480 height=400>$2$3$4</embed></OBJECT>")

re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(http://|ftp://|../)(.[^\[]*)(.swf)(\[\/FLASH\])"
USC= re.Replace(USC,"<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=$2 height=$3><PARAM NAME=movie VALUE=""$4$5$6""><PARAM NAME=quality VALUE=high><embed src=""$4$5$6"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=$2 height=$3>$4$5$6</embed></OBJECT>")[/COLOR]
If ConvertFlag = 1 Then
re.Pattern="(\[sound\])(.[^\[]*)(\[\/sound\])"
USC=re.Replace(USC,"<a href=""$2"" target=_blank><IMG SRC=../images/FileType/mid.gif border=0 alt='背景音乐' height=16 width=16></a><bgsound src=""$2"" loop=""-1"">")
End If
End If

[COLOR=blue]余下部分省略，见原版[/COLOR]

[ 这个贴子最后由若冰在2006-3-6 23:25:20编辑过 ]

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]

若冰

2006-02-26 15:43:17
引用
只看此人

4楼

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

客户端不能显示验证码，适用系统WINDOWS XP SP2，管理论坛时无法显示验证码。
注意：仅限用于WINDOWS XP SP2系统用户。

打开记事本，输入以下内容：
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Security]
"BlockXBM"=dword:00000000
保存为.reg文件，导入注册表即可

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]

若冰

2006-02-26 15:51:41
引用
只看此人

5楼

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

社区明星插件官方改进版(3.14)

社区明星，包括日灌水帖明星等功能，极度占用论坛资源，在高用户量帖子量的论坛下，极易产生脚本超时，并占用空间的大量资源．为缓解各虚拟主机商的压力，特改进此插件．

各插件编写者也可参考此插件，使编写的插件更兼容高效．

此插件改自gafc的修改版本，以后为详细说明：下载地址：[URL]http://w.leadbbs.com/Download/plug/LeadBBS_HomePageStar.rar[/URL]

暂时演示地址：http://w.LeadBBS.com/mxBoards.asp

改进：

1. 风格完全兼容
2. 主要是速度上的提升，在海量数据下仍然不会产生超时
3. 免FSO后台设置明星功能
4. 可设置首页是否显示第一行，第二行，或者两者都显示或两者都不显示
5. 使用缓存加快插件速度
6. 允许周，日，月，年明星，第一行与第二行可以分别指定

注意：

1.步骤一必须执行，否则此插件仍然非常消耗资源．
2.为免改动用户表，去除男女明星的支持(一般也不需要)
3.此插件改自gafc的修改版本
4.因此插件对数据库有所改动，是否安装，请慎重
其中专业版本添加索引名 IX_LeadBBS_Announce_NDateTime2
免费版本添加索引 NDateTime
5.建议：日发帖高的论坛及大型论坛不要使用此插件
6.此插件仅允许放置于首页位置，并放置于版面列表以下位置

关于删除已经安装的社区明星插件：

1.以后如要删除此插件，需要删除数据库相应索引，专业版本可执行：
DROP INDEX LeadBBS_Announce.IX_LeadBBS_Announce_NDateTime2
免费版本需要执行：
DROP INDEX NDateTime on LeadBBS_Announce
2.恢复Boards.asp及删除plug-inc/HomePageStar目录

必须按以下办法进行安装，同时提免费版本及专业版本的安装办法：

======================================================================================
                              免费版本用户安装：
======================================================================================

1.使用管理员登陆后台，在直接执行SQL语句中执行
CREATE INDEX NDateTime ON LeadBBS_Announce(NDateTime)

2.在论坛目录下面建立plug-ins (如果不存在此目录的话)

3.在plug-ins目录下面建立目录HomePageStar (如果不存在此目录的话)

4.将源代码目录文件全部上传至plug-ins/HomePageStar目录下面

5.打开Boards.asp文件，找到

%>
<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align=center>
      <td>


修改为

LeadBBSHomePageStar
%>
<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align=center>
      <td>


在Boards.asp程序中找到



在其下面加入



======================================================================================
                              专业版本用户安装：
======================================================================================

1.使用管理员登陆后台，在直接执行SQL语句中执行
CREATE INDEX IX_LeadBBS_Announce_NDateTime2 ON LeadBBS_Announce(NDateTime)

2.在论坛目录下面建立plug-ins (如果不存在此目录的话)

3.在plug-ins目录下面建立目录HomePageStar (如果不存在此目录的话)

4.将源代码目录文件全部上传至plug-ins/HomePageStar目录下面

5.打开Boards.asp文件，找到

%>
<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align=center>
      <td>


修改为

LeadBBSHomePageStar
%>
<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align=center>
      <td>


在Boards.asp程序中找到



在其下面加入

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]

潇月

2006-02-26 16:09:10
引用
只看此人

6楼

门派

职务总版主
声望＋42
魅力1172
金币8750
经验24413
文章2817
注册2004-04-13

我看不懂，也没看完，就直接拉下来回帖了。

[COLOR=blue]不要因路远而踌躇。只要去往，必到达。[/COLOR]

若冰

2006-02-27 15:27:07
引用
只看此人

7楼

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

友情链接的滚动
功能：
1、在网站序号旁边可以显示图片链接或文字链接（在没有logo的情况下），这样可以更好的管理链接（通过点击链接检查对方网站是否可用）
2、生成的友情链接可自动做到滚马灯的效果，鼠标指向自动停止滚动。
请将此文件上传至论坛目录/manage/SiteManage/文件夹中，覆盖原文件即可
[URL]http://w.leadbbs.com/images/upload_mm/2004/03/24/183610.rar[/URL]

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]

若冰

2006-03-05 16:55:06
引用
只看此人

8楼

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

[B]如何在论坛首页每个版块前面显示区斑竹[/B]

第一步,修改相应的模板：（如果用的是默认模板则修改boards.asp）
找到

function displayboard(BoardID,BoardAssort,BoardName,BoardIntro,LastWriter,LastWriteTime,TopicNum,AnnounceNum,ForumPass,LastAnnounceID,LastTopicName,MasterList,BoardLimit,AssortName,TodayAnnounce,GoodNum,BoardImgUrl,BoardImgWidth,BoardImgHeight,onlineUser,LowerBoard)
{
var Temp = 0;
if(CurrentAssosrt!=BoardAssort)
{
      CurrentAssosrt = BoardAssort
      if(Flag == 1)
      {    document.write("</table>");
            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>");
            document.write("<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>");
      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>");

改为

function displayboard(BoardID,BoardAssort,BoardName,BoardIntro,LastWriter,LastWriteTime,TopicNum,AnnounceNum,ForumPass,LastAnnounceID,LastTopicName,MasterList,BoardLimit,AssortName,TodayAnnounce,GoodNum,BoardImgUrl,BoardImgWidth,BoardImgHeight,onlineUser,LowerBoard,AssortMaster)
{
var Temp = 0;
if(CurrentAssosrt!=BoardAssort)
{
      CurrentAssosrt = BoardAssort
      if(Flag == 1)
      {    document.write("</table>");
            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>");
            document.write("<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>");
   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='25%'><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><img src=images/blank.gif width=2 height=3><br><font color=blue class=bluecolor> 区版主：");
            DisplayAssortMaster(AssortMaster,5);
            document.write("</font></td></tr></table></td></tr>");

第二步,修改boards.asp文件：
找到

function DisplayBoardMastList(s,num)
{
if("?LeadBBS?" == s)
{
      document.write("全体版主");
}
else
{
      if(s == "" || s == null)document.write("无");
      var ss,n;
      ss = s.split(",");
      for(n=0;n<ss.length;n++)
      {
            if(n>=num)break;
            document.write("<a href=\"User/LookUserinfo.asp?name=" + htmlencode(ss[n]) + "\">" + htmlencode(ss[n]) + "</a> ");
      }
      if(n>=num && n<ss.length)
      {
            document.write("<span style=\"cursor:hand\" title=\"更多版主: " + ss[n]);
            for(n=n+1;n<ss.length;n++){document.write(" " + ss[n]);}
            document.write("\">...</span>");
      }
}
}

在下面加入

function DisplayAssortMaster(s,num)
{
if("?LeadBBS?" == s)
{
      document.write("全体版主");
}
else
{
      if(s == "" || s == null)document.write("无");
      var ss,n;
      ss = s.split(",");
      for(n=0;n<ss.length;n++)
      {
            if(n>=num)break;
            document.write("<a href=\"User/LookUserinfo.asp?name=" + htmlencode(ss[n]) + "\"><font class=AssortMastercolor>" + htmlencode(ss[n]) + "</font></a> ");
      }
      if(n>=num && n<ss.length)
      {
            document.write("<span style=\"cursor:hand\" title=\"更多版主: " + ss[n]);
            for(n=n+1;n<ss.length;n++){document.write(" " + ss[n]);}
            document.write("\">...</span>");
      }
}
}

第三步找到

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) & """);"

改为

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) & """);"

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]

若冰

2006-03-05 16:56:14
引用
只看此人

9楼

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

[B]区版主在首页右边菜单显示[/B]

需改动的文件：boards.asp以及模板文件
以下修改方法只适用默认模板，如果你使用了其它模板，则除了要按以下方法修改boards.asp文件外，还要按照第一步的修改方法修改你的模板。

第一步：
找到

function displayboard(BoardID,BoardAssort,BoardName,BoardIntro,LastWriter,LastWriteTime,TopicNum,AnnounceNum,ForumPass,LastAnnounceID,LastTopicName,MasterList,BoardLimit,AssortName,TodayAnnounce,GoodNum,BoardImgUrl,BoardImgWidth,BoardImgHeight,onlineUser,LowerBoard)
{
var Temp = 0;
if(CurrentAssosrt!=BoardAssort)
{
      CurrentAssosrt = BoardAssort
      if(Flag == 1)
      {    document.write("</table>");
            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>");
            document.write("<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>");
      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>");

改为

function displayboard(BoardID,BoardAssort,BoardName,BoardIntro,LastWriter,LastWriteTime,TopicNum,AnnounceNum,ForumPass,LastAnnounceID,LastTopicName,MasterList,BoardLimit,AssortName,TodayAnnounce,GoodNum,BoardImgUrl,BoardImgWidth,BoardImgHeight,onlineUser,LowerBoard,AssortMaster)
{
var Temp = 0;
if(CurrentAssosrt!=BoardAssort)
{
      CurrentAssosrt = BoardAssort
      if(Flag == 1)
      {    document.write("</table>");
            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>");
            document.write("<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>");
      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>");
            DisplayAssortMaster(AssortMaster);
            document.write("</td></tr></table></td></tr>");

第二步
找到

function DisplayBoardMastList(s,num)
{
if("?LeadBBS?" == s)
{
      document.write("全体版主");
}
else
{
      if(s == "" || s == null)document.write("无");
      var ss,n;
      ss = s.split(",");
      for(n=0;n<ss.length;n++)
      {
            if(n>=num)break;
            document.write("<a href=\"User/LookUserinfo.asp?name=" + htmlencode(ss[n]) + "\">" + htmlencode(ss[n]) + "</a> ");
      }
      if(n>=num && n<ss.length)
      {
            document.write("<span style=\"cursor:hand\" title=\"更多版主: " + ss[n]);
            for(n=n+1;n<ss.length;n++){document.write(" " + ss[n]);}
            document.write("\">...</span>");
      }
}
}

在下面加入

function DisplayAssortMaster(s)
{

document.write("<select onchange=\"var jmpURL=this.options[this.selectedIndex].value; if(jmpURL!='') {self.location=jmpURL;} else {this.selectedIndex=0;}\" ><option selected>本区版主</option>")
if("?LeadBBS?" == s)
{

         document.write("<option>全体版主</option></select>")

}
else
{
      if(s == "" || s == null)document.write("<option>无</option></select>");
      var ss,n;
      ss = s.split(",");
      for(n=0;n<ss.length;n++)
      {

                  document.write("<option value=\"User/LookUserinfo.asp?name=" + htmlencode(ss[n]) + "\">" + htmlencode(ss[n]) + "</option>");

      }

      document.write("</select>")
}

}

第三步
找到

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) & """);"

改为

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) & """);"

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]

若冰

2006-03-16 17:26:15
引用
只看此人

10楼

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

[B]如何使消息支持[URL]标签及自动辨别网址[/B]

user/lookmessage.asp，找到下面代码：

-----------------------
If DEF_EnableImagesUBB = 1 then
   UBBStrCnt = OneLevelCode(UBBStrCnt, "[IMG]", "[/IMG]", "<IMG SRC="," border=0 onLoad=""javascript:if(this.width>450)this.width=450;"" onMouseover=""javascript:if(this.width>450)this.width=450;"" align=absmiddle>")
   UBBStrCnt = OneLevelCode(UBBStrCnt, "[IMGA]", "[/IMGA]", "<IMG SRC="," border=0 alt=按此在新窗口浏览图片 onclick=""javascript:window.open(this.src);"" onLoad=""javascript:if(this.width>450)this.width=450;"" onMouseover=""javascript:if(this.width>450)this.width=450;"" style=""cursor:hand"" align=absmiddle>")
End If
-----------------------
加上：

'URL解析开始---------------------

re.Pattern="(\[\/URL\])"
UBBStrCnt=re.Replace(UBBStrCnt,"[/URL]" & VbCrLf)
re.Pattern="(\[URL\])(.*)(\[\/URL\])"
UBBStrCnt= re.Replace(UBBStrCnt,"<A HREF=""$2"" TARGET=_blank>$2</A>")
   UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")
'URL解析结束------------------

就可以了，看了这个，想实现更多UBB功能的，不用问了吧？呵呵。

此修改已经测试。

下面是自动转换的代码：加在刚才的后面：

re.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@$[\]\':+!#]+)"
UBBStrCnt = re.Replace(UBBStrCnt,"<a target=_blank href=$1>$1</a>")
re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@$[\]\':+!]+)$"
UBBStrCnt = re.Replace(UBBStrCnt,"<a target=_blank href=$1>$1</a>")
re.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@$[\]\':+!]+)"
UBBStrCnt = re.Replace(UBBStrCnt,"$1<a target=_blank href=$2>$2</a>")

如果要使公告支持自动识别超级链接（此修改要以上面的修改为基础），需要接着修改user/lookmessage.asp文件，从最后倒数十几行找到：
-----------------------------
Response.Write VbCrLf & Replace(Replace(GetData(4,N) & "",VbCrLf,"<br>")," "," ")

-------------------
替换为下面内容：

            SdM_Content=GetData(4,N)
            If Trim(SdM_Content) = "" Then
                  Response.Write "<font color=Gray class=GrayFont>短消息内容为空。</font>"
            Else
                     If DEF_UBBiconNumber > 0 then
                           SdM_Content = PrintTrueText(SdM_Content)
                        For TempN = 1 to DEF_UBBiconNumber
                                 SdM_Content=replace(SdM_Content,"[EM" & Right(("0" & TempN),2) & "]","<img src=""../images/UBBicon/em" & Right("0" & TempN,2) & ".GIF"" width=20 height=20 align=absmiddle border=0>",1,10,0)
                                 SdM_Content=replace(SdM_Content,"[em" & Right(("0" & TempN),2) & "]","<img src=""../images/UBBicon/em" & Right("0" & TempN,2) & ".GIF"" width=20 height=20 align=absmiddle border=0>",1,10,0)
                           Next
                           Response.Write Message_Code(SdM_Content)
                     Else
                           Response.Write PrintTrueText(SdM_Content)
                     End If
               End If
            'Response.Write VbCrLf & Replace(Replace(GetData(4,N) & "",VbCrLf,"<br>")," "," ")

已经测试。应该也支持图片了。

支持……标签的补丁：

在----------------
re.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@$[\]\':+!#]+)"
-------------
的前面增加一段:
-------------
re.Pattern="(\[\/URL\])"
UBBStrCnt=re.Replace(UBBStrCnt,"[/URL]" & VbCrLf)
re.Pattern="(\[URL=(.[^\[]*)\])(.*)(\[\/URL\])"
UBBStrCnt= re.Replace(UBBStrCnt,"<A HREF=""$2"" TARGET=_blank>$3</A>")
   UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]

远尘

2006-05-20 15:31:33
引用
只看此人

11楼

门派

职务区版主
声望＋15
魅力42
金币6459
经验37226
文章1577
注册2005-01-13

怎样修改用户名？？

后台执行sql语句
1.
update leadbbs_user set username='新用户名' where username='原用户名'
2.
update leadbbs_announce set username='新用户名' where username='原用户名'
3.
update leadbbs_topic set username='新用户名' where username='原用户名'
4.
update LeadBBS_Announce set lastuser='新用户名' where lastuser='原用户名'
5.
update LeadBBS_topic set lastuser='新用户名' where lastuser='原用户名'
6.
update LeadBBS_SpecialUser set username='新用户名' where username='原用户名'
7.
update LeadBBS_InfoBox set fromuser='新用户名' where fromuser='原用户名'
8.
update LeadBBS_InfoBox set touser='新用户名' where touser='原用户名'
9.
update LeadBBS_OnlineUser set username='新用户名' where username='原用户名'
10.
update LeadBBS_VoteUser set username='新用户名' where username='原用户名'
11.
如果这个用户设计到管理员或者斑竹，记得去后台管理里面修改一下。

当然管理员你得修改bbssetup.asp 文件：

const DEF_SupervisorUserName = ",新用户名,"

尽在已言中……
[img]http://www.ruobing66.com/bbs/images/tie.gif[/img]

若冰

2006-07-15 09:46:33
引用
只看此人

12楼

门派

职务总版主
声望＋79
魅力243
金币121
经验194978
文章7343
注册2004-04-09

改签名档图片大小和把签名位置加长

(1).修改签名档图片大小方法：

到Announce文件夹找到

announce/announce.asp

announce/announce2.asp

User/LookMessage.asp

查找
signature.gif

删除：
width=500 height=17

(2).修改签名档大小方法：到Announce文件夹找到
announce/announce.asp
announce/announce2.asp
查找
332
把大小数值更换为自己想要的数值即可(有人全都改为570)

欢迎大家光临本论坛！
[img]http://www.ruobing66.com/bbs/images/Upload/2006/3.gif[/img]