实现查看文章阅读次数的问题

alonemu 发布于 2008-10-22 19:45， 972 次点击

如果想实现文章的阅读次数统计该如何添加代码啊我试着添了一下但是不对啊提示：Microsoft JET Database Engine (0x80040E14)
语法错误 (操作符丢失) 在查询表达式 'ID =' 中。
/ME/index.asp, 第 35 行
以下是需要添加此功能的代码：红色部分是我添加的。请高手明示啊！！
<%
set rsX=server.createobject("adodb.recordset")
connX.Execute "Update xinqingyizhan Set hits=hits +1 where id=" & id
dim id
id = trim(request.querystring("id"))
if id<>"" and isnumeric(id)then
  id = clng(id)
else
  response.write("非法访问")
  response.end
end if
sql="select hits,biaoti,ID,neirong,faburiqi,chuchu from xinqingyizhan where id=" & id
rsX.open sql,connX,1,1
%>

[[it] 本帖最后由 alonemu 于 2008-10-22 20:06 编辑 [/it]]

5 回复

cslldu2008-10-22 20:04

没见过

hmhz2008-10-22 20:15

文章阅读次数很简单,原理就是打开文章的时候把读出来的次数+1后再重新录进数据库
比如:

程序代码：

<%
set rsX=server.createobject("adodb.recordset")
rsX.open "select htis from xinqingyizhan where id="&int(curid),connX,1,3
if not(rsX.eof and rsX.bof) then
rsX("htis")=rsX("htis")+1
end if
rsX.close
%>

[[it] 本帖最后由 hmhz 于 2008-10-22 20:25 编辑 [/it]]

alonemu2008-10-22 20:18

呵呵问题解决

[bo][un]alonemu[/un] 在 2008-10-22 19:45 的发言：[/bo]

如果想实现文章的阅读次数统计该如何添加代码啊我试着添了一下但是不对啊提示：Microsoft JET Database Engine (0x80040E14)
语法错误 (操作符丢失) 在查询表达式 'ID =' 中。
/ME/index.asp, 第 35 行
以下是需要 ...

将connX.Execute "Update xinqingyizhan Set hits=hits +1 where id=" & id
改为：ConnX.Execute ("Update xinqingyizhan Set hits=hits+1 Where id="&Request("id"))
即可
呵呵，希望遇到同样问题朋友可以借鉴

multiple19022008-10-22 22:49

[bo][un]alonemu[/un] 在 2008-10-22 20:18 的发言：[/bo]

将connX.Execute "Update xinqingyizhan Set hits=hits +1 where id=" & id
改为：ConnX.Execute ("Update xinqingyizhan Set hits=hits+1 Where id="&Request("id"))
即可
呵呵，希望遇到同样问题朋友可以借鉴

应该说，问题不完全在这里。
你仔细读读你的程序，居然在Dim ID、获取到ID之前使用了ID这个变量。很不规范而且是错误的代码。
至于你这个修改，我想是治标不治本的。

nicechlk2008-10-22 22:58

这样调换位置就对了！
<%
set rsX=server.createobject("adodb.recordset")
dim id
id = trim(request.querystring("id"))
connX.Execute "Update xinqingyizhan Set hits=hits +1 where id=" & id

if id<>"" and isnumeric(id)then
  id = clng(id)
else
  response.write("非法访问")
  response.end
end if
sql="select hits,biaoti,ID,neirong,faburiqi,chuchu from xinqingyizhan where id=" & id
rsX.open sql,connX,1,1
%>