[求助]类型不匹配
错误类型：Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
/blog/baojianpin/qiyezs.asp, 第 80 行
标红色为第 80 行
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
background-image:
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE1 {font-size: 12px}
-->
</style>
<style type="text/css">
<!--
.style2 {font-size: 14px}
body,td,th {
color: #333333;
}
a:link {
color: #333333;
text-decoration: none;
}
a:visited {
color: #666666;
text-decoration: none;
}
a:active {
color: #FF3300;
text-decoration: none;
}
a:hover {
text-decoration: none;
color: #3399FF;
}
-->
</style>
</head>
<body>
<div align="center">
<table width="110" height="126" border="1" bordercolor="#6699CC" cellpadding="0" cellspacing="0">
<%
set rs=server.createobject("adodb.recordset")
page=request("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
sql="select * from baojianpin order by date DESC"
rs.open sql,conn,3,1
if rs.eof and rs.bof then
%>
<tr>
<td height="26" colspan="2" valign="middle">
<div align="center"><font color="#FF0000" size="3">没有记录</font></div>
</td>
</tr>
<%
response.end
else
rs.pagesize=5
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
i=0
dim id(),gongsi(),tupian()
while not i<rs.pagesize
i=i+1
redim preserve id(i),gongsi(i),tupian(i)
id(i)=rs("id")
gongsi(i)=rs("gongsi")
tupian(i)=rs("tupian")
rs.movenext
wend
end if
%>
<%for i = 1 to ubound(id-1)%>
<td>
<div align="center">
<img border="0" src="
<%
if trim(tupian(i))="" then
response.Write("images/no.jpg")
else
response.Write(trim(tupian(i)))
end if
%>
" width="110" height="126"><br>
<a href="baojianpinxx.asp?id=<%=rs("id")%>" target="_blank" class="STYLE1">公司名称</a></div>
</td>
<%next%>
</table>
</div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
