不负相思意
'刷积分UserCredit=Rs("UserCredit")If IsNull(UserCredit) Or Trim(UserCredit)&""="" Then UserCredit=0If LiWuScore>UserCredit Then AlertMsg "您的积分不足!","",false:response.EndRs("UserCredit")=Rs("UserCredit")-LiWuScorers.updaters.close你在这后面加上几句,判断级别就行了,只要这个字段在这个数据表里'判断级别UserMemberLevel=Rs("MemberLevel")If IsNull(UserMemberLevel) Or Trim(UserMemberLevel)&""="" Then UserMemberLevel=0If UserMemberLevel<2 Then AlertMsg "您的级别不足!","",false:response.Endrs.close