Microsoft JET Database Engine (0x80040E14)语法错误 (操作符丢失) 在查询表达式 'Id =' 中。
请帮忙看看错在哪里.谢谢了.代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/BBS1.asp" -->
<%
if(request("id") <> "") then Command1__MM_hits = request("id")
%>
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.QueryString("Id") <> "") Then
rs__MMColParam = Request.QueryString("Id")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_BBS1_STRING
rs.Source = "SELECT * FROM 论坛 WHERE Id = " + Replace(rs__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<%
set Command1 = Server.CreateObject(")
Command1.ActiveConnection = MM_BBS1_STRING
= "UPDATE 论坛 SET hits=hits+1 WHERE Id =" + Replace(Command1__MM_hits, "'", "''") + " "
= 1
= 0
Command1.Prepared = true
Command1.Execute()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="right-td1" height="30" align="center">阅读帖子</td>
</tr>
<tr>
<td valign="top" class="right-td2"><br>
<table align="center" class="bbs_tdborder" width="95%" border="1" cellpadding="5" cellspacing="3" bordercolor="#CCCCCC">
<tr>
<td>帖子主题：</td>
</tr>
<tr>
<td align="center" height="86"><table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td class="right-td3" rowspan="2" valign="MIDDLE" align="CENTER" width="12%"><br>
<br>
</td>
<td height="49" valign="TOP" width="88%"> </td>
</tr>
<tr>
<td height="25" align="RIGHT"><hr width="98%" size="1" noshade>
个人签名：</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="55%">发帖时间：</td>
<td align="RIGHT" width="45%">回复此帖 || <a href="addbbs.asp">发表新帖</a> || 修改帖子 || 删除帖子 </td>
</tr>
</table></td>
</tr>
</table>
<p>相关回帖： </p>
<hr align="center" width="730" size="1">
<table align="center" width="95%" border="1" cellpadding="5" cellspacing="3" bordercolor="#CCCCCC">
<tr>
<td width="7%" align="right">标题：</td>
<td width="93%"> </td>
</tr>
<tr>
<td align="right">内容：</td>
<td valign="top"> </td>
</tr>
<tr align="CENTER">
<td colspan="2"><span class="style3"></span> 回复于：</td>
</tr>
</table>
<hr align="center" width="730" size="1" noshade></td>
</tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
