神马品牌网双轴撕碎机设备:循环代码问题！
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 08:28:56
szSQL = "SELECT TOP 200 * FROM v_pro_click ORDER BY SumClick DESC"
rsData.Open szSQL,con,1,3
for i = 1 to 200
if rsData.EOF then exit for
set rsData_ProgData = Server.CreateObject("ADODB.Recordset")
szSQL = "SELECT DISTINCT Prog_ID,ProgName FROM v_proginfo WHERE
Prog_GUID='" & rsData("Prog_GUID") & "' AND v_proginfo.Type_ID>20"
rsData_ProgData.Open szSQL,con,1,3
if not rsData_ProgData.EOF then
%>
<tr>
<td width="24" height="15"><%=i%></td>
<td width="136" height="15"><a href="<% =szPath %
>oemui/vod/progmain.asp?ProgID=<% =rsData_ProgData("Prog_ID") %>">
<% =GetLeftString(GetRecordGameName(rsData_ProgData
("ProgName")), 32) %>
</a></td><td align="right" width="33" height="28"><% =rsData
("SumClick") %></td>
</tr>
<%
end if
rsData_ProgData.Close
set rsData_ProgData = nothing
rsData.MoveNext
next
rsData.Close
%>
以上代码只能纵向循环。请帮我修改代码，实现横向3个表格，再纵向循环。谢谢
resquest.write"</tr><tr>" 这个位置出现
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/oemui/list.asp，行 44
修改过:
<%
szSQL = "SELECT TOP 200 * FROM v_pro_click ORDER BY SumClick DESC"
rsData.Open szSQL,con,1,3
for i = 1 to 200
if rsData.EOF then exit for
set rsData_ProgData = Server.CreateObject("ADODB.Recordset")
szSQL = "SELECT DISTINCT Prog_ID,ProgName FROM v_proginfo WHERE
Prog_GUID='" & rsData("Prog_GUID") & "' AND v_proginfo.Type_ID>20"
rsData_ProgData.Open szSQL,con,1,3
if not rsData_ProgData.EOF then
%>
<tr>
<td width="24" height="15"><%=i%></td>
<td width="136" height="15"><a href="<% =szPath %
>oemui/vod/progmain.asp?ProgID=<% =rsData_ProgData("Prog_ID") %>">
<% =GetLeftString(GetRecordGameName(rsData_ProgData
("ProgName")), 32) %>
</a></td><td align="right" width="33" height="28"><% =rsData
("SumClick") %></td>
<%
if j%3=2 then
resquest.write"</tr><tr>"
end if
%>
</tr>
<%
end if
rsData_ProgData.Close
set rsData_ProgData = nothing
rsData.MoveNext
next
rsData.Close
%>
大功告成：
<%
szSQL = "SELECT TOP 200 * FROM v_pro_click ORDER BY SumClick DESC"
rsData.Open szSQL,con,1,3
for i = 1 to 200
if rsData.EOF then exit for
set rsData_ProgData = Server.CreateObject("ADODB.Recordset")
szSQL = "SELECT DISTINCT Prog_ID,ProgName FROM v_proginfo WHERE
Prog_GUID='" & rsData("Prog_GUID") & "' AND v_proginfo.Type_ID>20"
rsData_ProgData.Open szSQL,con,1,3
if not rsData_ProgData.EOF then
%>
<tr>
<td width="24" height="15"><%=i%></td>
<td width="136" height="15"><a href="<% =szPath %
>oemui/vod/progmain.asp?ProgID=<% =rsData_ProgData("Prog_ID") %>">
<% =GetLeftString(GetRecordGameName(rsData_ProgData
("ProgName")), 32) %>
</a></td><td align="right" width="33" height="28"><% =rsData
("SumClick") %></td>
<%
if j%3=2 then
resquest.write"</tr><tr>"
end if
%>
</tr>
<%
end if
rsData_ProgData.Close
set rsData_ProgData = nothing
rsData.MoveNext
next
rsData.Close
%>