又是一个循环的问题
本人太菜了,代码也写得很乱,还要请老师看一下我的代码,先说一下所遇到的问题,按以下程序运行时,出现错误类型：Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
/h/tx1.asp, 第 43 行
第43行也就是最后一个<%next%>语句,我测试了一下,有两种情况下程序可正常运行。
1、把表格<td>到</td>之间的代码删了,改成<td><%=b></td>则能正常运行
2、把外循环删了
现在我就搞不明白了,是什么问题导致程序出错。
附出错的完整程序页：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
id=1
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from temp where t_id='"&id&"'"
rs.open sql,conn,1,1
%>
<%dim t(25)
for i=1 to 24
t(i)=rs("t_"&i)
next%>
<%rs.close%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>零散整打</title>
<link rel="stylesheet" href="css/table.css" type="text/css">
</head>
<body>
<table width="900" height="1240" border="1" cellspacing="0" bordercolor="#000000">
<%dim a
a=0%>
<%for tr=1 to 8%>
<tr>
<%for td=1 to 3%>
<%b=b+1%>
<td width="300" height="155"><%if t(b)<>"" then
Set tr=Server.CreateObject("ADODB.Recordset")
sql="select * from party where party_id='"&t(b)&"'"
tr.open sql,conn,1,1
%><div align="center"><span class="STYLE1"><%=tr("b_name")%></span><br>
<span class="STYLE2"><%=tr("b_bank")%>|</span><span class="STYLE3"><%=tr("b_specs")%></span><span class="STYLE2">|</span><span class="STYLE3"><%=tr("b_unit")%><br>
<%=tr("party_id")%></span><span class="STYLE2">|</span><span class="STYLE3"><%=tr("b_size")%></span></div>
<%tr.close%>
<%end if%>
</td>
<%next%>
</tr>
<%next%>
</table>
</body>
</html>
<%
set tr=nothing
conn.close
set conn=nothing
%>
