| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2007 人关注过本帖
标题:文章评论提交后出现了问题
取消只看楼主 加入收藏
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
 问题点数:0 回复次数:13 
文章评论提交后出现了问题
问题描述:
实现文章评论,可以正常将评论提交到数据库,但是无法在显示页显示,提示语法错误 (操作符丢失) 在查询表达式 'id=' 中。应该是没有更新的缘故,另外:评论接收页是单独页面,评论提交,显示与文章显示在同一页面,单独打开文章显示页面没有问题,但是提交评论后无法显示,提示上述问题。

下面评论接收页代码:
<%
set rsXpl=server.createobject("adodb.recordset")
sql="select wenzhangid,plname,plneirong,plriqi from xinqingyizhanpl"
rsXpl.open sql,connXpl,1,3
rsXpl.addnew
plname=request.form("plname")
plneirong=request.form("plneirong")
plriqi=request.form("plriqi")
id=request.form("id")
wzid=request.form("wenzhangid")
rsXpl("plname")=plname
rsXpl("plneirong")=plneirong
rsXpl("wenzhangid")=wzid
rsXpl.update
rsXpl.close
set rsXpl=nothing
connXpl.close
set rsXpl=nothing
%>
文章,评论显示页代码:
<%
Response.Expires = 0
%>
<%
Dim wenzhangid
wenzhangid = Request.QueryString("id")
%>
<%
id = trim(request.querystring("id"))
set rsX=server.createobject("adodb.recordset")
ConnX.Execute ("Update xinqingyizhan Set hits=hits+1 Where id= " & Request("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=" & wenzhangid
rsX.open sql,connX,1,3
rsX.addnew
%>
<%
dim wzid
wzid=rsX("id")
'response.write(rsX("ID"))
'response.end()
%>
<%
set rsXpl=server.createobject("adodb.recordset")
sql="select wenzhangid,plname,plriqi,plneirong,plid from xinqingyizhanpl where wenzhangid=" & ID
rsXpl.open sql,connXpl,1,1
if rsXpl.eof or rsxpl.bof then
response.write("暂无")
response.end()
end if
%>
搜索更多相关主题的帖子: 评论 
2008-11-10 10:13
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
得分:0 
[bo][un]sunfishy[/un] 在 2008-11-10 10:53 的发言:[/bo]

ConnX.Execute ("Update xinqingyizhan Set hits=hits+1 Where id= " & Request("id"))

这句可能有点问题...你看下有没有得到传值..


显示 无法访问
就是这段代码的结果:
if id<>"" and isnumeric(id)then
  id = clng(id)
else
  response.write("非法访问")
  response.end
end if
2008-11-10 11:04
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
得分:0 
我突然想到一个问题
[bo][un]sunfishy[/un] 在 2008-11-10 11:13 的发言:[/bo]

你要验证的ID是从浏览器传值的还是从表单传值的.

ConnX.Execute ("Update xinqingyizhan Set hits=hits+1 Where id= " & Request("id"))
以上这句是否能得到传值.

以下内容如果是从浏览器传值的可以改成

i ...


是不是因为与“文章阅读次数”有关啊,因为文章阅读数 是点击“查看全文”从而hits=hits+1,但是如果提交评论直接跳到文章全文显示这个页面 就与hits=hits+1 冲突了 ,是因为这个吗?
2008-11-10 11:19
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
得分:0 
我改过了 都还是提示同一个错误
[bo][un]sunfishy[/un] 在 2008-11-10 11:13 的发言:[/bo]

你要验证的ID是从浏览器传值的还是从表单传值的.

ConnX.Execute ("Update xinqingyizhan Set hits=hits+1 Where id= " & Request("id"))
以上这句是否能得到传值.

以下内容如果是从浏览器传值的可以改成

i ...

我改过了 都还是提示同一个错误
语法错误 (操作符丢失) 在查询表达式 'id=' 中。
2008-11-10 11:22
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
得分:0 
这位大虾说的比较靠谱
我是一个初学这 请您帮忙写一个代码我来参考一下谢谢了!
2008-11-10 14:49
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
得分:0 
我真的是个初学者 这个太难了
请您把您的代码套到我的代码里吧,谢谢您了 我真不知道该怎么改,给一个学习的机会吧 理解万岁~~~
2008-11-10 20:53
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
得分:0 
这个我不太会用,请您讲解一下
[bo][un]sunfishy[/un] 在 2008-11-10 17:50 的发言:[/bo]

用select case action

case "article"
...
case "comments"
..
end select

来区分文章和评论.

这个我不太会用,请您讲解一下,谢谢!
2008-11-11 13:08
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
得分:0 
该怎么写呢?~
[bo][un]hmhz[/un] 在 2008-11-11 16:08 的发言:[/bo]

select 顾名思义,选择的意思
action 是变量名

action=request("action")  '接收到的值赋值给变量action
select case action
case "article"  ……  '当action变量的值内容等于article时就执行省略位置的代码
 ...

<%
Dim wenzhangid
wenzhangid = Request.QueryString("id")
%>
<%
id = trim(request.querystring("id"))
set rsX=server.createobject("adodb.recordset")
ConnX.Execute "Update xinqingyizhan Set hits=hits+1 Where id= " & Request("id")
if id<>"" and isnumeric(request.form("id"))then
  id = clng(id)
else
  response.write("非法访问")
  response.end
end if
sql="select hits,biaoti,ID,neirong,faburiqi,chuchu from xinqingyizhan where ID=" & wenzhangid
rsX.open sql,connX,1,1
%>
<%
dim wzid
wzid=rsX("id")
'response.write(rsX("ID"))
'response.end()
%>
<%
set rsXpl=server.createobject("adodb.recordset")
sql="select wenzhangid,plname,plriqi,plneirong,plid from xinqingyizhanpl where wenzhangid=" & ID
rsXpl.open sql,connXpl,1,1
if rsXpl.eof or rsxpl.bof then
response.write("暂无")
response.end()
end if
%>
那您说我该怎么吧您写的那些穿插在我的这段代码里呢?这对我来说太乱了 晕晕呼呼的,如从下手啊~~
呵呵 谢谢写一下呗。
2008-11-12 11:20
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
得分:0 
那应该怎么判断呢?
[bo][un]hmhz[/un] 在 2008-11-12 11:23 的发言:[/bo]

从你提供的代码上看,根本不需要使用select
就if判断就可以了


应该怎么判断呢?怎么能将文章显示和评论显示的代码用if联系起来呢?
2008-11-12 11:49
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
得分:0 
版主冤枉啊 有原因的
[bo][un]hmhz[/un] 在 2008-11-12 11:54 的发言:[/bo]

代码的存在是因为你想要什么样的效果,你都没说你想要做什么,叫人怎么回答你


是这样的,我这个页面里存有文章显示与评论显示,现在评论提交与显示没有问题,只是因为点击查看全文的时候转到文章页进行阅读.从而点击率+1
而评论页也是跳到文章页面显示评论..这样自然文章页面的点击率又+1了..

但是文章页面又在前头写了id=request.querystring("id")

所以任何一个页面想链接到文章页面的话都得提供参数id的值.否则将造成文章页面得不到传值就会显示那个问题..


我就是想让文章提交评论后可以正常显示提交的评论与文章。现在直接看文章没问题,但是提交评论后就提示得不到ID
2008-11-12 12:04
快速回复:文章评论提交后出现了问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.013391 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved