请问这几行起到什么作用

[复制链接]

天之骄灵

电梯直达

1^#

发表于 2010-1-19 23:54:26 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%@ LANGUAGE="VBSCRIPT" %>

<%

set rs_class_1=server.createobject("adodb.recordset")
sqltext2="select * from Class_1 "
rs_class_1.open sqltext2,conn,1,1
%>
<%
While not rs_class_1.EOF
set rs_class_2=server.createobject("adodb.recordset")
sqltext3="select * from Class_2 where Class_1_Name='" & rs_class_1("Class_1_Name") & "'"
rs_class_2.open sqltext3,conn,1,1
%>

<%=rs_class_1("Class_1_Name")%>

<%j=1%>
<%While Not rs_class_2.EOF%>

<a href="splb.asp?spdl=<%=rs_class_1("Class_1_Name")%>&spxl=<%=rs_class_2("Class_2_Name")%>"><font color="#000000"><%=rs_class_2("Class_2_Name")%></font></a>

<%if j mod 1 = 0 then %>
[知识问答ωωω.χiuGoo.сom]

<%end if%>
<%
rs_class_2.MoveNext
j=j+1
Wend
rs_class_2.close

%>

<%
rs_class_1.MoveNext
Wend
rs_class_1.close
%>

如题，小弟不知道这几行起到什么作用<%j=1%>，<%if j mod 1 = 0 then %>， j=j+1 ，Wend

收藏0

使用道具举报

返回列表

GMT+8, 2024-11-20 04:17 , Processed in 0.100698 second(s), 9 queries , Gzip On, Memcache On.

		自动登录	找回密码
密码			注册