CMS1.2今日论坛之星

---------------------------------------------
1 style/joekoe_functions.js文件的末端添加以下代码：
------------------------------------
function forum_today_star()
{
document.write("<table cellspacing=1 cellpadding=1 class=table>");
document.write("<tr><td class=td colspan=4> "+img_skin(web_img_m)+" 今日论坛之星</td></tr>");
document.write(Today_Star_Str);
document.write("</table>");
}


----------------------------------
2 include/con_forum_main.asp的某个地方比如最末端添加以下内容：
-----------------------------------
function forum_today_star()
dim temp1,zsjrs,zsjrsyyy
zsjrsyyy=1
'======今日论坛之星=====
sql="select top 4 username,count(username) from bbs_topic where datediff('d',tim,#" & now() & "#)<1 group by username order by count(username) desc"
'set zsjrs=joekoe_cms.exec(sql,1)
set zsjrs=joekoe_cms.exec(sql,1)
if not zsjrs.eof then
response.write vbcrlf&"<table cellspacing=1 cellpadding=1 class=table>" & _
vbcrlf&"<tr><td class=td> "&img_skin(web_img_m)&" 今日论坛之星</td></tr>" & _
vbcrlf&"</table>"
temp1="<table cellspacing=1 cellpadding=1 class=table><tr><td align=center width=25% >"
temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 冠 军</div></font>"
temp1=temp1 & "<a href='user_view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
sql="select * from user_data where username='" & zsjrs("username") & "'"
set rs=joekoe_cms.exec(sql,1)
temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
temp1=temp1 & rs("username") & "</a>"
temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
temp1=temp1 & "</td>"
zsjrs.movenext '已经确定有一个了，移动到下一人
temp1=temp1 & "<td align=center width=25% >"
if not zsjrs.eof then '确定今天发了主题帖的至少有两个
sql="select * from user_data where username='" & zsjrs("username") & "'"
set rs=joekoe_cms.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 冠 军</div></font>"
else
temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 亚 军</div></font>"
end if
temp1=temp1 & "<a href='user_view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
temp1=temp1 & rs("username") & "</a>"
temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
zsjrs.movenext '已经确定有一个了，移动到下一人
temp1=temp1 & "<td align=center width=25% >"
if not zsjrs.eof then '确定今天发了主题帖的至少有两个
sql="select * from user_data where username='" & zsjrs("username") & "'"
set rs=joekoe_cms.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 亚 军</div></font>"
else
temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 季 军</div></font>"
end if
temp1=temp1 & "<a href='user_view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
temp1=temp1 & rs("username") & "</a>"
temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
zsjrs.movenext '已经确定有一个了，移动到下一人
temp1=temp1 & "<td align=center width=25% >"
if not zsjrs.eof then '确定今天发了主题帖的至少有两个
sql="select * from user_data where username='" & zsjrs("username") & "'"
set rs=joekoe_cms.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 季 军</div></font>"
else
temp1=temp1 & "<font color=red><div style='filter:glow(color=red,strength=10);'> 第4名</div></font>"
end if
temp1=temp1 & "<a href='user_view.asp?username="&server.urlencode(zsjrs("username"))&"' target=_blank>"
temp1=temp1 & "<img src='" & rs("face") & "' border=0 width='" & rs("face_w") & "' height='" & rs("face_h") & "'><br>"
temp1=temp1 & rs("username") & "</a>"
temp1=temp1 & "<br>今天发表的主题帖：" & zsjrs(1)
else '今天有发主题帖的只有一个
temp1=temp1 & "发新帖抢占位置咯！"
end if
temp1=temp1 & "</td>"
else '今天有发主题帖的只有一个
temp1=temp1 & "发新帖抢占位置咯！"
end if
temp1=temp1 & "</td>"
else '今天有发主题帖的只有一个
temp1=temp1 & "发新帖抢占位置咯！"
end if
temp1=temp1 & "</td></tr></table>"
rs.close
zsjrs.close
else
response.write vbcrlf&"<table cellspacing=1 cellpadding=1 class=table>" & _
vbcrlf&"<tr><td class=td> "&img_skin(web_img_m)&" 今日论坛之星</td></tr>" & _
vbcrlf&"</table>"
temp1="<table cellspacing=1 cellpadding=1 class=table><tr align=center><td>发新帖抢占位置咯!</td><td>发新帖抢占位置!</td><td>发新帖抢占位置咯!</td><td>发新帖抢占位置咯!</td></tr></table>"
end if

response.write temp1
'response.write forum_today_star()


end function


---------------------
3 forum.asp的你需要的地方比如call forum_main()的前面或后面添加下面的调用语句：
----------------
call forum_today_star()

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: