[推荐]社区明星(发帖冠军) For 94KK2.0

ＫiＳsル王子

下载地址:

此内容只有作者和已经回复此帖的浏览者能浏览：





上传的附件
   20062272336934.rar [ 7.57 KB ]





================修改方面(下载文件里也有)============


红色的是要找到的代码


蓝色是需要替换或者添加的代码


----------------------------------


1、将UPDATE.asp上传到论坛目录，运行升级


如果你以前安装过这插件,不要执行第一步(也就是不执行,上传UPDATE.asp升级)



2 将star文件夹上传到PIC目录里


3、在inc/94kk_cls.asp文件里。找到end class（从上到下第一个~不是第2个）
在前面添加上！下面这段


Public Function GetTopicCham()
Dim Rs,Temp,Grade,S,Tname,Coin,GameCoin,Grade2,Pic,Tnum,Mark,mail,Temp2
Set Rs=BBS94KK.Execute("Select top 1 name,pic,gradeID,Coin,GameCoin,mail,mark,IsQQPic,QQ,tnum from [KK_user] where tnum>0 order by tnum DESC")
IF Rs.eof Then
Tname="等你来修改"
Grade2="<img src='pic/grade/0.gif' alt='@~#$%^&' />"
Coin=0
GameCoin=0
Pic="pic/star/nomx.gif"
Tnum=0
Mark=0
Mail=0
Else
Tname=Rs("name")
Grade=BBS94KK.GetGradeInfo(Rs("gradeID"))
Grade=split(Grade,"|")
Grade2="<img src='pic/grade/"&Grade(3)&"' alt='"&Grade(2)&"' />"
Coin=Rs("Coin")
GameCoin=Rs("Coin")
IF Rs("IsQQpic")=1 Then
Pic="http://qqshow-user.tencent.com/"&Rs("QQ")&"/10/' target=_blank>http://qqshow-user.tencent.com/"&Rs("QQ")&"/10/"
Else
Pic=Rs("pic")
End IF
Tnum=Rs("tnum")
Mark=Rs("mark")
Mail=Rs("mail")
End IF
Temp="<table width='319' border='0' cellspacing='0' cellpadding='0'>"&_
"<tr><td height='25' colspan='3' align='center'><b><font color='#FF0000'>今&nbsp;&nbsp;</font><font color='#00FF00'>日&nbsp;&nbsp;</font><font color='#FF0000'>之&nbsp;&nbsp;</font><font color='#0000FF'>星</font></b></td></tr>"&_
"<tr><td width='57' align='right'><strong>姓&nbsp;&nbsp;&nbsp;名:</strong></td><td width='120'>&nbsp;"&Tname&"</td><td width='132' rowspan='7'><img src='"&ic&"' width='100' height='120' /></td></tr>"&_
"<tr><td align='right'><strong>等&nbsp;&nbsp;&nbsp;级:</strong></td><td>&nbsp;"&Grade2&"</td></tr>"&_
"<tr><td align='right'><strong><font color=red>今日</font>发:</strong></td><td>&nbsp;<font color=red>"&Tnum&"</font>&nbsp;帖</td></tr>"&_
"<tr height=13><td align='right'><strong>现&nbsp;&nbsp;&nbsp;金:</strong></td><td><table width='95%' align=center height='13' border='0' cellpadding='0' cellspacing='0'><tr><td width='3'><img src='Pic/star/img_left.gif' width='3' height='13'></td><td background='Pic/star/img_backing.gif' title='金钱"&Coin&"元'><img src='Pic/star/bar3.gif' width="&(Coin/1000)&" height='11'><img src='Pic/star/bar3_1.gif' height='11'></td><td width='3'><img src='Pic/star/img_right.gif' width='3' height='13'></td></tr></table></td></tr>"&_
"<tr><td align='right'><strong>积&nbsp;&nbsp;&nbsp;分:</strong></td><td><table width='95%' align=center height='13' border='0' cellpadding='0' cellspacing='0'><tr><td width='3'><img src='Pic/star/img_left.gif' width='3' height='13'></td><td background='Pic/star/img_backing.gif' title='积分"&Mark&"'><img src='Pic/star/bar4.gif' width="&(Mark/10)&" height='11'><img src='Pic/star/bar4_1.gif' height='11'></td><td width='3'><img src='Pic/star/img_right.gif' width='3' height='13'></td></tr></table></td></tr>"&_
"<tr><td align='right'><strong>游戏币:</strong></td><td><table width='95%' align=center height='13' border='0' cellpadding='0' cellspacing='0'><tr><td width='3'><img src='Pic/star/img_left.gif' width='3' height='13'></td><td background='Pic/star/img_backing.gif' title='游戏币"&GameCoin&"'><img src='Pic/star/bar5.gif' width="&(GameCoin/1000)&" height='11'><img src='Pic/star/bar5_1.gif' height='11'></td><td width='3'><img src='Pic/star/img_right.gif' width='3' height='13'></td></tr></table></td></tr>"&_
"<tr><td align='right'><strong>E_Mail</strong>:</td><td>&nbsp;<a href='mailto:"&Mail&"'><b>飞鸽传书</b></a></td><td>&nbsp;</td></tr>"&_
"</table>"
'周
Set Rs=BBS94KK.Execute("Select top 1 name,pic,gradeID,Coin,GameCoin,mail,mark,IsQQPic,QQ,wnum from [KK_user] where wnum>0 order by wnum DESC")
IF Rs.eof Then
Tname="等你来修改"
Grade2="<img src='pic/grade/0.gif' alt='@~#$%^&' />"
Coin=0
GameCoin=0
Pic="pic/star/nomx.gif"
Tnum=0
Mark=0
Mail=0
Else
Tname=Rs("name")
Grade=BBS94KK.GetGradeInfo(Rs("gradeID"))
Grade=split(Grade,"|")
Grade2="<img src='pic/grade/"&Grade(3)&"' alt='"&Grade(2)&"' />"
Coin=Rs("Coin")
GameCoin=Rs("Coin")
IF Rs("IsQQpic")=1 Then
Pic="http://qqshow-user.tencent.com/"&Rs("QQ")&"/10/' target=_blank>http://qqshow-user.tencent.com/"&Rs("QQ")&"/10/"
Else
Pic=Rs("pic")
End IF
Tnum=Rs("wnum")
Mark=Rs("mark")
Mail=Rs("mail")
End IF
Temp2="<table width='319' border='0' cellspacing='0' cellpadding='0'>"&_
"<tr><td height='25' colspan='3' align='center'><b><font color='#FF0000'>本&nbsp;&nbsp;</font><font color='#00FF00'>周&nbsp;&nbsp;</font><font color='#FF0000'>之&nbsp;&nbsp;</font><font color='#0000FF'>星</font></b></td></tr>"&_
"<tr><td width='57' align='right'><strong>姓&nbsp;&nbsp;&nbsp;名:</strong></td><td width='120'>&nbsp;"&Tname&"</td><td width='132' rowspan='7'><img src='"&ic&"' width='100' height='120' /></td></tr>"&_
"<tr><td align='right'><strong>等&nbsp;&nbsp;&nbsp;级:</strong></td><td>&nbsp;"&Grade2&"</td></tr>"&_
"<tr><td align='right'><strong><font color=red>本周</font>发:</strong></td><td>&nbsp;<font color=red>"&Tnum&"</font>&nbsp;帖</td></tr>"&_
"<tr height=13><td align='right'><strong>现&nbsp;&nbsp;&nbsp;金:</strong></td><td><table width='95%' align=center height='13' border='0' cellpadding='0' cellspacing='0'><tr><td width='3'><img src='Pic/star/img_left.gif' width='3' height='13'></td><td background='Pic/star/img_backing.gif' title='金钱"&Coin&"元'><img src='Pic/star/bar3.gif' width="&(Coin/1000)&" height='11'><img src='Pic/star/bar3_1.gif' height='11'></td><td width='3'><img src='Pic/star/img_right.gif' width='3' height='13'></td></tr></table></td></tr>"&_
"<tr><td align='right'><strong>积&nbsp;&nbsp;&nbsp;分:</strong></td><td><table width='95%' align=center height='13' border='0' cellpadding='0' cellspacing='0'><tr><td width='3'><img src='Pic/star/img_left.gif' width='3' height='13'></td><td background='Pic/star/img_backing.gif' title='积分"&Mark&"'><img src='Pic/star/bar4.gif' width="&(Mark/10)&" height='11'><img src='Pic/star/bar4_1.gif' height='11'></td><td width='3'><img src='Pic/star/img_right.gif' width='3' height='13'></td></tr></table></td></tr>"&_
"<tr><td align='right'><strong>游戏币:</strong></td><td><table width='95%' align=center height='13' border='0' cellpadding='0' cellspacing='0'><tr><td width='3'><img src='Pic/star/img_left.gif' width='3' height='13'></td><td background='Pic/star/img_backing.gif' title='游戏币"&GameCoin&"'><img src='Pic/star/bar5.gif' width="&(GameCoin/1000)&" height='11'><img src='Pic/star/bar5_1.gif' height='11'></td><td width='3'><img src='Pic/star/img_right.gif' width='3' height='13'></td></tr></table></td></tr>"&_
"<tr><td align='right'><strong>E_Mail</strong>:</td><td>&nbsp;<a href='mailto:"&Mail&"'><b>飞鸽传书</b></a></td><td>&nbsp;</td></tr>"&_
"</table>"


GetTopicCham="<table border='0' width=95% align=center cellspacing='0' cellpadding='10'><tr><td width='50%' style='border-right:#E0E0E0 solid 3px;'>"&Temp&"</td><td>"&Temp2&"</td></tr></table> "
End Function


再找到今日更新后面几行的
Cache.clean("LockLogin")'清空禁止登陆用户
在下面添加
execute("update [KK_user] set tnum=0")
execute("update [KK_user] set wnum=0 where weekday(now,2)=7")



4、再打开index.asp


在最后面的%>上面加上下面这段


Function Showcham()
Call BBS94KK.ShowTable("社区明星",bbs94kk.GetTopicCham())
End Function


再找到（从上到下第一个）
ShowBoard()
在下面添加
pagestring=pagestring&Showcham()



5、打开saysave.asp
找到
.execute("Update [KK_user] set "&Temp&"EssayNum=EssayNum+1 WHERE ID="&.MyID&"")
改为
.execute("Update [KK_user] set "&Temp&"EssayNum=EssayNum+1,tnum=tnum+1,wnum=wnum+1 WHERE ID="&.MyID&"")


再找到
.execute("Update [KK_user] set "&Temp&"EssayNum=EssayNum+1 WHERE ID="&.MyID)
改为
.execute("Update [KK_user] set "&Temp&"EssayNum=EssayNum+1,tnum=tnum+1,wnum=wnum+1 WHERE ID="&.MyID)


凡是1.20版本安装过的.请到后台执行下面SQL语句.将以前的数据清空,不然就要隔一天才能显示正常
update [KK_user] set tnum=0,wnum=0

jzsky

看看看！！。。。。

qzcc

ejherjh

loveyhl

tttttttttttttttttttttt

loveyhl

tttttttttttttttttttttt