报名系统

				
				
				
								'开始删除操作
				if request("del")="true" then
				conn.execute "delete * from Activity where o_id=" & request("id")
				url="newslist.asp?page=" & request("page")
				response.redirect url
				end if
				%>
				
				
				
				OWEN 活动管理系统
				
				
				
				
				
				   
				    
				      
				    
				    
				      
				         
				          活动项目表
				        
				         
				          ID
				          标题
				          日期
				          点击
						  管理
				        
				        				sql="select * from Activity order by o_id desc" 
				Set rs=Server.CreateObject("ADODB.RecordSet") 
				rs.Open sql,conn,1,1 
				do while not rs.eof
				%>
				         
				          
				          
				          
				          
						  修改 
				            删除
				        
				        				rs.movenext
				loop
				rs.close
				set rs=nothing
				%>