快捷!方便!欢迎您用QQ登录华夏吴氏网 会员区*发表文章   设为首页 繁体中文 用户登录 我要投稿 公众号1:worldwucom 公众号2:cwu2015

 | 首页 | 资讯 | 图库 | 社区 | 祝福 | 文化 | 风水 | 企业 | 书籍 | 网建 | 纪念馆 | 
查看所有留言 签写新的留言 | 源流寻根 | 网友留言 | 网建平台 | 切换到留言本方式
  主题: 今日论坛之星 :2004/6/10 0:51:49


用户
吴卫东
" zsjrs.movenext '已经确定有一个了,移动到下一人 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("
打开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 & "
" temp1=temp1 & rs("username") & "
" temp1=temp1 & "
今天发表的主题帖:" & zsjrs(1) zsjrsyyy=zsjrs(1) 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 & "
发新帖抢占位置咯!发新帖抢占位置咯!发新帖抢占位置咯!
发新帖抢占位置咯!发新帖抢占位置!发新帖抢占位置咯!发新帖抢占位置!
"); document.write(""); document.write(Today_Star_Str); document.write("
"+img_skin(web_img_m)+" 今日论坛之星
"); }
 返回列表
1 条贴子   首页 | 上一页 | 1 | 下一页 | 尾页 6条贴子/页  转到第

回 复 留 言
姓  名:
性  别:
邮  箱:
留言主题:


留言内容:
是否隐藏: 正常 隐藏 * 选择隐藏,只有管理员可见。
验 证 码: *

 

 

| 关于我们 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 管理登录 | 服务专用QQ :116539779 点击这里给我发消息
版权所有 Copyright © 1997-2009 China Mrs.Wu, All Rights Reserved 备粤ICP备13015218号 华夏吴氏QQ群:85987924