Microsoft VBScript 运行时错误 '800a000d' 怎么解决？哪段错误了？求教高手
Microsoft VBScript 运行时错误 '800a000d' 类型不匹配: 'RtnReplaceInt'
\Sell_list.asp, line 30
----------------------------------------------------------------------------------
<!--// #include file="top.inc"-->
<!-- #include file="NK_SqlIn.Asp"-->
<%
imagewidth=140 '大图的宽度
imageheight=140 '大图的高度
dim sortNum_row '每行显示的分类个数
sortNum_row=8
session("oldUrl")="./"
imagewidth=100 '大图的宽度
imageheight=100 '大图的高度
id=RtnReplaceInt(Request("id"),0)
sql="select * from product where id="&id
set rs=conn.execute (sql)
if not (rs.eof or err) then
'修改点击率+1
sql="update product set hitNum=hitNum+1 where id="&id
conn.execute (sql)
fa_class=rs("fa_class")
carclass=rs("carclass")
s=rs("provice")
ss=rs("provice_shi")
'品牌
sql_you="select * from productSort where ID="&rs("productsort")
set fatherRs_you=conn.execute (sql_you)
if rs("productsort")=fatherrs_you("id") then
pinpai=fatherrs_you("name")
end if%>
<script language=Javascript>
<!--
function onChange(i){
childSort=document.all("child" + i);
//theTd=document.all("td" + i);
if(childSort.style.display=="none"){
// theTd.bgcolor="#ffffff";
childSort.style.display="";}
else{
// theTd.bgcolor="#000000";
childSort.style.display="none";}
}
//-->
</script>
<HTML><HEAD><TITLE><%=s%><%=ss%>,<%=pinpai%><%=carclass%>-<%=webname%>浏览卖车转让信息</TITLE><LINK
href="images/FONT.CSS" type=text/css rel=stylesheet>
<meta name="keywords" content="<%=s%><%=ss%>,<%=pinpai%>,<%=carclass%>,<%=webname%>,<%=keywords%>,汽车,二手车">
<META content="Microsoft FrontPage 6.0" name=GENERATOR></HEAD>
<BODY bottomMargin=0 leftMargin=0 topMargin=0
rightMargin=0 marginheight="0" marginwidth="0">
<div align="center">
<table cellSpacing="0" cellPadding="0" width="98%" align="center" bgColor="#ffffff" border="0" id="table1">
<tr>
<td vAlign="top" align="right" width="8" rowSpan="4">
<img height="8" src="images/blank.gif" width="8"></td>
<td vAlign="top" align="left" width="744" colSpan="2" height="4"></td>
<td vAlign="top" align="middle" width="8" rowSpan="4">
<img height="8" src="images/blank.gif" width="8"></td>
</tr>
<tr>
<td style="background: url('images/top3_4.gif') repeat-y right top" colSpan="2">
<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table2">
<tr>
<td width="355">
<img height="26" src="images/escs_logo_00.gif" width="319"></td>
<td vAlign="bottom" align="right"><font color="#FFFFFF"><%
sql="select * from productSort where fatherID=0"
set fatherRs=conn.execute (sql)
do while not fatherRs.eof
%></font><a href=product.asp?productSort=<%=fatherRs("id")%>><b><font color="#FFFFFF"><%=fatherRs("name")%></font></b></a><font color="#FFFFFF">
<%
fatherRs.moveNext
loop
%> </font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td vAlign="top" align="middle" colSpan="2">
<table cellSpacing="0" cellPadding="0" width="100%" background="images/top3_7.gif" border="0" id="table4">
<tr>
<td width="1%">
<img height="26" src="images/top3_6.gif" width="5"></td>
<td align="middle" width="98%">
<b>
<a href="Sell.asp">车辆分类</a>：
<a href="Sell.asp?leibie=%BD%CE%B3%B5%C0%E0">轿车类</a>
| <a href="Sell.asp?leibie=%BB%F5%B3%B5%C0%E0">货车类</a>
| <a href="Sell.asp?leibie=%BF%CD%B3%B5%C0%E0">客车类</a>
| <a href="Sell.asp?leibie=%D4%BD%D2%B0%B3%B5%C0%E0">越野车类</a>
| <a href="Sell.asp?leibie=%C4%A6%CD%D0%B3%B5%C0%E0">摩托车类</a>
| <a href="Sell.asp?leibie=%B9%A4%B3%CC%BB%FA%D0%B5">工程机械</a> </b> </td>
<td align="right" width="1%">
<img height="26" src="images/top3_9.gif" width="8"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td vAlign="top" align="middle" colSpan="2" height="1"></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" height="5" bgcolor=#ffffff>
<tr>
<TD></TD>
</tr>
</table>
</div>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF"><table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="6%" height="28" bgcolor="#666666" class=matrix><div align="right"><img src="img/point01.gif" width="25" height="25"> </div></td>
<td width="33%" bgcolor="666666" class=matrix><font color="#FFFFFF">详细信息和车主联系方式</font></td>
<td width="61%" bgcolor="666666" class=matrix><p align="right"> <b> <a href="login/index.asp?action=addsell"> <font color="#FFFF00"> 发布卖车信息 </font></a> </b></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<TD height="10"></TD>
</tr>
</table>
<table width="98%" border=0 align="center" cellpadding=0 cellspacing=1 bordercolordark=#ffffff bgcolor="#999999">
<tr>
<td height="25" bgcolor="#FFFFFF">·编号：<a><font color="#333366"><strong><%=right(year(rs("fa_now")),2)%><%=month(rs("fa_now"))%></strong></font></a><strong><font color="#333366"><%=day(rs("fa_now"))%><%=rs("id")%></font></strong></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">·类型：<%=fa_class%></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">·品牌：<a href="sell_list.asp?id=<%=rs("id")%>" title="点击查看具体信息"><b><%=pinpai%></b></a></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">·型号： <a><%=carclass%></a></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">·年限：<%=rs("caryear")%>年<%=rs("carmonth")%>月</td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF"> ·交易地区：省份(<%=s%>)--市区(<%=ss%>)</td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">·颜色： <%=rs("carcolor")%> </td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">·全新价：<%=rs("marketPrice")%>元</td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF"> ·出售价：<font color="#FF0000">
<% if rs("memberprice")="0" then
response.write "<a>价格面议</a>"
else %>
<%=rs("memberPrice")%></font>元
<% end if%>
</td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">·登记时间：<font color="#006600"><%=rs("fa_now")%></font> 点击数：<font color="#ff0000"><%=rs("hitnum")%></font> </td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">·标准配置：<%=rs("bz1")%><%=rs("bz2")%><%=rs("bz3")%><%=rs("bz4")%><%=rs("bz5")%><%=rs("bz6")%><%=rs("bz7")%><%=rs("bz8")%><%=rs("bz9")%><%=rs("bz10")%><%=rs("bz11")%><%=rs("bz12")%><%=rs("bz13")%><%=rs("bz14")%><%=rs("bz15")%><%=rs("bz16")%><%=rs("bz17")%><%=rs("bz18")%><%=rs("bz19")%><%=rs("bz20")%><%=rs("bz21")%></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">·附加配置：<%=rs("introduce")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="14%">·引擎参数：</td>
<td width="38%">排量CC:<%=rs("can1")%></td>
<td width="48%">气门数:<%=rs("can2")%>个</td>
</tr>
<tr>
<td> </td>
<td>最大功率:<%=rs("can3")%>Kw/rpm</td>
<td>最大扭矩:<%=rs("can4")%>nm/rpm</td>
</tr>
<tr>
<td> </td>
<td>燃油系统:<%=rs("can5")%></td>
<td>油
耗 :<%=rs("can6")%>升/百公里</td>
</tr>
<tr>
<td> </td>
<td>最高时速:<%=rs("can7")%>km/h</td>
<td>0-100km/h加速时间:<%=rs("can8")%>秒</td>
</tr>
<tr>
<td>·备注信息：</td>
<td colspan="2"><%=rs("explain")%></td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4" align=center></td>
</tr>
<tr>
<td height="4" align=center><script type="text/javascript"><!--
google_ad_client = "pub-4816409428292584";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
//2007-07-11: other
google_ad_channel = "2933161042";
//-->
</script>
<script type="text/javascript"
src="http://pagead2.
</script></td>
</tr>
</table>
<table width="760" border=0 align="center" cellpadding=0 cellspacing=1 bordercolorlight="#000000" bordercolordark=#ffffff bgcolor="#999999">
<tr>
<td height="25" bgcolor="#FFFFFF" colspan="5"><strong>『
车辆图片』</strong></td>
</tr>
<tr>
<td height="69" bgcolor="#FFFFFF" width="148" align="center"><div align="center">
<table width="140" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="140" height="98" bgcolor="#FFFFFF"><a target="_blank" href="<%=rs("smallImg")%>"><img src="<% if rs("smallImg")="nothing" then response.write "img/car1.gif" else response.write ""&rs("smallImg") end if%>" alt="点击放大查看" width="140" height="98" border="0"></a></td>
</tr>
</table>
</div></td>
<td height="69" bgcolor="#FFFFFF" width="149" align="center"><div align="center">
<table width="140" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="180" height="98" bgcolor="#FFFFFF"><a target="_blank" href="<%=rs("smallImg2")%>"><img src="<% if rs("smallImg2")="nothing" then response.write "img/car1.gif" else response.write ""&rs("smallImg2") end if%>" alt="点击放大查看" width="140" height="98" border="0"></a></td>
</tr>
</table>
</div></td>
<td height="69" bgcolor="#FFFFFF" width="149" align="center"><div align="center">
<table width="140" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="360" height="98" bgcolor="#FFFFFF"><a target="_blank" href="<%=rs("smallImg3")%>"><img src="<% if rs("smallImg3")="nothing" then response.write "img/car1.gif" else response.write ""&rs("smallImg3") end if%>" alt="点击放大查看" width="140" height="98" border="0"></a></td>
</tr>
</table>
</div></td>
<td height="69" bgcolor="#FFFFFF" width="149" align="center"><div align="center">
<table width="140" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="180" height="98" bgcolor="#FFFFFF"><a target="_blank" href="<%=rs("smallImg4")%>"><img src="<% if rs("smallImg4")="nothing" then response.write "img/car1.gif" else response.write ""&rs("smallImg4") end if%>" alt="点击放大查看" width="140" height="98" border="0"></a></td>
</tr>
</table>
</div></td>
<td height="69" bgcolor="#FFFFFF" width="149" align="center"><div align="center">
<table width="140" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="180" height="98" bgcolor="#FFFFFF"><a target="_blank" href="<%=rs("smallImg5")%>"><img src="<% if rs("smallImg5")="nothing" then response.write "img/car1.gif" else response.write ""&rs("smallImg5") end if%>" alt="点击放大查看" width="140" height="98" border="0"></a></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="19" bgcolor="#FFFFFF" width="148" align="center"> 车辆图片</td>
<td height="19" bgcolor="#FFFFFF" width="149" align="center"> 前方视图</td>
<td height="19" bgcolor="#FFFFFF" width="149" align="center"> 汽车横图</td>
<td height="19" bgcolor="#FFFFFF" width="149" align="center"> 车内视图</td>
<td height="19" bgcolor="#FFFFFF" width="149" align="center"> 车箱视图</td>
</tr>
</table>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="98%" border=0 align="center" cellpadding=0 cellspacing=1 bordercolorlight="#000000" bordercolordark=#ffffff bgcolor="#999999">
<tr>
<td height="25" bgcolor="#FFFFFF"><strong>『联系信息』</strong>
<%memberid=rs("memberid")
if memberid<>"" then
set rsd = Server.CreateObject("ADODB.Recordset")
sql = "Select * From zjlm Where sh='1' and memberid = '"&memberid&"'"
rsd.Open sql,Conn,1,1
if not rsd.eof then
%>
<b><a href="showzjlm.asp?id=<%=rsd("id")%>" target=_blank><font color="#FF0000">中介联盟会员 查看公司详细信息</font></a></b>
<%
rsd.close
set rsd=nothing
end if
end if%></td>
</tr>
<tr>
<td height="22" bgcolor="#FFFFFF">·卖主姓名：
<%if rs("sell_name")="0" then
response.write "无"
else
%>
<%=rs("sell_name")%>
<%end if%>
</td>
</tr>
<tr>
<td height="22" bgcolor="#FFFFFF">·联系电话： <%=rs("tel")%> </td>
</tr>
<tr>
<td height="22" bgcolor="#FFFFFF">·联系地址：
<%if rs("addr")="0" then
response.write "<a><s><font color=#996633>用户没有填写联系地址</font></s></a>"
else
%>
<%=rs("addr")%>
<%end if%>
</td>
</tr>
<tr>
<td height="22" bgcolor="#FFFFFF">·E-mail：
<%if rs("email")="0" then
response.write "<a><s><font color=#996633>用户没有填写邮箱地址</font></s></a>"
else
%>
<%=rs("email")%>
<%end if%>
</td>
</tr>
</table>
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td height="25" bgcolor="#FFFFFF"><strong>『给车主留言』</strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><a href="Sell_list.asp?id=<%=rs("id")%>" title="点击查看具体信息"><b> </b></a>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" height="36">
<%
set rs=server.CreateObject ("adodb.recordset")
sql="select top 10 * from ly where newsid='"&id&"' Order By ID Desc"
rs.open sql,conn,1,2
if rs.eof and rs.bof then
response.write "还没有人发表评论"
else
%>
<%do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td width="20%" height="18"><font color="#CC0000">发表人：</font><%=rs("name")%>
<td width="27%" height="22">IP:<%=rs("rip")%>
<td width="53%" height="18">发表时间: <%=rs("date")%>
<tr bgcolor="#efefef">
<td height="22" colspan="3"> <%=rs("nr")%></td>
</tr>
<tr>
<td height="5" colspan="3"></td>
</tr>
<%
i=i+1
if i>=10 then exit do
rs.movenext
loop
i="0"
end if
rs.close
%>
</table></td>
</tr>
<tr>
<td><form name="save" method="post" action="Savereview.asp?newsID=<%=id%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="14%"><div align="center">姓名：</div></td>
<td width="63%"><input name="name" type="text" id="name" size="10">
联系电话：<font color="#FF3300">
<input name="tel" type="text" id="tel" size="17">
<input name="name1" type="hidden" id="name1" value="用户名 ">
</font> </td>
<td width="23%"><a href="rview.asp?id=<%=id%>" target="_blank">更多留言....</a></td>
</tr>
<tr>
<td><div align="center">留言内容：</div></td>
<td colspan="2"><textarea name="nr" cols="50" rows="5" id="textarea"></textarea></td>
</tr>
<tr>
<td> </td>
<td colspan="2"><input type="submit" name="Submit2" value="提交">
<input type="reset" name="Submit2" value="重置">
</td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!-- #include file="foot.inc"--></BODY></HTML><%end if%>
