
高分求助asp500错误!! 100
我用的是一个源码,其他页面都正常,就打开新闻页面的时候http://127.0.0.1:90/news_view.asp?id=38提示'80020009'\wwwroo...
我用的是一个源码,其他页面都正常,就打开新闻页面的时候http://127.0.0.1:90/news_view.asp?id=38 提示'80020009'
\wwwroot\zm_newsview.asp, line 39
错误!
这是这个文件的源文件
<%
'==读取新闻内容
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
%> 展开
\wwwroot\zm_newsview.asp, line 39
错误!
这是这个文件的源文件
<%
'==读取新闻内容
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
%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询