首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > vbScript >

关于实现查看网页上一篇 下一篇效果的有关问题

2012-02-03 
关于实现查看网页上一篇 下一篇效果的问题在文章系统中,在浏览文章的时候总能看到下部一个上一篇:******下

关于实现查看网页上一篇 下一篇效果的问题
在文章系统中,在浏览文章的时候总能看到下部一个

上一篇:******

下一篇:******


怎么实现的 
这是我的网页源代码 ,但是提示错误(红色部分)。
 是哪里出了问题 请高手看看 谢谢
<%
  dim sql
  dim rs
  dim rstype
  dim typesql
  dim typeid,typename,classname,classid,Nclassname,Nclassid,tem
  dim title
set rs=server.createobject("adodb.recordset")
sql="update product set hits=hits+1 where productID="&request("id")
rs.open sql,conn,1,3 
  sql="select Aclass.class,ANclass.Nclass,product.title,product.classid,product.Nclassid from product,Aclass,ANclass where product.classid=Aclass.classid and product.Nclassid=ANclass.Nclassid and xs=1 and product.productID="&request("id")
 rs.open sql,conn,1,1
 if not rs.eof then
title=rs("title")
classid=rs("classid")
Nclassid=rs("Nclassid")
classname=rs("class")
Nclassname=rs("Nclass")
 end if
rs.close
%>


<% 
set rs=server.createobject("adodb.recordset") 
sql="select top 1 product * id from product where nclassid<"&nclassID&" order by id desc" 
set rs=conn.execute(sql)
if rs.eof then 
response.write "上一篇文章:没有了"
else 
response.write "上一篇文章: <a href=textview.asp?id="&rs("productid")">"&rs("title")&"</a>" 
end if
sql="select top 1 product * id from product where nclassID>"&nclassID&" order by id" 
set rs=conn.execute(sql)
if rs.eof then 
response.write "下一篇文章:没有了" 
else
response.write "下一篇文章:<a href=textview.asp?id="&rs("productid")">"&rs("title")&"</a>" 
end if
%>

[解决办法]
response.write "上一篇文章: <a href=textview.asp?id="&rs("productid")&">"&rs("title")&" </a>" 

热点排行