UC知道请教ASP循环语句
来源：百度知道 编辑：UC知道 时间：2024/05/03 10:27:29
请教,这段代码怎么改成一个循环,就是一个条件成立后就不往下执行了.望高手赐教!!
<%
'VIP用户
dim username
username=trim(request.Cookies("shopv8")("username"))
if request.Cookies("shopv8")("reglx")=2 then
response.write ""&rs("zhuang2")&""
else
response.write "<br> <br>"
end if
%>
<%
'收费用户
username=trim(request.Cookies("shopv8")("username"))
if request.Cookies("shopv8")("reglx")=999 then
response.write ""&rs("zhuang3")&""
<%
'VIP用户
dim username
username=trim(request.Cookies("shopv8")("username"))
if request.Cookies("shopv8")("reglx")=2 then
response.write ""&rs("zhuang2")&""
else
response.write "<br> <br>"
end if
%>
<%
'收费用户
username=trim(request.Cookies("shopv8")("username"))
if request.Cookies("shopv8")("reglx")=999 then
response.write ""&rs("zhuang3")&""
'*****************************************************
'* Author:xudeng0129
'* Time:07-1-23
'* PS:if u think u can, nothing is impossible!
'*****************************************************
Dim strAllWords,username
strAllWords=""
username=trim(request.Cookies("shopv8")("username"))
Select Case request.Cookies("shopv8")("reglx")
Case 2 'VIP用户
strAllWords=rs("zhuang2")
Case 999 '收费用户
strAllWords=rs("zhuang3")
Case 99 '白金会员
strAllWords=rs("zhuang4")
Case 9 '钻石会员
strAllWords=rs("zhuang5")
Case Else
strAllWords="<br> 你还没注册？或者没有登录？这篇文章要求至少是本站的注册用户才能阅读！<br><br>"&Chr(13)&Chr(10)&_
" 如果你还没注册，请赶紧<a href='Reg.asp'><font color=red>点此注册</font></a>吧！&l