修改leadbbs首页加新贴登录及公告
打开论坛首页boards.asp查找“If GBL_CHK_User = "" Then DisplayTopInfo”（不包括引号）
替换为“gonggao”（不包括引号）
然后到最后一句“Main%>”的上方粘贴以下内容：
Function GONGGAO
If GBL_TableHeadString <> "" Then
%><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableHeadString%></td></tr></table><%
End If%><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightDarkColor%>>
<td class=TBHead><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>〓 用户登录 〓</font><b></td>
<td class=TBHead><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>〓 最新话题 〓</font><b></td>
<td class=TBHead><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>〓 最新公告 〓</font><b></td>
</tr>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
<td width=22% height="150">
<%If GBL_CHK_User <> "" Then%>
<%If GBL_CHK_User <> "" Then
Response.Write "<img src=images/null.gif width=2 height=2><br><font color=gray class=GrayFont>■</font> 用 户 名：<a href=User/LookUserInfo.asp?name=" & GBL_CHK_User & ">" & GBL_CHK_User & "</a><br>"
Response.Write "<img src=images/null.gif width=2 height=2><br><font color=gray class=GrayFont>■</font> 经 验 值：" & CLng(cCur(GBL_CHK_OnlineTime)/60)
End If%>
<br>
<%If GBL_CHK_User <> "" Then
Response.Write "<font color=gray class=GrayFont>■</font> " & DEF_PointsName(0) & "：" & GBL_CHK_Points
End If%>
<br><font color=gray class=GrayFont>■</font> ＩＰ：<%=GBL_IPAddress%>
<br><font color=gray class=GrayFont>■</font> 您的职务：<%DisplayUserPower(GBL_CHK_User)%>
<br><font color=gray class=GrayFont>■</font> 新进来宾：<%DisplayUserNewest%>
<%
else
%>
<table border=0 cellspacing=1 cellpadding=6 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<form action=User/login.asp method="post">
<tr>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr align=center>
<td>
<table border=0>
<form name=login_frm method=post action='login.asp?action=login_chk' onsubmit="return login_true()">
<tr>
<td>
<p align="right">用户:</p>
</td>
<td><input name=user type=text maxlength=20 size=10 value="<%=htmlencode(GBL_CHK_user)%>" class=fminpt></td>
<tr>
<td>
<p align="right">密码:</p>
</td>
<td><input name=pass type=password maxlength=20 size=10 value="<%=htmlencode(GBL_CHK_pass)%>" class=fminpt>
</td>
</tr>
<tr>
<td colspan="2"><Select name=CkiExp>
<option value="-1">无效
<option value="365">一年
<option value=1>一天
<option value=2>两天
<option value=7>一周
<option value=31>一月
</select> <input type=submit value="登录" class=fmbtn>
</td>
</tr>
</form></table>
</td>
<tr><td align=center>
<table border=0>
<tr>
<td><a href='User/<%=DEF_RegisterFile%>'>免费注册</a></td>
<td width=5></td>
<td><a href='User/UserGetPass.asp'>忘记密码</a></td>
</tr>
</table>
</td></tr>
</table>
<% end if %>
<td width=48% height="150">
<script language=javascript src="other/article/topicsi.asp?TORA=1&Hotflag=0&Number=6&STime=0&StrLen=38&Hits=0"></script></td>
</td>
<td width=30% height="150">
<%
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>
<%
End Function
Function DisplayUserNewest
Dim Rs,SQL
dim i
' SQL = "select TOP 4 ID,UserName from LeadBBS_User Order by ID DESC"
SQL = "select * from LeadBBS_User Order by ID DESC"
Set Rs = Con.ExeCute(SQL)
If Not rs.Eof Then
for i=1 to 5
Response.Write "<a href=user/LookUserInfo.asp?id=" & rs("id") & "><font color=red>" & rs("UserName") & "</font></a> | "
rs.MoveNext
next
Else
Rs.Close
Set Rs = Nothing
Response.Write "找不到用户。" & VbCrLf
End If
End Function
Sub DisplayUserPower(usrNam)
dim rsp,sqlp,zw
'rsp=server.createobject("ADODB.Recordset")
sqlp="Select * from LeadBBS_User where UserName='" & usrNam & "'"
set rsp=con.execute(sqlp)
zw = cLng(rsp("UserLimit"))
if zw=514 or zw=642 then
response.write "管理员"
elseif zw=512 then
response.write "总版主"
elseif zw=128 then
response.write "版主"
elseif zw=8320 or zw=8192 then
response.write "区版主"
else
response.write "注册会员"
end if
rsp.close
Set rsp=nothing
End Sub
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"> <font color="#CC0000">
<%
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><table width="95%" border=0 align=center cellpadding=2 cellspacing=0 style="WORD-BREAK: break-all;"><tr><td>
<font color="#000033">
<marquee behavior=scroll direction=up id=news onMouseOut=start() onMouseOver=stop() scrollamount=1 scrolldelay=100 style=FONT-WEIGHT:normal;HEIGHT:63px>
<%
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"" width=20 height=20 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"" width=20 height=20 align=absmiddle border=0>",1,10,0)
Next
End If
End If
Response.Write VbCrLf & ReplaceNotNull(ReplaceNotNull(GetData(4,N),VbCrLf,"<br>")," "," ")
%> </marquee></font></td></tr></table></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="#FF00FF"><b><%=htmlencode(GetData(1,N))%></b></font><img src=src=""images/null.gif width=5 height=1><%=Mid(RestoreTime(GetData(6,n)),1,10)%></td>
</tr>
</table>
<%
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
