新微赢技术网

标题: 请问这几行起到什么作用 [打印本页]

作者: 天之骄灵 时间: 2010-1-19 23:54
标题: 请问这几行起到什么作用
<%@ 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

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)