标题: Dvbbs V8.2.0 RC1修改：在楼主的贴子中标明"[楼主]"字样

作者: dnawo

日期: 2008-01-30 06:25 PM

内容: 本次修改主要针对dispbbs.asp，修改的地方共有四处：
1.增加全局变量G_PostUserName
复制内容到剪贴板程序代码Dim G_PostUserName
2.修改LoadTopicInfo函数(红色新增)
复制内容到剪贴板程序代码Sub LoadTopicInfo()
 AnnounceID = Dvbbs.CheckNumeric(Request("ID"))
 If 0=AnnounceID Then Dvbbs.AddErrCode(30):Dvbbs.Showerr()
 G_CurrentPage = Dvbbs.CheckNumeric(Request("star"))
 If 0=G_CurrentPage Then G_CurrentPage=1
 Skin=Request("Skin")
 If Skin="" or Not IsNumeric(Skin) Then Skin=Dvbbs.Board_setting(42)
 Dim Rs, SQL, iLockSet, iTopicMode, sMove
 sMove = request("move")
 iLockSet = Dvbbs.CheckNumeric(Dvbbs.Board_Setting(71))
 SQL="Select top 1 TopicID,boardid,title,hits,isvote,child,pollid,LockTopic,PostTable,BoardID,TopicMode,DateAndTime,Expression,GetMoneyType,PostUserName From Dv_topic where "
 If ""=sMove Then
 SQL = SQL & ("topicID=" & AnnounceID)
 Else
 SQL = SQL & "BoardID=" & Dvbbs.BoardID & " and topicID"
 If "next"=sMove Then
 SQL = SQL & ("<" & AnnounceID & " order by topicID desc")
 Else
 SQL = SQL & (">" & AnnounceID & " order by topicID")
 End If
 End If
 If Not IsObject(Conn) Then ConnectionDatabase
 Set Rs=Dvbbs.iCreateObject("Adodb.RecordSet")
 Rs.Open SQL,Conn,1,3
 Dvbbs.SqlQueryNum=Dvbbs.SqlQueryNum+1
 If Rs.eof or Rs.bof Then
 If ""<>sMove Then
 Response.Write "<script language=""javascript"">alert(""已经是最后一条主题了！"");history.go(-1);</script>"
 Rs.Close
 Set Rs=Nothing
 Response.End
 Else
 Dvbbs.AddErrcode(32)
 End If
 Else
 If CStr(Rs("BoardID"))<>CStr(Dvbbs.BoardID) Then Dvbbs.AddErrCode(29)
 G_Hits = Dvbbs.CheckNumeric(Rs("hits"))
 Rs("hits") = G_Hits+1
 G_LockTopic = Rs("LockTopic")
 If 0=G_LockTopic And iLockSet<>0 And Datediff("d", Rs("DateAndTime"),Now())>iLockSet Then
 G_LockTopic = 1
 Rs("LockTopic") = G_LockTopic
 End If
 On Error Resume Next
 Rs.Update
 If Err Then Err.Clear
 G_TopicTitle = Rs("title")
 G_IsVote = Rs("isvote")
 G_Childs = Rs("child")
 G_PollID = Rs("pollid")
 G_Expression = Rs("Expression")
 T_GetMoneyType = Rs("GetMoneyType")
 TotalUsetable = Rs("PostTable")
 iTopicMode = Rs("topicmode")
 AnnounceID = Rs("TopicID")
 G_PostUserName = Rs("PostUserName")
 End If
 Rs.Close
 Set Rs=Nothing
 Dvbbs.Showerr()
 G_TopicTitle = Dvbbs.ChkBadWords(G_TopicTitle)
 ReplyID = Dvbbs.CheckNumeric(Request("ReplyID"))
 If 0=ReplyID Then ReplyID=AnnounceID
 If iTopicMode<>1 Then G_TopicTitle=replace(G_TopicTitle, "<", "<")
 Dvbbs.Stats = G_TopicTitle
 G_Childs = G_Childs+1
 Select Case iTopicMode
 Case 2 G_TopicTitle = ""&G_TopicTitle&""
 Case 3 G_TopicTitle = ""&G_TopicTitle&""
 Case 4 G_TopicTitle = ""&G_TopicTitle&""
 Case Else
 End Select
End Sub
3.增加一个函数IsPostUser
复制内容到剪贴板程序代码Function IsPostUser(UserName)
 If G_PostUserName=UserName Then
 IsPostUser = "[楼主]"
 Else
 IsPostUser = ""
 End If
End Function
4.在ParseUserNode函数中找到如下部分并修改(红色新增)
复制内容到剪贴板程序代码Case "richname"
 s = G_UserList(26, i-1)
 Select Case s
 Case 0 s2= Dvbbs.mainsetting(9)
 Case 1 s2= Dvbbs.mainsetting(7)
 Case 2 s2= Dvbbs.mainsetting(7)
 Case 3 s2= Dvbbs.mainsetting(5)
 Case 4 s2= "red"
 Case 5 s2= "red"
 Case 6 s2= "gray"
 Case 7 s2= Dvbbs.mainsetting(11)
 Case 8 s2= "red"
 Case Else s2= Dvbbs.mainsetting(5)
 End Select
 s=Split(Split(Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='"& G_UserList(26, i-1) &"']/@groupsetting").text,",")(58),"§")
 TPL_Echo ""&(s(0)&UserName&IsPostUser(UserName)&s(1)&"")
OK，修改完毕！