《实例精粹ASP》中部分源代码

				
					
						
							手机厂商
							
						
						
							
						
						
							
								
									
										
											
										
									
								
							
						
						
							
						
					
				
				
								' ================================================= 
				'过程名：ShowManufacturer
				'作  用：显示商家名称列表（无修饰）
				'参  数：无
				' ================================================= 
				Sub ShowManufacturer()
					dim strSQL, strTemp, rsObj, i
					
					Response.Write ""
					strSQL = "SELECT * FROM ProductType WHERE SuperID = 0"
					i = 0
					set rsObj = conn.Execute(strSQL)
					do while not (rsObj.eof or err)
						Response.Write ""
						Response.Write ""
						Response.Write "  " & rsObj("Name") & ""
						Response.Write ""
						i = i+1
						if i>100 then exit do
						rsObj.MoveNext
					loop 
					'关闭集合，但不能关闭连接，因为其他地方可能要用
					Set rsObj = Nothing
					
					Response.Write ""
				end sub
				%>