Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
/wangzhan/admin/zhuanjia5/cpzs_list.asp, 第 60 行
代码为:
<!--#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="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD COLSPAN=8> </TD>
</TR>
<TR>
<TD COLSPAN=7 valign="top" background="../../images/left_bg.gif"><table width="509" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<br>
<TABLE cellSpacing=0 cellPadding=3 width="90%" align=center
border=0>
<TBODY>
<TR>
<TD height=25 align="center" valign="middle"><table width="99%" border="0" cellpadding="0" cellspacing="1">
<%
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 height="24" colspan="2"><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 id(),xingming(),zhaopian(),zhicheng(),jianjie(),dizhi()
do while not rs.eof and (i<rs.pagesize)
i=i+1
redim preserve id(i),xingming(i),zhaopian(i),zhicheng(i),jianjie(i),dizhi(i)
id(i)=rs("id")
xingming(i)=rs("xingming")
zhaopian(i)=rs("zhaopian")
zhicheng(i)=rs("zhicheng")
jianjie(i)=rs("jianjie")
dizhi(i)=rs("dizhi")
rs.movenext
loop
end if
rs.close
%>
<tr>
<%for i = 1 to ubound(id)%>
<td width="94%" HEIGHT="140"><div align="center">
<table width="200" height="200" border="1" cellpadding="2" cellspacing="2" bordercolor="#999999">
<tr>
<td><img src="
<%
if trim(zhaopian(i))="" then
response.Write("images/none.jpg")
else
response.Write(trim(zhaopian(i)))
end if
%>
" width="200" height="200" border="0" class="text"></td>
</tr>
</table>
<br>
<br>
</div></td>
<td width="6%" HEIGHT="140"> </td>
</tr>
<tr>
<td HEIGHT="100"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="326" class="text">
<table width="122%" border="0" cellspacing="3" cellpadding="0">
<tr class="text">
<td width="28%">专家姓名：</td>
<td width="72%"><%=xingming(i)%></td>
</tr>
<tr class="text">
<td>专家职称:</td>
<td><%=zhicheng(i)%></td>
</tr>
<tr class="text">
<td>联系地址:</td>
<td><%=dizhi(i)%></td>
</tr>
<tr class="text">
<td valign="top">专家简介:</td>
<td><%
if len(jianjie(i))>200 then
response.Write(left(jianjie(i),200) & "......")
else
response.Write(trim(jianjie(i)))
end if
%></td>
</tr>
</table></td>
</tr>
</table></td>
<%a=a+1%>
<%if a>2 then %>
<td HEIGHT="100"> </td>
</tr>
<tr>
<%a=0%>
<%end if%>
<%next%>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<p> </p></TD>
<TD valign="top" background="../../images/bg_right.gif"> </TD>
</TR>
<TR>
<TD><IMG SRC="../../images/spacer.gif" WIDTH=79 HEIGHT=1 ALT=""></TD>
<TD><IMG SRC="../../images/spacer.gif" WIDTH=86 HEIGHT=1 ALT=""></TD>
<TD><IMG SRC="../../images/spacer.gif" WIDTH=81 HEIGHT=1 ALT=""></TD>
<TD><IMG SRC="../../images/spacer.gif" WIDTH=87 HEIGHT=1 ALT=""></TD>
<TD><IMG SRC="../../images/spacer.gif" WIDTH=84 HEIGHT=1 ALT=""></TD>
<TD><IMG SRC="../../images/spacer.gif" WIDTH=82 HEIGHT=1 ALT=""></TD>
<TD><IMG SRC="../../images/spacer.gif" WIDTH=10 HEIGHT=1 ALT=""></TD>
<TD><IMG SRC="../../images/spacer.gif" WIDTH=271 HEIGHT=1 ALT=""></TD>
</TR>
</TABLE>
</td>
</tr>
</table></td>
</tr>
</table>
