<%
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>　 主要是这些 小弟 先谢谢了

书上没有那个页面的代码 就说了下那个页面的功能是完成将选购商品的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编辑过]