错误 '80020009' /Qn_newsview.asp，行 39 附上代码

来源：百度知道 编辑：UC知道 时间：2024/07/03 10:13:20
<%
'==读取新闻内容
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 Qn_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

<%
'==读取新闻内容
sub errview(errname,errvalue)
if errvalue="" then
Response.Write("<script>alert('"&errname&"错误!！');document.location.href('default.asp');</script>")
Response.End()
end if
end sub
id=Request.QueryString("id")
if id="" or not isnumeric(id) then
call errview("id",id)
end if

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

if rs.eof then
errvalue=""
call errview("未查到记录",errvalue)
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&quo