简单的企业发布信息网站 有留言功能 界面 美观

				
				
				
				img{ border: 0;}
				
				#content{ width: 400px; height: 150px;}
				
				.red{ color: #f00;}
				
				#messageboardshow ul{ margin: 0 0 10px 0; padding: 0; list-style-type: none; border: 1px solid #333; width: 500px; color: #444; font: 9pt arail;}
				#messageboardshow li{ margin: 0 5px 10px 2px; padding: 5px 0 0 0; float: left; }
				#messageboardshow li.name{ border-right: 1px solid #333; width: 100px;} 
				
				.title{ width: 500px; padding: 2px; margin: 0; color: #fff; background: #333;}
				
				#reply{ margin: 0; font-size: 18px;}
				#reply td{ margin: 0 0 0 1px;}
				#reply td a{ background: #333; text-decoration: none; color: #fff; border: #333 solid 1px;} 
				#reply td a:hover{ background: #fff; color: #333;}
				
				
				
				
				var show = document.getElementById('messageboardshow');
				var write = document.getElementById('messageboardwrite');
				
				function show(){
				          show.style.display = "block";
				          write.style.display = "none";
				     }
				
				function aa(){
				          write.style.display = "";
				     }
				
				
				
				     
				         
				             
				                  查看留言
				                  书写留言
				             
				         
				     
				
				
				
								   page=getpage(request.QueryString("page"))
				   set rs=server.CreateObject("adodb.recordset")
				   rs.pagesize=6
				   sql = "select * from bbs order by id "
				   rs.open sql,conn,3,2 
				   if rs.eof then
				
				         p "当前没有留言信息"
				  
				   else 
				   ipage=0
				   rs.absolutepage=page
				%>
							
						        共条留言 每页条 页次:/
							
							          首页
							          上页 
							
							          首页
				                                  上页
							
							
							          下页
							          尾页 
							
							          下页
							          尾页
								
							跳转:
							
															p "								if page=i then p "selected=""selected"""
								p ">"&i&""
								next %>
									
							
								   do while not rs.eof and ipage				%>   
				时间: 主题: 
				
				       姓名:地区::   
				      
				
								  ipage=ipage+1
				  rs.movenext
				  loop
				%>
							
						        共条留言 每页条 页次:/
							
							          首页
							          上页 
							
							          首页
				                                  上页
							
							
							          下页
							          尾页 
							
							          下页
							          尾页
								
							跳转:
							
															p "								if page=i then p "selected=""selected"""
								p ">"&i&""
								next %>
									
							
								  end if
				  rs.close
				  set rs=nothing   
				%>
				
				
				
				     书写留言
				     
				               
				                         
				                                姓名: *
				                                电话: 
				                                地区: 
				                                Email: 
				                                主题: *
				                                内容: *