asp循环语句
FunctionGetProfileList(ByValID)DimRSDimReturnDimOtherPropertyDimcss_TipDimcss_htmlcss...
Function GetProfileList(ByVal ID)
Dim RS
Dim Return
Dim OtherProperty
Dim css_Tip
Dim css_html
css_Tip=0
OtherProperty=0
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open " Select OtherProperty From V_Profile Where ID="&ID,conn,1,1
If Not RS.EOF Then OtherProperty = RS(0)
RS.Close
RS.Open " Select Title,Links From V_Profile Where OtherProperty = "&OtherProperty,conn,1,1
Do While Not RS.EOF
css_Tip=css_Tip+1
css_html="leftNav"&css_Tip
Return=Return&"<li class='"&css_html&"'><a href='"&RS("Links")&"'>"&RS("Title")&"</a></li>"
RS.MoveNext
If css_Tip=5 Then css_Tip=0
Loop
RS.Close:Set RS=Nothing
GetProfileList=Return
End Function
这是一个提取分类的语句;提取一级分类和分类的属性相同的ID放一个栏目、 如果我在这个语句段要再加一个二级的分类;用ParentID字段提取数据、 然后把这个字段里面的调出来的语句用DIV作为一个快、 原有的属性不变、 该怎么写 展开
Dim RS
Dim Return
Dim OtherProperty
Dim css_Tip
Dim css_html
css_Tip=0
OtherProperty=0
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open " Select OtherProperty From V_Profile Where ID="&ID,conn,1,1
If Not RS.EOF Then OtherProperty = RS(0)
RS.Close
RS.Open " Select Title,Links From V_Profile Where OtherProperty = "&OtherProperty,conn,1,1
Do While Not RS.EOF
css_Tip=css_Tip+1
css_html="leftNav"&css_Tip
Return=Return&"<li class='"&css_html&"'><a href='"&RS("Links")&"'>"&RS("Title")&"</a></li>"
RS.MoveNext
If css_Tip=5 Then css_Tip=0
Loop
RS.Close:Set RS=Nothing
GetProfileList=Return
End Function
这是一个提取分类的语句;提取一级分类和分类的属性相同的ID放一个栏目、 如果我在这个语句段要再加一个二级的分类;用ParentID字段提取数据、 然后把这个字段里面的调出来的语句用DIV作为一个快、 原有的属性不变、 该怎么写 展开
1个回答
展开全部
1、for语句一行后面可以加step参数,请问是什么作用?为什么我加了step 5,执行和结果就变成了1<br>2<br>,也就是循环减半了。
step步长 a的取值依次为1、6、11 只有1 6 的时候才进入循环进行i++
所以只输出1 2
2、我查了相关资料,next后面可以接For后面的参数a,但我改成next a后出错,提示“语句未结束”?
据我所知next后不能跟参数的
3、结束循环用什么语句?
如果要跳出循环 可以用exit for
请采纳。
step步长 a的取值依次为1、6、11 只有1 6 的时候才进入循环进行i++
所以只输出1 2
2、我查了相关资料,next后面可以接For后面的参数a,但我改成next a后出错,提示“语句未结束”?
据我所知next后不能跟参数的
3、结束循环用什么语句?
如果要跳出循环 可以用exit for
请采纳。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询