功能强大的一个b/s工作站

								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%>