<%
Sub ListCategory( conn )
Set rs = conn.Execute( "Category" )
While Not rs.EOF
%>
<A HREF=buy.asp?ProductID=<%=rs("Product_ID")%>&Description=<%=Server.URLEncode(rs("Description"))%>><%=rs("Description")%></A>　
<%
rs.MoveNext
Wend
End Sub

Sub PutToShopBag( ProductID, ProductList )
'先判断ProductList中是否有值
If Len(ProductList) = 0 Then
'如果还没有值则直接将ProductID(代表相应的产品编号)添加进去
ProductList = "'" & ProductID & "'"
'否则，判断ProductID是否已在产品列表变量ProductList中存在
ElseIf InStr( ProductList, ProductID ) <= 0 Then
'如果不在在则将ProductID添加进去
ProductList = ProductList & ", '" & ProductID & "'"
End If
End Sub
%>


我在变看书边做购物车，书上有个<!--#include file="util.asp"-->，但没相关代码 ，我就在网上找了个。。 但有的地方看不懂。。。。
谁能给我解释下
<%
Sub ListCategory( conn )
Set rs = conn.Execute( "Category" )
While Not rs.EOF
%>
<A HREF=buy.asp?ProductID=<%=rs("Product_ID")%>&Description=<%=Server.URLEncode(rs("Description"))%>><%=rs("Description")%></A>　 主要是这些 小弟 先谢谢了

找你书上所说的util.asp

你找来的这个暂时还没看出和前面的代码有关系

书上没有那个页面的代码 就说了下那个页面的功能是完成将选购商品的id添加进商品列表串

谁能给我说说下面的代码是什么意思！~ 谢谢啊
<%
Sub ListCategory( conn )
Set rs = conn.Execute( "Category" )
While Not rs.EOF
%>
<A HREF=buy.asp?ProductID=<%=rs("Product_ID")%>&Description=<%=Server.URLEncode(rs("Description"))%>><%=rs("Description")%></A>

[此贴子已经被作者于2007-8-18 21:23:43编辑过]

While没有Wend
结构不完整不能给你讲
万一后面还有东西讲错了还要被骂

<%
Sub ListCategory( conn )
Set rs = conn.Execute( "Category" )
While Not rs.EOF
%>
<A HREF=buy.asp?ProductID=<%=rs("Product_ID")%>&Description=<%=Server.URLEncode(rs("Description"))%>><%=rs("Description")%></A>

按照这段程序来看。。。感觉不太对劲。。。 Sub ListCategory( conn ) 的conn 参数应该传递 SQL操作语句才对。。
即。。Set rs = conn.Execute( conn ),干吗还传递数据库连接的conn ？？如果包含了Conn.asp文件后直接就可以用了撒。。。

他这个是个处理过程，不用直接调用Conn.asp文件，因为他的Conn.asp文件里可能有许多都使用调用过程的，如果直接调用Conn.asp文件，可能有的页面会有冲突，所以就采用他这样的处理过程针对性调用就不会出问题了

是了。。。。他的连接数据库肯定也用的函数调用的。。。。但是。。。Set rs = conn.Execute( "Category" )
有这样执行的麽？？？请注意。。。他现在执行的只是一个"Category"字符串。。。。而不是Category 函数。。。

有这个不奇怪啊，打开他的conn.asp文件里，肯定能看到一段对应的Category调用处理代码

如果是要调用Category函数的话应该是Set rs = conn.Execute( Category )撒。。。

那就要看conn.asp里是怎么写的了