欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

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

更新时间: 2014-01-05 01:53:09 责任编辑: Author_N1

 

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

上一篇:******

下一篇:******


怎么实现的 
这是我的网页源代码 ,但是提示错误(红色部分)。
 是哪里出了问题 请高手看看 谢谢
<%
  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>" 

上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:53:09
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2547/
本文WWW.DOC100.NET DOC100.NET版权所有。