图书管理系统功能完善,界面美观.这是基于ASP做的一个简单的系统,同大家一起分享.

								'如果用户没有登陆，则终止响应
				if session("admin_name")="" then response.end
				%>
				
				
				
				
								'记录集对象
				set rs=server.createobject("adodb.recordset")
				
				'如果是进行保存操作
				if request("action")="save" then
					'获得用户输入的各字段
					newsclass_id=trim(request("newsclass_id"))
					news_title=trim(request("news_title"))
					news_content=trim(request("news_content"))
				
					'新闻类别、新闻标题、新闻内容都不能为空
					if newsclass_id="" or news_title="" or news_content="" then
						response.write "输入数据不能为空"
						response.write ""
						response.write "返回"
					else
						'处理字符串中的html编码
						news_title=server.htmlencode(news_title)
						news_content=server.htmlencode(news_content)
				
						'对字符串中的html字符进行替换
						news_content=replace(news_content," "," ")
						news_content=replace(news_content,chr(13)&chr(10),"")
				
						sql="select * from news"
						'打开记录集
						rs.open sql,conn,3,3
				
						'向记录集中添加新的记录
						rs.addnew
						rs("news_title")=news_title
						rs("news_content")=news_content
						rs("newsclass_id")=newsclass_id
						rs.update
						rs.close
						response.write "新闻添加完成"
						response.write ""
						response.write "返回"
					end if
				else
				%>
				
				  
				    
				      
				        
				          
				            新闻类型
									'查询新闻分类数据表，获得所有新闻类别
					sql="select * from newsclass"
					'打开数据库
					rs.open sql,conn,3,3
				
					'如果记录集不为空
					if rs.eof then
					else
						'循环将每一个新闻分类加入到下拉列表中
						do while not rs.eof
				%>
					
											rs.movenext
						loop
					end if
				              
					'关闭记录集对象
					rs.close
				%>
				              
				          
				          
				            新闻标题
				          
				          
				            新闻内容
				          
				          
				            
				          
				        
				        
				      
				      　
				  
				
								end if
				
				'释放记录集对象
				set rs=nothing
				
				'关闭数据库连接，释放对象
				conn.close
				set conn=nothing
				%>