这个简单啊，把ID保存到session里去，所有调用ID的地方都调用session就行了
session("id")=rs("id")

调用的时候
sql="select wenzhangid,plname,plriqi,plneirong,plid from xinqingyizhanpl where wenzhangid="&session("id")

我一会研究一下呵呵 刚刚接触有点菜~ 谢谢版主的帮助喽

我把这句话加进去了还是不行啊 提示同样的错误 也就是说没起作用啊 您看一下是不是我的用法不对。
<%
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()
%>
<%
session("id")=rsX("ID")
%>
<%
set rsXpl=server.createobject("adodb.recordset")
sql="select wenzhangid,plname,plriqi,plneirong,plid from xinqingyizhanpl where wenzhangid="&session("ID")
rsXpl.open sql,connXpl,1,1
if rsXpl.eof or rsxpl.bof then
response.write("暂无")
response.end()
end if
%>

其实只是一个思路的问题.不用把他想的很复杂.

对于文章页面想取到评论的ID的话..你何不妨让点击评论时带上参数ID的值.

这样文章页面也一样得到了评论链接传来的文章ID...

对于点击率的话你可以控制是否是由文章页面链接来的.

用上request.serverVariables("HTTP_REFERER")

实在还有问题你看下我很早前写的一个简单的文章网站..看下是不是你想要的效果

www.

好我试一试。
我是一个初学者，能够得到大家的耐心指导真是很庆幸  谢谢大家

文章代码：
<%
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
session("id")=rsX("ID")
%>
<%
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=" & session("id")
rsXpl.open sql,connXpl,1,1
if rsXpl.eof or rsxpl.bof then
response.write("暂无")
response.end()
end if
%>