Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: '2'
/wangzhan/admin/zhuanjia5/cpzs_list.asp, 第 76 行
大家帮帮忙，急死了．．．
红色的代码为第 76 行
谢谢～～
<!--#include file="../inc/conn_other.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/2.css" rel="stylesheet" type="text/css">
<link href="../../css/1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url(../../images/bg1111.gif);
}
-->
</style></head>
<body leftmargin="0" topmargin="0">
<table width="99%" height="683" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<%
id =request.QueryString("id")
set rs=server.createobject("adodb.recordset")
page=request.querystring("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 zhuanjia where id="&id
rs.open sql,conn,1,1
if rs.eof then
%>
<tr>
<td width="982" height="49"><div align="center" class="text"><font color="#FF0000" size="3">暂时没有专家!!!</font></div></td>
</tr>
<%
response.end
else
rs.pagesize=9
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
i=0
dim Product_id(),Product_name(),Product_pic(),Product_brand(),Product_detail(),Product_address()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve Product_id(i),Product_name(i),Product_pic(i),Product_brand(i),Product_detail(i),Product_address(i)
Product_id(i)=rs("id")
Product_name(i)=rs("xingming")
Product_pic(i)=rs("zhaopian")
Product_brand(i)=rs("zhicheng")
Product_detail(i)=rs("jianjie")
Product_address(i)=rs("dizhi")
rs.movenext
loop
end if
rs.close
%>
<tr>
<%for i = 1 to ubound(Product_id)%>
<td HEIGHT="680" valign="top"><div align="center">
<table align="center" width="650" height="400" border="1" cellpadding="2" cellspacing="2" bordercolor="#999999">
<!--DWLayoutTable-->
<tr>
<td width="142" rowspan="4" valign="top">
<img src="
<%
if trim(Product_pic(i))="" then
response.Write("images/none.jpg")
else
response.Write(trim(Product_pic(i)))
end if
next
%>
" width="139" height="180" border="0" class="text"></td>
<td width="104" height="32" align="center" valign="middle">姓 名</td>
<td width="133" valign="top"><%=Product_name(i)%></td>
<td width="89" align="center" valign="middle">职 称</td>
<td width="138" valign="top"><%=Product_brand(i)%></td>
</tr>
<tr>
<td height="31" align="center" valign="middle">性 别</td>
<td valign="top"><!--DWLayoutEmptyCell--> </td>
<td align="center" valign="middle">邮 箱</td>
<td valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="36" align="center" valign="middle">联系方式</td>
<td valign="top"><!--DWLayoutEmptyCell--> </td>
<td align="center" valign="middle">出生日期</td>
<td valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="81" align="center" valign="middle">擅长专业</td>
<td colspan="3" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="42" align="center" valign="middle">联系地址</td>
<td colspan="2" valign="top"><!--DWLayoutEmptyCell--> </td>
<td align="center" valign="middle">邮 编</td>
<td valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr align="center" valign="middle">
<td height="42" colspan="5"> <div align="center">专家简介</div></td>
</tr>
<tr>
<td height="258" colspan="5" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr valign="middle">
<td height="47" colspan="5"><div align="center">学术成果／获得荣誉</div></td>
</tr>
<tr>
<td height="164" colspan="5" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr align="center" valign="middle">
<td height="42" colspan="5"><div align="center">备注</div></td>
</tr>
<tr>
<td height="125" colspan="5" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
<br>
<br>
</div></td>
</tr>
</table>
