📄 zhxn_do.asp

📁 基于ASP的SQL小区物业管理系统课程设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="sub/rightnav.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>住户管理系统</title>
<link href="cbody.css" rel="stylesheet" type="text/css" />
<link href="nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="mheader.asp"-->
  <div id="abody">
    <div id="lbody">
<% 
   dim jian,keyword
   keyword=Request("keyword")
   jian=Request("s1")
   vari="zhxn_do.asp?s1="&jian&"&keyword="&keyword
   if keyword="关键字" then
   keyword=""
   end if
   sql="select * from room where "&jian&" like '%"&keyword&"%'"
   set rs=Server.CreateObject("ADODB.RecordSet")
   rs.open sql,conn,1,1
   dim m,readed,cur_page
   m=rs.recordcount
   readed=1
   rs.pagesize=5
%>
<%
      if not IsEmpty(Request.QueryString("page")) then 
          cur_page=Cint(Request.QueryString("page"))
	      if cur_page<1 then cur_page=1
	      if cur_page>rs.pagecount then cur_page=rs.pagecount
	  else
	      cur_page=1
	  end if
	  if not rs.eof then
	     rs.AbsolutePage=cur_page
	  else 
	     cur_page=1
	  end if 
%>
		<h5>查询结果:</h5>
			<table class="browser">
			  <tr>
  			    <td width="50">ID</td>
				<td width="100">姓名</td>
				<td width="150">身份证号</td>
				<td width="120">房间号</td>
				<td width="70">详细查看</td>
			  </tr>
<% 
   do while (readed<=rs.pagesize) and (not rs.eof) 
%>
			  <tr>
  			    <td><%= rs(0) %></td>
			    <td><%= rs(7) %></td>
				<td><%= rs(8) %></td>
				<td><%= rs(1) %></td>
				<td>详细查看</td>
			  </tr>
<%
    rs.movenext
	readed=readed+1
	loop
%>
			</table>
   <div id="fanye">
     <p align="center"><a href="<%= vari %>&page=<%=cstr(1)%>">首页</a>---<a href="<%= vari %>&page=<%=cstr(cur_page+1)%>">下一页</a>--<a href="<%= vari %>&page=<%=cstr(cur_page-1)%>">上一页</a>---<a href="<%= vari %>&page=<%=cstr(rs.pagecount)%>">末页</a>---总共<strong><%=rs.pagecount%></strong> 页---页次<%= cstr(cur_page) %>/<%= cstr(rs.pagecount) %>--记录数（<%= m %>）</p>
   </div>
<% 
   rs.close
   set rs=nothing
%>
	</div>
  <div id="rbody">
    <% call rightnav() %>
  </div>
</div>
<!--#include file="cbottom.asp"-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -