⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 findmaster.asp

📁 用asp设计的户籍管理系统
💻 ASP
字号:
<% @language=vbscript%>
<!--#include file="conn.asp"-->
<%
log_name=Request.Cookies("name")                        '读cookie
if log_name="" then
	 error_str="你还没登录!"
	 conn.close
	 Response.write error_str

        Response.End 
end if
Response.Cookies("ser_class")=Request("class")
Response.Cookies("ser_action")=Request("action")
if Request.Form("submit")<>""then
if Request.Form("name")<>"" or Request.Form("masterid")<>"" then
    ser_class=Request.Cookies("ser_class")
    ser_action=Request.Cookies("ser_action")    
	name=trim(Request.Form("name"))
	masterid=trim(Request.Form("masterid"))
   
    if name="" then
    
    str="select  * from master where  m_id='"&masterid&"'"
    
    else
    str="select  * from master where m_name Like '%"&name&"%'"
    end if
    set rs=conn.execute(str)
	if not rs.eof then    'not null
	id=rs.fields("id")     
    if ser_class="master" then
    select case ser_action
       case "add" 
       Response.redirect "adddouble.asp?id="&id
       case "modify"
       Response.redirect "modifymaster.asp?id="&id
       case "delete"
       Response.redirect "deletedouble.asp?id="&id
    end select
	end if
	if ser_class="partner" then
    select case ser_action
       case "add" 
       Response.redirect "adddouble.asp?id="&id
       case "modify"
       Response.redirect "modifydouble.asp?id="&id
       case "delete"
       Response.redirect "deletedouble.asp?id="&id
    end select
	end if
	if ser_class="children" then
    select case ser_action
       case "add" 
       Response.redirect "addchildren.asp?id="&id
       case "modify"
       Response.redirect "modifychildren.asp?id="&id
       case "delete"
       Response.redirect "deletechildren.asp?id="&id
    end select
	end if
	if ser_class="foreign" then
    select case ser_action
       case "add" 
       Response.redirect "addforeign.asp?id="&id
       case "modify"
       Response.redirect "modifyforeign.asp?id="&id
       case "delete"
       Response.redirect "deleteforeign.asp?id="&id
    end select
	end if
	if ser_class="lodge" then
    select case ser_action
       case "add" 
       Response.redirect "addlodge.asp?id="&id
       case "modify"
       Response.redirect "modifylodge.asp?id="&id
       case "delete"
       Response.redirect "deletelodge.asp?id="&id
   end select
   end if
  else
   Response.write "无此记录!"
  end if
else
Response.write "<font color=FF0000>请输入确切的名字或身份证号,此处不允许模糊搜索!!!</font>"
end if
end if
%>

<html>
<head>
<title>户口管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<p>&nbsp;</p>
<hr width="90%">
<div align="center">请输入你要操作对象的户主信息<br>
</div>
<hr width="90%">
<br>
<form name="form1" method="post" action="">
  <table width="720" border="1" height="176" align="center">
    <tr> 
      <td width="229" height="54"> 
        <div align="right">姓名:</div>
      </td>
      <td width="475" height="54"> 
        <div align="center"> 
          <input type="text" name="name" maxlength="6">
        </div>
      </td>
    </tr>
    <tr> 
      <td width="229" height="55"> 
        <div align="right">身份证号:</div>
      </td>
      <td width="475" height="55"> 
        <div align="center"> 
          <input type="text" name="masterid">
        </div>
      </td>
    </tr>
   <tr> 
      <td width="229" height="55"> 
        <div align="right">
          <input type="submit" name="Submit" value="提交">
        </div>
      </td>
      <td width="475" height="55"> 
        <div align="center"> 
          <input type="reset" name="Submit2" value="重置">
        </div>
      </td>
    </tr>
  </table>
 </form>
 
<div align="center"><font color="#FF0000"><b>以上信息只可以输入一个,建议输入身份证号,<p>请输入确切的名字或身份证号,此处不允许模糊搜索!!!</b></font></div>
<p>&nbsp; </p>
</body>
</html>

⌨️ 快捷键说明

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