Question

请问一下 我用asp做了一个网站 ，产品是有分类的，点击一个产品后 加一个 上一张 下一张 看同类的产品

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 id from yp_cp1_product where id < "&Cint(request("id"))&" order by id"
rs.Open sql,conn,1,1
if not rs.eof then
%>
<a href="product.asp?id=<%=Rs("id")%>"><strong><img src="images/prev.jpg" width="125" height="25" border="0" /></strong> </a>
<%
Else
%>
<a href="#" title="没有了"><img src="images/prev.jpg" width="125" height="25" border="0" /></a>
<%

end if
rs.close
set rs=nothing
%>
  
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 id from yp_cp1_product where id > "&Cint(request("id"))&" order by id"
rs.Open sql,conn,1,1
if not rs.eof then
%>
<a href="product.asp?id=<%=Rs("id")%>"><strong><img src="images/next.jpg" width="125" height="25" border="0" /></strong></a>
<%
Else
%>
<a href="#" title="没有了"><img src="images/next.jpg" width="125" height="25" border="0" /></a>
<%
end if
rs.close
set rs=nothing
%>
要显示相应类别产品怎么做

Answer 1

Text1.Text <> "664409957650520225587754460" 要使这两个字符串相等，相当于大海捞针，你点第一次的时候，估计要等好久才会退出程序，在程序未完成之前你点了第二次，就会出现错误，而且这个错误极有可能是内存不足，或者是资源不足。
你必需确定第一次程退出了goto这样的一个强制循环才可以去点第二次。不妨在下面的if判断的else分支中加上一个消息框，待到消息框出现之后再去点第二次，这样才不会出现错误。

提示一下：尽管你这个程序看起来不像是死循环，但是基本上算是一个死循环了。最好加一个累计次数，当Goto超过了一定的次数，如果还未完成，程序退出，并提示不满足。这样会更好。

Answer 2

获取到分类ID，根据分类ID输出这个分类下的产品，把已经点击到的产品ID在SQL里面NO掉就可以了。。

Answer 3

sql="select * from yp_cp1_product where id < "&Cint(request("id"))&" And fl='"&Cint(request("fl"))&"' order by id"
fl 是你的同类的产品分类字段名称，Cint(request("fl")) 是传输过来的分类变量。注意单引号！