<% dim id:id=trim(request.querystring("id")) if not(isnumeric(id)) then id=0 if not(isnumeric(id)) then call format_redirect("article.asp") response.end end if %> <% dim username,topic,word,tim,counter,cname,sname,power,userp,emoney,author,keyes sql="select jk_class.c_name,jk_sort.s_name,article.* from jk_class,jk_sort,article where jk_class.c_id=article.c_id and jk_sort.s_id=article.s_id and article.hidden=1 and article.id="&id set rs=conn.execute(sql) if rs.eof and rs.bof then rs.close:set rs=nothing:close_conn call format_redirect("article.asp") response.end end if cid=rs("c_id") sid=rs("s_id") username=rs("username") cname=rs("c_name") sname=rs("s_name") topic=rs("topic") if rs("ishtml")=0 then word=code_jk(rs("word")) else word=rs("word") end if tim=rs("tim") counter=rs("counter") power=rs("power") emoney=rs("emoney") author=rs("author") keyes=rs("keyes") rs.close tit=cname&"（"&sname&"）" call web_head(0,0,2,0,0) call emoney_notes(power,emoney,n_sort,id,"js",0,1,"article_list.asp?c_id="&cid&"&s_id="&sid,p_name) sql="update article set counter=counter+1 where id="&id conn.execute(sql) ';------------------------------------left---------------------------------- call font_word_js() %>

<% response.write topic %>

<%response.write time_type(tim,33)&" 作者："&author&" "&web_var(web_config,1)%> <%call font_word_action()%> 本文已被浏览 <%response.write counter%> 次

<%call font_word_type(word)%>

发布人：<%response.write format_user_view(username,1,1)%> <%response.write put_type("article")%> <% sql="select id,topic from article where hidden=1 and id="&id-1 set rs=conn.execute(sql) if rs.eof and rs.bof then topic="没有找到相关文章" else topic=""&code_html(rs(1),1,30)&"" end if rs.close response.write "上篇文章："&topic&" " sql="select id,topic from article where hidden=1 and id="&id+1 set rs=conn.execute(sql) if rs.eof and rs.bof then topic="没有找到相关文章" else topic=""&code_html(rs(1),1,30)&"" end if rs.close response.write "下篇文章："&topic %>

<% call article_view_about() %>

<% call article_sea() %>

<% call article_view_review() ';---------------------------------center end------------------------------- call web_end(0) %>

这是浏览文章的啊,可是它老是跳回前一页啊,请高手指点啊,

就没有人帮我一下的啊

***** 版主模式 ***** 该贴子是管理员从网页设计转移过来的！

程序可够乱的了，看起来真累。加点注释吧，这样能节省点帮你分析的人的时间。
把你所出的问题再说得详细点，必要的时候加上点图吧。OK不？

dim id:id=trim(request.querystring("id")).U
if not(isnumeric(id)) then id=0&#35;
if not(isnumeric(id)) thenYn}r+
call format_redirect("article.asp")8,
response.end5)
end if>
====================================
这一段在作怪，这是校验是否有ID，并且ID不为零的时候才显示出相关的程序，但你处理过来应该为零（我想应该是没有设置好），所以又返回文章页面

看了头痛..有这么复杂么?