:Ƽ FOR DV8.2



====================================================================

װ

ϴļ

agree_setup.aspļimagesļ ̳Ŀ¼agree_setup.aspļ
ʾΪݿһֶΣװʾɾļ

ļ޸ģ

һadmin_postings.aspļ

ҵ
	Select Case Request("action")

		Case "OKagree"
		   Call OKagree()
		Case "Noagree"
		   Call Noagree()

ҵһ

	End Class

һе´

	'ǷƼ״̬ʼ
	Public Sub OKagree()
		LogType=3
		sucmsg="ѾɹƼ" & "ID" & Dvbbs.BoardID & "ID" & ID
		Dvbbs.Execute("Update [Dv_topic] Set agree = 1 Where BoardID = " & Dvbbs.BoardID & " And TopicID = " & ID)
		Insert_Forum_Log()
		Update_User_Point("")
		Topic_Manage_Sms()
		Dvbbs.Dvbbs_Suc(SucMsgInfo(sucmsg))
	End Sub
	Public Sub Noagree()
		LogType=3
		sucmsg="ѾɹȡƼ" & "ID" & Dvbbs.BoardID & "ID" & ID
		Dvbbs.Execute("Update [Dv_topic] Set agree = 0 Where BoardID = " & Dvbbs.BoardID & " And TopicID = " & ID)
		Insert_Forum_Log()
		Update_User_Point("")
		Topic_Manage_Sms()
		Dvbbs.Dvbbs_Suc(SucMsgInfo(sucmsg))
	End Sub
	'ǷƼ״̬

index.aspļУ

ҵ
		If Cint(TopicMode)=0 Then
			Sql="Select  TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename  From Dv_Topic Where BoardID="&Dvbbs.BoardID&" And IsTop=0 "&SQLQuery&" Order By "&OrderField&" "& OrderStr
Ϊ
		If Cint(TopicMode)=0 Then
			Sql="Select  TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename,agree  From Dv_Topic Where BoardID="&Dvbbs.BoardID&" And IsTop=0 "&SQLQuery&" Order By "&OrderField&" "& OrderStr

ҵ
			If InStr(Topic(15,i),"|")>0 And InStr(Topic(15,i),"0|")<>1	Then	Call TopicTool(0,0,Topic(0,i),5)	' ħ
Ϊ
			If InStr(Topic(15,i),"|")>0 And InStr(Topic(15,i),"0|")<>1	Then	Call TopicTool(0,0,Topic(0,i),5)	' ħ
			If Topic(23,i)=1 Then      Call TopicTool(0,0,Topic(0,i),11) ' Ƽ

ҵ
	Case 5
		TPL_Echo "<span style=""float:right""><img src=""dv_plus/tools/magicface/magicemot.gif"" border=""0""  alt=""ħ"" /></span> "
Ϊ
	Case 5
		TPL_Echo "<span style=""float:right""><img src=""dv_plus/tools/magicface/magicemot.gif"" border=""0""  alt=""ħ"" /></span> "
	Case 11
		TPL_Echo "<span style=""float:right""><img src=""images/agree.gif"" border=""0""  alt=""Ƽ"" /></span> "




 dispbbs.asp ļ 

ҵ
	s=s& "	<a href=""admin_postings.asp?action=&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&""" title=""бǰ""></a><br />"
Ϊ
	s=s& "	<a href=""admin_postings.asp?action=OKagree&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&"""  title=""Ƽ"">Ƽ</a><br />"
	s=s& "	<a href=""admin_postings.asp?action=Noagree&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&"""  title=""Ƽ"">ȡƼ</a><br />"
	s=s& "	<a href=""admin_postings.asp?action=&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&""" title=""бǰ""></a><br />"



ϣ

===================================================================
