代码
<%
'==读取新闻内容
id=Request.QueryString("id")
if id="" or not isnumeric(id) then
Response.Write("<script>alert('访问参数错误！');document.location.href('default.asp');</script>")
Response.End()
end if

sql="select * from zm_news where id="&id
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3

if rs.eof then
Response.Write("<script>alert('参数错误！');document.location.href('default.asp');</script>")
Response.End()
end if
rs("hit")=rs("hit")+1
rs.update
newstitle=rs("title")
newstime=rs("addtime")
newshit=rs("hit")
newsfrom=rs("from")
newsinfo=rs("info")
seo_t=rs("seo_t")
seo_k=rs("seo_k")
seo_d=rs("seo_d")
tid=rs("tid")
ord=rs("ord")
rs.close
set rs=nothing

sql11="select top 1 id,title from zm_news where tid="&tid&" and ord<="&ord&" and id<>"&id&" order by ord asc"
Set ts=conn.execute(sql11)
if not ts.eof then
    snews="上一篇：<a href='?id="&ts(0)&"'>"&ts(1)&"</a>"
else
    snews="上一篇：无"
end if
sql11="Select top 1 id,title from zm_news where tid="&tid&" and ord>="&ord&" and id<>"&id&" and id<>"&ts(0)&" order by ord desc"
Set ts=conn.execute(sql11)
if not ts.eof then

    snews=snews&"<br />下一篇：<a href='?id="&ts(0)&"'>"&ts(1)&"</a>"
else
    snews=snews&"<br />下一篇：无"
end if
%>
红色那一行为出错的39行代码我是在后台添加文章后，回到前台点击文章出错的，奇怪的是，发布的文章有的点击后正常显示。还有一种情况是，现在点击错误，过些时候点击它又正常显示了。研究了好久还是查不出是哪里出错，麻烦各位了，不胜感激！
显示错误页面如下
无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 127.0.0.1 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
(0x80020009)
发生意外。
/ymbbs/dqiye1/zm_newsview.asp, 第 39 行


浏览器类型：
Mozilla/4.0 (Compatible win32 71.70.210.165; MSIE 7.0; Windows NT 5.1; MAXTHON 2.0)

网页：
GET /ymbbs/dqiye1/news_view.asp

时间：
2009年8月23日 星期日, 22:00:39


详细信息：
Microsoft 支持