'刷積分
UserCredit=Rs("UserCredit")
If IsNull(UserCredit) Or Trim(UserCredit)&""="" Then UserCredit=0
If LiWuScore>UserCredit Then AlertMsg "您的積分不足!","",false:response.End
Rs("UserCredit")=Rs("UserCredit")-LiWuScore
rs.update
rs.close

你在這后面加上幾句，判斷級別就行了，只要這個字段在這個數據表里
'判斷級別
UserMemberLevel=Rs("MemberLevel")
If IsNull(UserMemberLevel) Or Trim(UserMemberLevel)&""="" Then UserMemberLevel=0
If UserMemberLevel<2 Then AlertMsg "您的級別不足!","",false:response.End
rs.close

if (ts.Days < 7)
{
if(ts.Days < 1)
{
tc.Text = "已經小于1天了";
}
else
{
tc.Text = "小于7天";
}

}
else
{
tc.Text = "大于7天";
}