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

📄 modifyforeign.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
%>
<%
if Request.Form("Submit")<>""then
id=Request("id")
	f_name=trim(Request.Form("f_name"))
	f_sex=Request.Form("f_sex")
	f_born=trim(Request.Form("f_born"))
	f_nation=trim(Request.Form("f_nation"))
	f_home=trim(Request.Form("f_home"))
        f_level=trim(Request.Form("f_level"))
        f_double=trim(Request.Form("f_double"))
        f_work=trim(Request.Form("f_work"))
        f_id=trim(Request.Form("f_id"))
        f_link=trim(Request.Form("f_link"))
        f_unit=trim(Request.Form("f_unit"))
        
        f_look=trim(Request.Form("f_look"))
        f_comedate=trim(Request.Form("f_comedate"))
        f_roomid=trim(Request.Form("f_roomid"))
	 str="update foreign set f_name='"&f_name&"',f_sex='"&f_sex&"',f_born='"&f_born&"',f_nation='"&f_nation&"',f_home='"&f_home&"',f_level='"&f_level&"',f_double='"&f_double&"',f_work='"&f_work&"',f_id='"&f_id&"',f_link='"&f_link&"',f_unit='"&f_unit&"',f_look='"&f_look&"',f_comedate='"&f_comedate&"',f_roomid='"&f_roomid&"'"&_
		"where id="&id
	    conn.execute str
        Response.write "<font color=red>成功！</font><br>"                              
end if
masid=Request("id")
set rs=Server.CreateObject("ADODB.recordset")
str="select * from foreign where f_masid="&masid
  rs.PageSize=1            '设定rs分页参数,最好在此处设定


    rs.OPEN str,Conn,1,1           '必须用此方式打开记录
 if not rs.EOF then 	
'////////////////////////////////////////////////////////////////////////////////////////////////////	
	page=trim(Request("page"))  '接受分页参数page，
	
	if not isnumeric(page) then page=1 end if               'page不为数字时的处理
	
	if page="" then page=1 end if                           'page为空时的处理
	
	page=cint(page)                                         '转化
	
	if page<1 then page=1 end if                            'page为<1时的处理
	
	if page>rs.PageCount then page=rs.PageCount end if      'page为>总分页数的处理
	
	rs.AbsolutePage=page

  
	id=rs.Fields("f_masid")
	
%>

<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%">
<div align="center">共找到  <%=rs.RecordCount%>　条符合条件的记录</div>
<br>
<%


i=0
do while not rs.eof
i=i+1
if i="2" then exit do
%>  
<form name="form1" method="post" action="modifyforeign.asp?id=<%=masid%>">
  <table width="720" border="1" height="628" 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="f_name" maxlength="6" value=<%=rs.fields("f_name")%>>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="229" height="52"> 
        <div align="right">性别：</div>
      </td>
      <%
  select case rs.fields("f_sex")
                 case "男" 
                      a="checked"
                 case "女" 
                      b="checked"
                
              end select
                       
%>
      <td width="475" height="52"> 
        <div align="center">男：
          <input type="radio" name="f_sex" value="男" <%=a%>>
          　　女：
          <input type="radio" name="f_sex" value="女" <%=b%>>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="229" height="51"> 
        <div align="right">出生年月：</div>
      </td>
      <td width="475" height="51"> 
        <div align="center"> 
          <input type="text" name="f_born" maxlength="20" value=<%=rs.fields("f_born")%>>
        </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="f_nation" maxlength="10" value=<%=rs.fields("f_nation")%>>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="229" height="71"> 
        <div align="right">籍贯：</div>
      </td>
      <td width="475" height="71"> 
        <div align="center"> 
          <textarea name="f_home" ><%=rs.fields("f_home")%></textarea>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="229" height="55"> 
        <div align="right">文化程度：</div>
      </td>
      <td width="475" height="55"> 
        <div align="center"> 
         <%
  select case rs.fields("f_level")
                 case "大学以上" 
                      a="checked"
                 case "专科" 
                      b="checked"
                 case "高中" 
                      c="checked"
                 case "初中" 
                      d="checked"
                 case "小学" 
                      e="checked"
                 case "文盲" 
                      f="checked"
              end select
                       
%>
          <select name="f_level">
            <option value="大学以上" <%=a%>>大学以上</option>
            <option value="专科" <%=b%>>专科</option>
            <option value="高中" <%=c%>>高中</option>
            <option value="初中" <%=d%>>初中</option>
            <option value="小学" <%=e%>>小学</option>
            <option value="文盲" <%=f%>>文盲</option>
          </select>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="229" height="52"> 
        <div align="right">婚姻状况：</div>
      </td>
      <%
if rs.fields("f_name")="已婚" then
%>
      <td width="475" height="52"> 
        <div align="center">已婚：
          <input type="radio" name="f_double" value="已婚" checked>
          　　未婚：
          <input type="radio" name="f_double" value="未婚">
        </div>
      </td>
<%else%>
 <td width="475" height="52"> 
        <div align="center">已婚：
          <input type="radio" name="f_double" value="已婚" >
          　　未婚：
          <input type="radio" name="f_double" value="未婚" checked>
        </div>
      </td>
<%end if%>
    </tr>
    <tr> 
      <td width="229" height="55"> 
        <div align="right">何时来郑州：</div>
      </td>
      <td width="475" height="55"> 
        <div align="center"> 
          <input type="text" name="f_comedate" maxlength="15" value=<%=rs.fields("f_comedate")%>>
        </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="f_work" maxlength="255" value=<%=rs.fields("f_work")%>>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="229" height="56"> 
        <div align="right">身份证号：</div>
      </td>
      <td width="475" height="56"> 
        <div align="center"> 
          <input type="text" name="f_id" maxlength="25" value=<%=rs.fields("f_id")%>>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="229" height="62"> 
        <div align="right">联系方式：</div>
      </td>
      <td width="475" height="62"> 
        <div align="center"> 
          <textarea name="f_link" ><%=rs.fields("f_link")%></textarea>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="229" height="27"> 
        <div align="right">体貌特征：</div>
      </td>
      <td width="475" height="27"> 
        <div align="center"> 
          <textarea name="f_look" ><%=rs.fields("f_look")%></textarea>
        </div>
      </td>
    </tr>
	<tr> 
      <td width="229" height="35"> 
        <div align="right">房间号：</div>
      </td>
      <td width="475" height="35"> 
        <div align="center"> 
          <input type="text" name="f_roomid" value=<%=rs.fields("f_roomid")%>>
        </div>
      </td>
    </tr>
	<tr> 
    <td width="229"> 
        <div align="right">
<input type="submit" name="Submit" value="更改">
        </div>
    </td>
    <td width="475">
        <div align="center"> 
          <input type="reset" name="Submit2" value="重置">
        </div>
      </td>
  </tr>
  </table>
 </form>
       <div align="center"> <a href=delforeign.asp?id=<%=rs.fields("id")%>> 删除此记录</a> </div>
<% 
rs.movenext 
loop 
%> 
<form name="form1" method="post" action="modifyforeign.asp?id=<%=masid%>">
 
  <p align="center">共<font color=#000000> <%=rs.RecordCount%> </font>条&nbsp;|&nbsp;分<font color=#000000> <%=rs.PageCount%> </font>页&nbsp;|&nbsp;第<font color=#000000> <%=page%> </font>个&nbsp;|&nbsp; 
                <a href=modifyforeign.asp?page=<%=page-1%>&id=<%=masid%>>上一个</a>&nbsp;|&nbsp;<a href=modifyforeign.asp?page=<%=page+1%>&id=<%=masid%>>下一个</a>&nbsp;|&nbsp; 
                <a href=modifyforeign.asp?page=1&id=<%=masid%>>首个</a>&nbsp;|&nbsp;<a href=modifyforeign.asp?page=<%=rs.PageCount%>&id=<%=masid%>>末个</a>&nbsp;|&nbsp;跳到: 
                第 
                <input type="text" name="page" maxlength=3 style="width:20;background-color:rgb();">
                个 
                <input type="submit" name="Submit1" value="go" style="width:20;background-color:rgb(100,100,245)">
</form>   
<p>&nbsp;</p>
<p>&nbsp; </p>
<%else%>
暂无！
 <% end if %>
  <% 
 rs.close
set rs=nothing
conn.close
set conn=nothing
   %>
</body>
</html>

⌨️ 快捷键说明

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