调用vip会员列表

sub main_user_vip(bbbb,cccc,dddd)
dim tmp1,sexpic
sql="select top "&bbbb&" * from user_data where hidden=1 order by power desc,id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
   if rs("sex")=true then
    sexpic="<img src=images/small/83.gif alt=帅哥> "
   else
    sexpic="<img src=images/small/81.gif alt=靓妹> "
   end if
tmp1=tmp1&vbcrlf&"<tr align=left><td height="&dim_num(6)&" width=70% align=left>"&sexpic&" <a href=user_view.asp?

username="&rs("username")&" alt='查看 "&rs("username")&" 的详细资料' target=_blank>"&joekoe_cms.code_html(rs

("username"),1,cccc)&"</td>"&_
vbcrlf&"<td width=30% align=right><font color=green>"&rs("power")&"</font></td>"&_
vbcrlf&"<td></td><tr><td height=1 background='images/bg_dian.gif' colspan='2'></td></tr>"
rs.movenext
loop
rs.close
tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=1 cellpadding=3 class=table>" & _
vbcrlf&"<tr><td colspan=4><b>"&dddd&"</b></td></tr>" & _
vbcrlf&"<tr class=bg_td><td align=center colspan=2>"&tmp1&"</td></tr>" & _
vbcrlf&"<tr><td align=center colspan=2 height=15><a href='user_action.asp?action=list'>[用户列表]</a>  <a  

href='forum.asp'>[进入论坛]</a></td></tr>" & _
vbcrlf&"</table>"
end sub

call main_user_vip(4,4,"test")

4:调用个数
4:名字长度限制
"test":调用名称（比如可以改成："VIP用户"）

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