我是一个初学这 请您帮忙写一个代码我来参考一下谢谢了！

用select case action

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

来区分文章和评论.

请您把您的代码套到我的代码里吧，谢谢您了 我真不知道该怎么改，给一个学习的机会吧 理解万岁~~~

这个我不太会用，请您讲解一下，谢谢！

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

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

这种写法其实和if判断是一样的
if action="article" then
   ……
end if
if action="comments" then
    ……
end if
只是没有if灵活，select写法有个局限性，就是值的判断只能是单一的，if可以组合判断
例如
if action="article" and action="comments" then
    ……
end if
或者
if action="article" or action="comments" then
    ……
end if
或者
if action="article" then
    ……
elseif action="comments" then
    ……
end if

<%
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
%>
那您说我该怎么吧您写的那些穿插在我的这段代码里呢？这对我来说太乱了 晕晕呼呼的，如从下手啊~~
呵呵 谢谢写一下呗。

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

应该怎么判断呢？怎么能将文章显示和评论显示的代码用if联系起来呢？

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

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

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

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


我就是想让文章提交评论后可以正常显示提交的评论与文章。现在直接看文章没问题，但是提交评论后就提示得不到ID