列表出现大拇指
【1】打开dv_topic 增加个字段 shdjt_appraise 类型int--用于存放好评差【2】打开appraise.asp
查找
Dvbbs.Execute(\"UpDate \"&PostTable&\" Set IsAgree=\'\"&Join(IsAgree,\"|\")&\"\' Where BoardID=\"&Dvbbs.BoardID&\" And AnnounceID=\"&PostID)
下面添加（下面可以定义成规则）
if Ubound(IsAgree)=6 then
Set Rs=Dvbbs.Execute(\"Select parentid From \"&PostTable&\"Where BoardID=\"&Dvbbs.BoardID&\" And AnnounceID=\"&PostID)
if rs(0)=0 then
dim shdjt_appraise
shdjt_appraise=Dvbbs.CheckNumeric(IsAgree(5))-Dvbbs.CheckNumeric(IsAgree(4))-Dvbbs.CheckNumeric(IsAgree(6))
Dvbbs.Execute(\"UpDate dv_topic Set shdjt_appraise=\"&shdjt_appraise&\" Where topicid=\"&TopicID)
end if
Rs.Close
end if
【3】打开index.asp
**** Hidden Message *****
页:
[1]