shoppingxp为网上商城系统

				
				     
					   
				         
						   				set rs=server.CreateObject("adodb.recordset")
				rs.open "select * from btype order by btype_idorder",conn,1,1
				if rs.recordcount=0 then
					response.write "暂无分类"
				else
					while not rs.eof
				%>
						      
				             
				               				                        src="img/xiao/00_menu_ff.gif" 
				                        width=27>
				               
				               
				             
				               
				             
				           
						    					rs.movenext
					wend
				end if
				rs.close
				set rs=nothing
				%>