ASP“操作必须使用一个可更新的查询”问题!
错误提示:
Microsoft VBScript 编译器错误 错误 '800a03f6 '
缺少 'End '
/iisHelp/common/500-100.asp,行242
Microsoft JET Database Engine 错误 '80004005 '
操作必须使用一个可更新的查询。
/housefree/house/liuchen_detail.asp,行16
liuchen_detail.asp内容:
<!--#include file= "../inc/conn.asp "-->
<!--#include file= "../inc/getPartStrAndBytesLen.asp " -->
<!--#include file= "../inc/onlinecount.asp "-->
<!--#include file= "../top.asp "-->
<%OpenDataConn
newsid=RtnReplaceInt(trim(request( "newsid ")),0)
set rs=server.createobject( "adodb.recordset ")
sql= "select * from news where newsid= "&newsid& " "
rs.open sql,conn,1,1
if rs.eof then
response.write "找不到该信息,该信息已能已被删除! "
response.end
end if
if not rs.eof then
title=rs( "topic ")
conn.execute "update news set hit=hit+1 where newsid= "&newsid& " "
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN ">
<HTML> <HEAD> <TITLE> <%=title%> - <%=homepage_title%> </TITLE>
<META http-equiv=Content-Type content= "text/html; charset=gb2312 ">
<LINK
href= "../img/css.css " type=text/css rel=stylesheet>
<META content= "MSHTML 6.00.3790.2706 " name=GENERATOR> </HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg4.gif border=0>
<TBODY>
<TR>
<TD align=right width=35>
<IMG height=13 src= "../img/headarrow.gif "
width=17> </TD>
<TD align=middle width=10> </TD>
<TD class=TD_Place width=935> 您现在的位置: <a href= "../index.asp "> <font color= "#FFFFFF "> <%=homepage_title%> </font> </a> >>
<a href= "liuchen.asp "> <font color= "#FFFFFF "> 购房指南 </font> </a> >> </font> <FONT color=#ffffff> 购房须知 </TD> </TR> </TBODY> </TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg5.gif border=0>
<TBODY>
<TR>
<TD> </TD> </TR> </TBODY> </TABLE>
<div align= "center ">
<TABLE height=980 cellSpacing=0 cellPadding=0 width=970 border=0> <