📄 zhxn_doo.asp

📁 基于ASP的SQL小区物业管理系统课程设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/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>
<script language="javascript">
    function del() {
    var isok=true;
	isok=confirm("确定要删除吗？")
	return isok;
	}
</script>
<link href="cbody.css" rel="stylesheet" type="text/css" />
<link href="nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="sub/mheader.asp"-->
<div id="abody">
   <div id="lbody">
<% 
   owner=trim(Request("owner"))
   sex=trim(Request("sex"))
   identify=trim(Request("identify"))
   owning=trim(Request("owning"))
   room_size=trim(Request("room_size"))
   room_id=trim(Request("room_id"))
   carrydate=trim(Request("carrydate"))
   person=trim(Request("person"))
   jianli=trim(Request("jianli"))
%>
<% 
   sql="select * from room where 1=1"
   if owner<>"" then
     sql=sql&" and owner like '%"&owner&"%'"
	    end if
   if sex<>"" then
	 sql=sql&" and sex like '%"&sex&"%'"
	    end if
   if identify<>"" then
     sql=sql&" and identify like '%"&identify&"%'"
	    end if
   if  owning<>"" then
     sql=sql&" and owning like '%"&owning&"%'"
	    end if
   if room_size<>"" then
     sql=sql&" and room_size like '%&room_size&%'"
	    end if
   if room_id<>"" then
     sql=sql&" and room_id like '%"&room_id&"%'"
	    end if
   if carrydate<>"" then
     sql=sql&" and carrydate like '%"&carrydate&"%'"
        end if
   if person<>""	then
     sql=sql&" and person like '%"&person&"%'"
        end if
   if jianli<>"" then
	 sql=sql&" and jianli like '%"&jianli&"%'" 
	    end if
   set rs=Server.CreateObject("ADODB.RecordSet")
   rs.open sql,conn,1,1
   dim m,readed,cur_page,vari
   vari="zhxn_doo.asp?owner="&owner&"&sex="&sex&"&identify="&identify&"&owning="&owning&"&room_size="&room_size&"&room_id="&room_id&"&carrydate="&carrydate&"&person="&person&"&jianli="&jianli
   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>
  			    <th width="50" class="b1">ID</th>
				<th width="80">姓名</th>
				<th width="140">身份证号</th>
				<th width="110">房间号</th>
				<th width="65">详细查看</th>
			    <th width="48" class="b2">删除</th>
			  </tr>
<% 
   do while (readed<=rs.pagesize) and (not rs.eof) 
%>
			 <tr>
  			    <td class="b1"><%= rs(0) %></td>
			    <td><%= rs(7) %></td>
				<td><%= rs(8) %></td>
				<td><%= rs(1) %></td>
				<td><a href="muser_update.asp?id=<%= rs(0) %>">详细查看</a></td>
			    <td class="b2"><a href="del.asp?id=<%= rs(0) %>&tname=room" onClick="return del()">删除</a></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="sub/cbottom.asp"-->
</body>
</html>
⌨️ 快捷键说明

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