producttypelist.asp

网上购物源代码

<%
' ================================================= 
'过程名：ShowManufacturer
'作  用：显示商家名称列表（无修饰）
'参  数：无
' ================================================= 
Sub ShowManufacturer()
	dim strSQL, strTemp, rsObj, i
	Response.Write "<table width = '100%' border = '0' cellspacing = '0' cellpadding = '0' ID = 'Table3'>"
	strSQL = "SELECT * FROM ProductType WHERE SuperID = 0"
	i = 0
	set rsObj = conn.Execute(strSQL)
	do while not (rsObj.eof or err)
		Response.Write "<tr><td height  =  23>"
		Response.Write "<img src =images/cha1.gif>"
		Response.Write "<a href = Product.asp?producttype=" & rsObj("ID") & ">  " & rsObj("Name") & "</a>"
		Response.Write "</td></tr>"
		i = i+1
		if i>100 then exit do
		rsObj.MoveNext
	loop 
	'关闭集合，但不能关闭连接，因为其他地方可能要用
	Set rsObj = Nothing
	
	Response.Write "</table>"
end sub
%>