[B]1.怎样修改首页下的"游客.隐身会员"前的图标大小.[/B]
[SIZE=3]是修改首页下面的:"[COLOR=#ff3300]游客  隐身会员   总版主   区版主   论坛版主   认证会员   注册会员[/SIZE]"前面的图标大小.
 
[COLOR=#3809f7]修改inc/Fun/ViewOnline_fun.asp文件:[/COLOR]
 
[COLOR=#0909f7]查找所有的下面代码:[/COLOR]
 
width=16 height=16
 
 
将数值改为合适数值即可. [/COLOR]

[SIZE=3]在首页显示论坛上传图片和新帖、热帖调用：[/SIZE]
[SIZE=3]修改方法：

(1).搜索Sub Main
在上面加入以下代码:

Sub DisplayTopic

%>
<!--新热帖调用 开始-->
<table width=97% border=0 cellspacing=0 cellpadding=0 align=center>
<tr><td></td></tr></table>
<table width=97% border=0 cellspacing=1 cellpadding=5 align=center bgcolor=#cccccc class=TBone>
<tr bgcolor=#666699>
<td class=TBHead align=center><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>〓 最新图片 〓</font><b></td>
<td class=TBHead align=center><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>〓 最新话题 〓</font><b></td>
<td class=TBHead align=center><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>〓 热门话题 〓</font><b></td>
</tr>
<tr bgcolor=#f7f7f7 class=TBBG9>
<!--添加论坛图片调用-->
<td width=21%>
<table cellpadding=0 cellspace=0 border=0>
<TR><TD colSpan=3 height=100% >
<div align=center id=demo style=overflow:hidden;height:130;width:250>
<script language=javascript src=./other/Article/Topic.asp?info=pic&num=6></script>
</div>
</TD>
</TR>
</table>
</td>
<!--添加论坛图片调用结束-->
<td width=38%>
<script language=javascript src=./other/article/topic.asp?TORA=1&Number=6&STime=2&StrLen=18&Hits=0&NewWindow=yes></script>
</td>
<td width=38%>
<script language=javascript src=./other/article/topic.asp?TORA=1&Hotflag=1&Number=6&STime=0&StrLen=16&Hits=1&NewWindow=yes></script>
</td>
</tr>
</table>
<table width=97% border=0 cellspacing=0 cellpadding=0 align=center><tr><td></td></tr></table><BR>
<!--新热帖调用结束--><%

End Sub

(2).搜索UpdateOnlineUserAtInfo 0,"论坛首页"
在下面加入以下代码:

DisplayTopic[/SIZE]

发帖最少字数和超过120天则禁止回复修改

修改a/a2.asp文件:
 
查找:
 
Const LMTDEF_MinAnnounceLength = 2 '发帖需要最少字数
Const LMTDEF_NotReplyDate = 120 '最后回复时间至今高于多少天的帖子则禁止回复,对版主及以上无效

发帖时增加“选择话题”功能的修改方法

在5.0以前版本一直都有“选择话题”的功能，5.0里却没有了，通过以下修改方法，可以将此功能重新加上。
 
打开 a/a2.asp文件，找到以下代码：

<input name=ID value="<%=Re_ID%>" type=hidden><%If Form_VoteFlag = "" Then%>
 

在下面添加以下代码：

<SELECT name=font>
                <OPTION selected value="">选择话题 <OPTION value=[原创]>[原创]
                <OPTION value=[转帖]>[转帖] <OPTION value=[灌水]>[灌水]
                <OPTION value=[讨论]>[讨论] <OPTION value=[求助]>[求助]
                <OPTION value=[推荐]>[推荐] <OPTION value=[公告]>[公告]
                <OPTION value=[注意]>[注意] <OPTION value=[贴图]>[贴图]
                <OPTION value=[建议]>[建议] <OPTION value=[下载]>[下载]
                <OPTION value=[分享]>[分享]
     </SELECT>

勋章插件 for Leadbbs5.0

很大部分代码来自ygperfect的4.0 simple medal 。不是自己的东西！
 
修改方法：
 
 
此修改比较复杂，没有修改经验的人建议不要修改。修改之前务必备份相关文件！！！
上传压缩包内文件到论坛相应目录覆盖（请注意备份）
--------------------------------------------------------
首先后台执行一句SQL语句：
alter table leadbbs_user add Medal text(255)
--------------------------------------------------------
 
a/a.asp:
-------------------------------------------------------------------
查找：
<!-- #include file=../inc/Constellation.asp -->
下面加入：
<!-- #include file=../inc/Medal_Setup.ASP -->
 
查找： ,T1.VisitIP   （共三处） 后面加上：
,T2.Medal
 
查找：,T2.CharmPoint  最后一个后面加上：
,T2.CharmPoint,T2.CharmPoint,T2.CharmPoint,T2.CharmPoint,T2.Medal
（看到这里大家知道为什么我迟迟不发布了吧）
 
查找：
var DEF_UserOfficerString=new Array(<%
 Dim N
 Response.Write """" & DEF_UserOfficerString(0) & """"
 for n = 1 to DEF_UserOfficerNum
  Response.Write ",""" & DEF_UserOfficerString(n) & """"
 Next
 %>);
下面加入：
var DEF_UserMedalString=new Array(<%
Response.Write """" & DEF_UserMedalString(0) & """"
for n = 1 to DEF_UserMedalNum
Response.Write ",""" & DEF_UserMedalString(n) & """"
Next
%>);
 
查找：
DEF_UON=<%=DEF_UserOfficerNum%>
紧接后面加入：
,DEF_UMN=<%=DEF_UserMedalNum%>
 
查找：
GetData(48,n) = 0
共两处，后面加上：
GetData(53,n) = 0
 
查找：
" & cCur(GetData(48,n)) & "
紧接后面加入：
,""" & GetData(53,n) & """
--------------------------------------------------------------------
a.asp修改完毕！！！
 
 
inc/Templet/Normal_2.JS ：
---------------------------------------------------------------------
记事本打开，查找：
,G48
后面加入：
,G53
查找：
if(G27!="0" && G27!="")
上面加入：
if(G53!="0" && G53!="")
  { document.write(" " + DisplayMedalString(G53) + "<br>");
  }
查找：
function DisplayOfficerString(Officer)
上面加入：
function DisplayMedalString(Medal)
{
var t,n,f=0;
var str="";
t = Medal.split(",");
for(n=0;n<=t.length;n++)
{
if(t[n]>=0 && t[n]<=DEF_UMN)
{
if(f == 0)
{ f = 1;
str += "<img src=../images/"+GDI+"Medal/"+t[n]+".Gif title=" +DEF_UserMedalString[t[n]]+">"
}
else
{
str += " <img src=../images/"+GDI+"Medal/"+t[n]+".Gif title=" +DEF_UserMedalString[t[n]]+">"
}
}
}
var re = /(,)/gi;
str = str.replace(re,"<br>      ");
return(str);
}
---------------------------------------------------------------------
manage/SiteManage/SiteSetup.asp
----------------------------------------------------------------------
查找：
<a href=../SiteManage/UbbiconSetup.asp>UBB表情注释</a>
下面加入：
<a href=../SiteManage/MedalSetup.asp>勋章注释</a>
----------------------------------------------------------------------
OK 修改完毕！！
卸载方法：
---------------------------------------------------------------------
将安装方法反步骤进行，最后执行一条SQL语句：
ALTER TABLE LeadBBS_User DROP COLUMN Medal
---------------------------------------------------------------------
使用方法：
修改 inc/Medal_Setup.ASP 中的勋章个数为你自己的。勋章图片上传到 images/medal目录下，顺序命名为0.gif - *.gif（请新建medal文件夹）。勋章注释请进后台在论坛参数设置里找到 勋章注释 修改。
   最后感谢weiwei202将我带入LEADBBS并在此次修改中给了我很大的帮助 感谢MAN提供给大家这么好的程序 感谢克拉！感谢原SIMPLE MEDAL作者ygperfect 感谢以前支持相约永久，现在支持流逝天堂的人。
                       ------------ gone with the wind (gwtw)
                                                    2008.3.19
[upload=749,2]xunzhang.rar[/upload]

快速回复栏及巧嘴娃娃插件

声明：快速回复修改来自Fris http://by159.com/bbs/a/a.asp?b=100&id=1580

在a/a.asp中找到

<!-- #include file=../inc/Constellation.asp -->

后面加

<!-- #include file=../inc/UBBicon_Setup.asp -->

然后

CODE
Function DisplayAnnounceForm
...............
End Function  

 
替换为：
[upload=750,3]快速回复.txt[/upload]

audio.rar（略）

解压后将 audio 目录上传至 plug-ins 目录下

之后修改a/inc/leadcode.js

查找：

CODE
str = str.replace(/\[code\](.+?)\[\/code\]/gim,function($0,$1){var s = $1;s=s.replace(/\[/g,'[');s=s.replace(/\]/g,']');return ("<table code width=100% bgcolor=#cccccc cellpadding=5 cellspacing=1 class=TBAnc><tr><td bgcolor=#f7f7f7 class=TBBGAnc>CODE</td></tr><tr><td bgcolor=#f7f7f7 class=TBBGAnc>"+s+"</td></tr></table>")});


下面加上：

CODE
str = str.replace(/\[audio(.+?)\]/gi,"<table border=0 cellspacing=0 cellpadding=0><tr><td><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='48' height='48'><PARAM NAME=movie VALUE='../plug-ins/audio/swf/$1.swf'><param name=menu value=false><PARAM NAME=quality VALUE=high><PARAM NAME=play VALUE=false><param name='wmode' value='transparent'><embed src='../plug-ins/audio/swf/$1.swf' quality='high' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='48' height='48'></embed></OBJECT></td><td align='left' style='cursor:hand;' title='鼠标经过播放' nowrap  onmouseover='this.parentElement.children[0].children[0].Play()'>播放</td></tr></table>");//[audio**]


完成

leadbbs for 5.0 道具更新插件
'-------------------------------------------------------
《一》：上传文件夹hot到plug-ins目录下，浏览器执行http://你的论坛地址/plug-ins/hot/setup.asp,给你的论坛数据库表leadbbs_Topic新增三个字段：flower，shit，BadFlag，执行完后删除setup.asp文件；
'-------------------------------------------------------
《二》：打开a/a.asp。
'-------------------------------------------------------
1：搜索语句：
<!-- #include file=../inc/Constellation.asp -->
下面加：
<!-- #include file=../plug-ins/hot/djzx.asp -->
'-------------------------------------------------------
2：搜索语句：
GBL_DefineImage & "makealltop.GIF border=0 title=主题总固顶或取消总固顶 align=absmiddle width=16 height=16></a>"
   End If
在下面加入以下代码：
   daojutop '提顶与颜色操作
'-------------------------------------------------------
3：搜索：
Next
%>
</script>
上面加
 If cCur(GetData(1,n)) = 0 Then xianhuaandzhadan '鲜花炸弹等
'-------------------------------------------------------
《三》：原已安装或升级论坛主数据库的无需执行第一步。
下载地址：[URL=http://748202.com/bbs/Images/upload/rar/daojuzx.rar]http://748202.com/bbs/Images/upload/rar/daojuzx.rar[/URL]
[备注：setup.asp偷的gwtw-mm的源文件，切记执行后要删除]。
                               演示：[URL=http://xy19.net/a/a.asp?B=201&id=3382]http://xy19.net/a/a.asp?B=201&id=3382[/URL]
                                            修改：Ant  2008.4.21
[upload=751,2]daojuzx.rar[/upload]

5.0将登陆框提到版面信息上面


boards.asp:

查找：


Function DisplayTopInfo

     %>
     <tr bgcolor=<%=DEF_BBS_LightColor%> class=TBBG9>
           <td><table border=0 cellspacing=0 cellpadding=0><form action=User/login.asp

method=post><tr>
           <input name=submitflag type=hidden value="ddddls-+++"></td><td>
           </td><td>用户 </td><td><input name=user type=text maxlength=20 size=10

value="<%=htmlencode(GBL_CHK_user)%>" class=fminpt></td><td>
            密码 </td><td><input name=pass type=password maxlength=20 size=10

value="<%=htmlencode(GBL_CHK_pass)%>" class=fminpt>
           </td><td> 有效期</td>
           <td><input class=fmchkbox type=radio name=CkiExp value=-99></td><td>安全

</td><td>
           <td><input class=fmchkbox type=radio name=CkiExp value=-1></td><td>无

</td><td>
           <input class=fmchkbox type=radio name=CkiExp value=7 checked></td><td>一周

</td><td>
           <input class=fmchkbox type=radio name=CkiExp value=365></td><td>永久

 </td><td><td><input type=submit value=登录 class=fmbtn>
           </td><td>  [<a href=User/UserGetPass.asp>忘记密码</a>]
           [<a href=User/<%=DEF_RegisterFile%>>注册</a>]
           </td></tr></form></table>
           </td>
     </tr><%

End Function

替换为：

Function DisplayTopInfo

     %>
        <table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
     <tr bgcolor=<%=DEF_BBS_LightColor%> class=TBBG9>
           <td><table border=0 cellspacing=0 cellpadding=0><form action=User/login.asp method=post><tr>
           <input name=submitflag type=hidden value="ddddls-+++"></td><td>
           </td><td>用户 </td><td><input name=user type=text maxlength=20 size=10 value="<%=htmlencode(GBL_CHK_user)%>" class=fminpt></td><td>
            密码 </td><td><input name=pass type=password maxlength=20 size=10 value="<%=htmlencode(GBL_CHK_pass)%>" class=fminpt>
           </td><td> 有效期</td>
           <td><input class=fmchkbox type=radio name=CkiExp value=-99></td><td>安全</td><td>
           <td><input class=fmchkbox type=radio name=CkiExp value=-1></td><td>无</td><td>
           <input class=fmchkbox type=radio name=CkiExp value=7 checked></td><td>一周</td><td>
           <input class=fmchkbox type=radio name=CkiExp value=365></td><td>永久 </td><td><td><input type=submit value=登录 class=fmbtn>
           </td><td>  [<a href=User/UserGetPass.asp>忘记密码</a>]
           [<a href=User/<%=DEF_RegisterFile%>>注册</a>]
           </td></tr></form></table>
           </td>
     </tr></table><%

End Function


查找：

UpdateOnlineUserAtInfo 0,"论坛首页"

下面加上：

If GBL_CHK_User = "" Then DisplayTopInfo

查找：

<%If GBL_CHK_User = "" Then DisplayTopInfo%>

删除之。

LEADBBS首页独立公告
boards.asp:
查找：
DisplayBoard
closeDataBase
SiteBottom%>
上面加上：
DisplayGongGao
最后：
main%>
上面加上：
Function DisplayGongGao
%>
<table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center>
<tr><td><%=GBL_TableHeadString%></td></tr></table>
<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><p align="left"><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=70%>
<%
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><%
     End If%><br>
 
<%
End Function
Function ReplaceNotNull(str,str1,str2)
     If isNull(str) Then str = ""
     If str<>"" Then
           ReplaceNotNull = Replace(str,str1,str2)
     Else
           ReplaceNotNull=str
     End If
end function
Dim GetData
Function GetMessageValue
     Dim Rs,SQL
     Set Rs = Server.CreateObject("ADODB.RecordSet")
     SQL = "Select top " & DEF_TopicContentMaxListNum & " ID,FromUser,toUser,Title,Content,IP,SendTime,ReadFlag from LeadBBS_InfoBox where ToUser='' order by ID DESC"
     Set Rs = Con.ExeCute(SQL)
     GBL_DBNum = GBL_DBNum + 1
     If Rs.Eof Then
           GBL_CHK_TempStr = "论坛暂时没有公告．"
     Else
           GetData = Rs.GetRows(-1)
     End If
     Rs.Close
     Set Rs = Nothing
End Function
Function LookMessage
     Dim TempN,N,SuperFlag
     SuperFlag = CheckSupervisorUserName
     If GBL_UserID < 1 Then SuperFlag = 0
%>
           <table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr>
           <td align=left>   <img src="../images/pms.gif">
        <%
                       If GetData(3,N)<>"" Then Response.Write "<b>" & GetData(3,N) & "</b>"%>
        </font></td><td align="right"><%If SuperFlag = 1 Then%><a href=user/SendMessage.asp?ModifyMessageID=<%=GetData(0,N)%>>编辑该公告</a><%else%><a href=user/LookMessage.asp>更多公告</a><%end if%></td></tr>
     </table>
     <table width="100%" border=0 align=center cellpadding=2 cellspacing=0 class=TBBG1 style="WORD-BREAK: break-all;">
  <tr class=TBBG9>
    <td colspan="2" align="right" height=20>
    <div style="width:100%;height:80;overflow-x:hidden;overflow-y:scroll">
    <table width="95%" border=0 align=center cellpadding=2 cellspacing=0 style="WORD-BREAK: break-all;"><tr><td>
     
                             <%
                   If DEF_UBBiconNumber > 0 then
                         If inStr(GetData(4,N),"[em") > 0 or inStr(GetData(4,N),"[EM") > 0 then
                             For TempN = 1 to DEF_UBBiconNumber
                                     GetData(4,N)=replace(GetData(4,N),"[EM" & Right(("0" & TempN),2) & "]","<img src=""images/UBBicon/em" & Right("0" & TempN,Len(DEF_UBBiconNumber)) & ".GIF""  align=absmiddle border=0>",1,10,0)
                                     GetData(4,N)=replace(GetData(4,N),"[em" & Right(("0" & TempN),2) & "]","<img src=""images/UBBicon/em" & Right("0" & TempN,Len(DEF_UBBiconNumber)) & ".GIF""  align=absmiddle border=0>",1,10,0)
                               Next
                         End If
                   End If
                 Response.Write VbCrLf & ReplaceNotNull(ReplaceNotNull(GetData(4,N),VbCrLf,"<br>"),"  ","  ")
                 %></td></tr></table></div></td></tr>
 <tr class=TBBG9>
    <td align="left" height=20></td>
    <td align="right" height=20><img src=src=""images/null.gif width=1 height=20>发布人： <font color="#FF6347"><%=htmlencode(GetData(1,N))%></font><img src=src=""images/null.gif width=5 height=1><%=Mid(RestoreTime(GetData(6,n)),1,10)%></td>
  </tr>
</table>     
<%     
End Function