一个很好的下载系统原码

								sub articlecat()
				sql="select * from a_cat"
				set rs2=server.createobject("adodb.recordset")
				rs2.open sql,conn,1,1
				%>
				      
				         
				          
				     
				       
				        							do while not rs2.eof
							if request("cat_id")=cstr(rs2("cat_id")) then
							response.write ""&rs2("cat_name")&""
							else
							response.write ""&rs2("cat_name")&""
							end if
							rs2.movenext
							loop
							if rs2.eof and rs2.bof then
							response.write "当前没有分类！"
							end if
							%>
				      
				          
				        
				      
				      
				      
				        
				          
				        
				      
				      
				      
				        
						 
				          
				      文章搜索
				        
				         
				             
				              
				                搜索文章标题
				                搜索文章内容
				              
				              
				              
				              
				              
				            
				        
						
				      
				      
								set rs2=nothing
				end sub%>