实用的拍卖源码。适合个人建站学习使用。仅供学习参考

				
				
				
				
				
				--首页---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持
								
				
				
				
				
				
				  
				    
				  
				
				
				  
				  
				    
				      
				        
				          
				          
					
				        
					
				    
				    
				      
				        
				          
				
				
				            
				              
				              
				                
				              
				                 商品分类
				                
				                
				                
				                所有商品 
				                / 即将结束 
				                / 新登商品 
				                / 热点商品
						
				            
				              
				              
				                
						
						
												sqlfl = "SELECT * FROM cat order by catid"    
						set rsfl=server.createobject("adodb.recordset")
						rsfl.open sqlfl,conn,1,1
						if rsfl.eof then 
						response.write "还没有分类呢"
						end if
				dim kk
				kk=0
						    do while not rsfl.eof
						%>
						    
						          
														sqlfl2="select * from catson where catID="&rsfl("catID")
							set rsfl2=server.createobject("adodb.recordset")
						   	rsfl2.open sqlfl2,conn,1,1
							if rsfl2.eof then
							 response.write "还没有分类目录呢！"
							else
						if rsfl2.recordcount							while not rsfl2.eof 
							%>
							
							|							wend
						else
							for i=1 to 4
							%>
							|
														rsfl2.movenext
							next
						end if
							end if
							%>
						    
				
													kk=kk+1
							if kk mod 2=0 then
							response.write""
							end if
						  	rsfl.movenext
							loop
							rsfl.close
							rsfl2.close
						        set rsfl = nothing
						        set rsf2 = nothing
							%>
						  
						       ☆vqqq商店☆