谢谢! 前后几行的代码是这样的: sub ShowRank() if Rs1("Membercode")=5 then RankName="管理员" RankIconUrl="images/level/MemberCode5.gif" elseif Rs1("Membercode")=4 then RankName="超级版主" RankIconUrl="images/level/MemberCode4.gif" elseif instr("|"&moderated&"|","|"&Rs1("UserName")&"|")>0 and moderated<>"" then RankName="论坛版主" RankIconUrl="images/level/MemberCode3.gif" elseif Rs1("Membercode")=2 then RankName="贵宾会员" RankIconUrl="images/level/MemberCode2.gif" elseif Rs1("Membercode")=0 then RankName="尚未激活" RankIconUrl="images/level/MemberCode0.gif" else sql="Select top 1 * From [BBSXP_Ranks] where PostingCountMin<="&Rs1("experience")&" order by PostingCountMin Desc" Set UserRank=Conn.Execute(sql) if UserRank.eof then RankName="未知等级" RankIconUrl="images/level/MemberCode0.gif" else RankName=UserRank("RankName") RankIconUrl=UserRank("RankIconUrl") end if Set UserRank = Nothing end if end sub 麻烦了~
|