关于数据类型不匹配！

[771122]

<%
dim i,zfl(25),zflid(25)
i=0
set rs=server.CreateObject("adodb.recordset")
sql="select * from dlzfl"
rs.Open sql,conn,3,3
do while not rs.EOF
zfl(i)=rs(1)
zflid(i)=rs(0)
rs.MoveNext
i=i+1
loop
rs.Close
for i=0 to 24 step 2
if zfl(i)="" then exit for %>
<tr>
<td width="53" height="16"><font color="#FFFFFF" onmouseover="style.backgroundColor='#000066'" onMouseOut="style.backgroundColor='#1D4FB4'" align="center"> <a href="ybdq.asp?zflname=<%=zfl(i)%>&zflid=<%=zflid(i)%>"><font color="#FFFFFF"><%=zfl(i)%></font></a></font></td>
<td width="69" height="16"><font color="#FFFFFF" onmouseover="style.backgroundColor='#000066'" onMouseOut="style.backgroundColor='#1D4FB4'" align="center"><a href="ybdq.asp?zflname=<%=zfl(i+1)%>&zflid=<%=zflid(i+1)%>"><font color="#FFFFFF"><%=zfl(i+1)%></font></a></font></td>
</tr>
<%next%>
</table>
<a href="../xiaoshou.asp"><img src="../imgs/goback.gif" width="160" height="24" border="0"></a></td>
<td width="5" height="579" valign="top">  </td>
<td width="560" valign="top"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<%zflname=request("zflname")
if zflname<>"" then %>
<tr>
<td height="30">
<div align="center"><font color="#FF0000">（一）<%=zflname%></font></div></td>
</tr>
<% end if%>

</table>
<div align="center">
<table width="90%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#FF9900"></td>
</tr>
</table>
<br>
<%
if request("zflid")<>"" then
sql="select * from dlfl where dlfl.zflid='"&request("zflid")&"'"
rs.Open sql,conn,3,3
total=rs.RecordCount
rs.PageSize=5
pagecount=rs.PageCount
PageSize=rs.PageSize
pageno=cint(request("pageno"))
if pageno<1 then
pageno=1
elseif pageno>pagecount then
pageno=pagecount
end if
if not rs.EOF then
rs.AbsolutePage =pageno
end if
do while not rs.EOF and PageSize>0
%>
<table style="border-collapse: collapse" width="90%" height="18" border="0" cellpadding="0" cellspacing="1">
<tr>
<td width="15%">
<div align="center"><strong>类    别:<br>
</strong> </div></td>
<td width="85%" height="18"><font color="#FF0000"><%=rs("flname")%></font></td>
</tr>
<tr>
<td>
<div align="center"><strong>说    明:</strong></div></td>
<td height="18"><%=rs("sm")%></td>
</tr>
<tr>
<td>
<div align="center"><strong>代 理 商:</strong><br>
</div></td>
<td height="18">
<%
set rs1=server.CreateObject("adodb.recordset")
sql="select id,dls from dlcp where zflid='"&request("zflid")&"'and flid='"&rs("id")&"' "
rs1.Open sql,conn,3,3
do while not rs1.EOF
%><a href="dls.asp?id=<%=rs1("id")%>" onClick="return pop1(this.href);"><font color="#0066CC"><%=rs1("dls")%>、</font></a> <%
rs1.MoveNext
loop
rs1.close
%></td></tr>
<tr>
<td>
<div align="center"><strong>代理产品:</strong></div></td>
<td height="18"><%
set rs2=server.CreateObject("adodb.recordset")
sql="select id,cpname from dlcp where zflid='"&request("zflid")&"'and flid='"&rs("id")&"' "
rs2.Open sql,conn,3,3
do while not rs2.EOF
%><a href="dlcp.asp?id=<%=rs2("id")%>" onClick="return pop1(this.href);"><font color="#0066CC"><%=rs2("cpname")%>、</font></a>
<%
rs2.MoveNext
loop
rs2.close
%></td>
</tr>
</table>
<table width="90%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#FF9900"></td>
</tr>
</table>
<br>
<%
PageSize=PageSize-1
rs.MoveNext
loop
rs.Close%>
<%else%>
<table><tr><td>
请选择分类</td></tr></table>
<% end if%>
<br>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" width="202"><font color="#336666">  页次：<font color="#ff0000"><%=pageno%></font>/<font color="#ff0000"><%=pagecount%></font>页
每页<font color="#ff0000">20</font> 记录数<font color="#ff0000"><%=total%></font></font></td>
<%if pagecount>0 then%>
<td height="30" width="100">
<div align="right"><font color="#336666">
<a href="ybdq.asp?pageno=<%=pageno-1%>&zflid=<%=zflid%>">上一页</a> ------------------错误是：
“答复对象 错误 'ASP 0106 : 80020005'

类型不匹配

/xiaoshou/dlxs/ybdq.asp，行0

遇到未处理的数据类型。 <a href="ybdq.asp?pageno=<%=pageno+1%>&zflid=<%=zflid%>">下一页</a>
</font>  </div>
</td>
</tr>
</table>

</div></td>
应该是zflid的问题？

[771122]

程序太长，重新贴，麻烦看看

<%
dim i,zflid(25)，zfl(25)
i=0
set rs=server.CreateObject("adodb.recordset")
sql="select * from dlzfl"
rs.Open sql,conn,3,3
do while not rs.EOF
zflid(i)=rs(0)
zfl(i)=rs(1)
rs.MoveNext
i=i+1
loop
rs.Close
for i=0 to 24 step 2
if zfl(i)="" then exit for %>
<tr>
<td width="53" height="16"><font color="#FFFFFF" onmouseover="style.backgroundColor='#000066'" onMouseOut="style.backgroundColor='#1D4FB4'" align="center"> <a href="ybdq.asp?zflname=<%=zfl(i)%>&zflid=<%=zflid(i)%>"><font color="#FFFFFF"><%=zfl(i)%></font></a></font></td>----------------显示错误

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配

/xiaoshou/dlxs/ybdq.asp，行120



<td width="69" height="16"><font color="#FFFFFF" onmouseover="style.backgroundColor='#000066'" onMouseOut="style.backgroundColor='#1D4FB4'" align="center"><a href="ybdq.asp?zflname=<%=zfl(i+1)%>&zflid=<%=zflid(i+1)%>"><font color="#FFFFFF"><%=zfl(i+1)%></font></a></font></td>
</tr>
<%next%>
</table>
<a href="../xiaoshou.asp"><img src="../imgs/goback.gif" width="160" height="24" border="0"></a></td>
<td width="5" height="579" valign="top">  </td>
<td width="560" valign="top"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<%zflname=request("zflname")
if zflname<>"" then %>
<tr>
<td height="30">
<div align="center"><font color="#FF0000">（一）<%=zflname%></font></div></td>
</tr>
<% end if%>

</table>
<div align="center">
<table width="90%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#FF9900"></td>
</tr>
</table>
<br>
<%
if request("zflid")<>"" then
zflid=request("zflid")
sql="select * from dlfl where dlfl.zflid='"&("zflid")&"'"
rs.Open sql,conn,3,3
total=rs.RecordCount
rs.PageSize=5
pagecount=rs.PageCount
PageSize=rs.PageSize
pageno=cint(request("pageno"))
if pageno<1 then
pageno=1
elseif pageno>pagecount then
pageno=pagecount
end if
if not rs.EOF then
rs.AbsolutePage =pageno
end if
do while not rs.EOF and PageSize>0
%>

[shanhe]

出错处语句中的变量引用失败，可能是一个null值对象

[771122]

我把程序缩到最小了，帮我看看
<%
dim i,zfl(25),zflid(25)
i=0
set rs=server.CreateObject("adodb.recordset")
sql="select * from dlzfl"
rs.Open sql,conn,3,3
do while not rs.EOF
zfl(i)=rs(1)
zflid(i)=rs(0)
rs.MoveNext
i=i+1
loop
rs.Close
for i=0 to 24 step 2
%>
<%
if request("zflid")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from dlfl where dlfl.zflid='"&request("zflid")&"'"
rs.Open sql,conn,3,3
total=rs.RecordCount
rs.PageSize=5
pagecount=rs.PageCount
PageSize=rs.PageSize
pageno=cint(request("pageno"))
if pageno<1 then
pageno=1
elseif pageno>pagecount then
pageno=pagecount
end if
if not rs.EOF then
rs.AbsolutePage =pageno
end if
do while not rs.EOF and PageSize>0
%>
<%
PageSize=PageSize-1
rs.MoveNext
loop
rs.Close%>
<%else%>
<table><tr><td>
请选择分类</td></tr></table>
<% end if%>
<br>
<table border="0" cellspacing="0" cellpadding="0"><tr>

<%if pagecount>0 then%>
<td height="30" width="100">
<a href="ybdq.asp?pageno=<%=pageno-1%>&zflid=<%=zflid%>">上一页</a> ------错误处
<a href="ybdq.asp?pageno=<%=pageno+1%>&zflid=<%=zflid%>">下一页</a>

</td>


答复对象 错误 'ASP 0106 : 80020005'

类型不匹配

/xiaoshou/dlxs/ybdq.asp，行0

遇到未处理的数据类型。

点上面的错误连接，还会出现下面的错误：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'

[Microsoft][ODBC SQL Server Driver][SQL Server]将 varchar 值 ' <font face=' 转换为数据类型为 int 的列时发生语法错误。

/xiaoshou/dlxs/ybdq.asp，行122

救命

[anita2li]

for i=0 to 24 step 2改成for i=0 to rs.recordcount step 2试试
可能你的记录集不够25笔﹐那之后的zfl(i)就为NULL了

[771122]

还是错误？！

[dicklee1214]

request("pageno")的值有问题，里面不是数字！它的值从何处取得，能保证是数字吗？

[771122]

验证了，不是pageno的问题，是zflid的问题？？？