test1.asp

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

<!--#include file="conn/db.asp"-->

<style>
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;}

</style>

<script language="text/javascript">
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 = "";
     }
</script>

<div id="reply">
     <table border=0>
         <tbody>
             <tr>
                  <td><a href="#">查看留言</a></td>
                  <td><a href="javascript: scroll(0,1000);">书写留言</a></td>
             </tr>
         </tbody>
     </table>
</div>

<div id="messageboardshow">
<%
   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
%>
			<div id="page">
		        共<%= rs.recordcount %>条留言 每页<%= rs.pagesize %>条 页次:<%=page%>/<%= rs.pagecount %>
			<% If page=1 Then %>
			          首页
			          上页 
			<% else %>
			          <a href="test1.asp?page=1"><strong>首页</strong></a>
                                  <a href="test1.asp?page=<%=(page-1)%>"><strong>上页</strong></a>
			<% end if %>
			<% If page=rs.pagecount Then %>
			          下页
			          尾页 
			<% else %>
			          <a href="test1.asp?page=<%=(page+1)%>"><strong>下页</strong></a>
			          <a href="test1.asp?page=<%=rs.pagecount%>"><strong>尾页</strong></a>
			<% end if %>	
			跳转:
			<select onChange="this.loaction.href='test1.asp?page='+this.value">
			<% for i=1 to rs.pagecount
				p "<option value="""&i&""""
				if page=i then p "selected=""selected"""
				p ">"&i&"</option>"
				next %>
			</select>		
			</div>
<%
   do while not rs.eof and ipage<rs.pagesize
%>   
<div class="title"><span style="float: right">时间: <%=rs("publishtime")%></span>主题: <%=rs("title")%></div>
<ul>
      <li class="name"> 姓名:<%=rs("name")%><br />地区:<%=rs("address")%><br /><img src="image/phone.jpg" width="10pt" height="10pt" title="电话" />:<%=rs("phone")%>&nbsp;&nbsp;&nbsp;<a href='mailto: <%=rs("email")%>'><img src="image/email.jpg" width="10pt" height="10pt" title="email" /></a></li>
      <li><%=rs("content")%></li>
</ul>
<%
  ipage=ipage+1
  rs.movenext
  loop
%>
			<div id="page">
		        共<%= rs.recordcount %>条留言 每页<%= rs.pagesize %>条 页次:<%=page%>/<%= rs.pagecount %>
			<% If page=1 Then %>
			          首页
			          上页 
			<% else %>
			          <a href="test1.asp?page=1"><strong>首页</strong></a>
                                  <a href="test1.asp?page=<%=(page-1)%>"><strong>上页</strong></a>
			<% end if %>
			<% If page=rs.pagecount Then %>
			          下页
			          尾页 
			<% else %>
			          <a href="test1.asp?page=<%=(page+1)%>"><strong>下页</strong></a>
			          <a href="test1.asp?page=<%=rs.pagecount%>"><strong>尾页</strong></a>
			<% end if %>	
			跳转:
			<select onChange="scroll(0,0);getdata('file.asp?action=birdman&page='+this.value,'echomsg','contentdata')">
			<% for i=1 to rs.pagecount
				p "<option value="""&i&""""
				if page=i then p "selected=""selected"""
				p ">"&i&"</option>"
				next %>
			</select>		
			</div>
<%   
  end if
  rs.close
  set rs=nothing   
%>
</div>

<div id="messageboardwrite">
     <h3>书写留言</h3>
     <form name="form1" action="messageboardsava.asp" method="post" style="margin: 0;">
               <table border="0" style="font: 9pt arial;">
                        <tbody> 
                               <tr> <td class="left">姓名:</td> <td><input type="text" id="name" name="name" value="" /><span class="red">*</span></td></tr>
                               <tr> <td class="left">电话:</td> <td><input type="text" id="phone" name="phone" value="" /></td></tr>
                               <tr> <td class="left">地区:</td> <td><input type="text" id="address" name="address" value="" /></td></tr>
                               <tr> <td class="left">Email:</td> <td><input type="text" id="email" name="email" value="" /></td></tr>
                               <tr> <td class="left">主题:</td> <td><input type="text" id="title" name="title" value="" /><span class="red">*</span></td></tr>
                               <tr> <td class="left">内容:</td> <td><textarea id="content" name="content"></textarea><span class="red">*</span></td></tr>
                               <tr> <td class="left"></td><td> <input type="submit" id="submit" value="Submit" onclick="return checkform()" /> <input type="reset" id="reset" value="Reset" /></td></tr>
                        </tbody>
               </table>
     </form>
</div>