|
|
|
|
【用户】
吴卫东 |
|
|
打开forum.asp
在call user_birthday()插入
call forum_today_star()
在call web_end(0,0)插入以下代码
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=edxsky_2in1.exec(sql,1)
if not zsjrs.eof then
temp1=" | | "
temp1=temp1 & " 冠 军 "
temp1=temp1 & ""
sql="select * from user_data where username='" & zsjrs("username") & "'"
set rs=edxsky_2in1.exec(sql,1)
temp1=temp1 & "![](" & rs("face") & ")
"
temp1=temp1 & rs("username") & ""
temp1=temp1 & "
今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
temp1=temp1 & " | "
zsjrs.movenext '已经确定有一个了，移动到下一人
temp1=temp1 & ""
if not zsjrs.eof then '确定今天发了主题帖的至少有两个
sql="select * from user_data where username='" & zsjrs("username") & "'"
set rs=edxsky_2in1.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
temp1=temp1 & " 冠 军 "
else
temp1=temp1 & " 亚 军 "
end if
temp1=temp1 & ""
temp1=temp1 & "
"
temp1=temp1 & rs("username") & ""
temp1=temp1 & "
今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
zsjrs.movenext '已经确定有一个了，移动到下一人
temp1=temp1 & " | "
if not zsjrs.eof then '确定今天发了主题帖的至少有两个
sql="select * from user_data where username='" & zsjrs("username") & "'"
set rs=edxsky_2in1.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
temp1=temp1 & " 亚 军 "
else
temp1=temp1 & " 季 军 "
end if
temp1=temp1 & ""
temp1=temp1 & "
"
temp1=temp1 & rs("username") & ""
temp1=temp1 & "
今天发表的主题帖：" & zsjrs(1)
zsjrsyyy=zsjrs(1)
zsjrs.movenext '已经确定有一个了，移动到下一人
temp1=temp1 & " | "
if not zsjrs.eof then '确定今天发了主题帖的至少有两个
sql="select * from user_data where username='" & zsjrs("username") & "'"
set rs=edxsky_2in1.exec(sql,1)
if zsjrsyyy=zsjrs(1) then
temp1=temp1 & " 季 军 "
else
temp1=temp1 & " 第4名 "
end if
temp1=temp1 & ""
temp1=temp1 & "
"
temp1=temp1 & rs("username") & ""
temp1=temp1 & "
今天发表的主题帖：" & zsjrs(1)
else '今天有发主题帖的只有一个
temp1=temp1 & "发新帖抢占位置咯！"
end if
temp1=temp1 & " | "
else '今天有发主题帖的只有一个
temp1=temp1 & "发新帖抢占位置咯！发新帖抢占位置咯！ | "
end if
temp1=temp1 & ""
else '今天有发主题帖的只有一个
temp1=temp1 & "发新帖抢占位置咯！发新帖抢占位置咯！ | 发新帖抢占位置咯！ | "
end if
temp1=temp1 & " "
else
temp1="| 发新帖抢占位置咯！ | 发新帖抢占位置！ | 发新帖抢占位置咯！ | 发新帖抢占位置！ | "
end if
response.write vbcrlf & "var Today_Star_Str=""" & temp1 & """;"
response.write vbcrlf & "forum_today_star();"
zsjrs.close
end function
打开edxsky_functions.js在最下面插入以下代码
function forum_today_star()
{
document.write("");
document.write("| "+img_skin(web_img_m)+" 今日论坛之星 | ");
document.write(Today_Star_Str);
document.write(" ");
}
| |
|
|
|
|
|
|
会员区*发表文章
主题： 
：2004/6/10 0:51:49
返回列表