📄 modifymaster.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")
m_name=trim(Request.Form("m_name"))
m_sex=Request.Form("m_sex")
m_born=trim(Request.Form("m_born"))
m_nation=trim(Request.Form("m_nation"))
m_home=trim(Request.Form("m_home"))
m_level=trim(Request.Form("m_level"))
m_double=trim(Request.Form("m_double"))
m_work=trim(Request.Form("m_work"))
m_id=trim(Request.Form("m_id"))
m_link=trim(Request.Form("m_link"))
m_unit=trim(Request.Form("m_unit"))
m_room=trim(Request.Form("m_room"))
str="update master set m_name='"&m_name&"',m_sex='"&m_sex&"',m_born='"&m_born&"',m_nation='"&m_nation&"',m_home='"&m_home&"',m_level='"&m_level&"',m_double='"&m_double&"',m_work='"&m_work&"',m_id='"&m_id&"',m_link='"&m_link&"',m_unit='"&m_unit&"',m_room='"&m_room&"'"&_
"where ID="&id
conn.execute str
Response.write "<font color=red>成功！</font><br>"
end if
masid=Request("id")
str="select * from master where ID="&masid
set rs=conn.execute(str)
%>
<html>
<head>
<title>户口管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p> </p>
<hr width="90%">
<div align="center">更改此户主信息<br>
</div>
<hr width="90%">
<br>
<%if not rs.eof then%>
<form name="form1" method="post" action="modifymaster.asp?id=<%=masid%>">
<table width="720" border="1" height="725" 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="m_name" maxlength="6" value=<%=rs.fields("m_name")%>>
</div>
</td>
</tr>
<tr>
<td width="229" height="52">
<div align="right">性别：</div>
</td>
<%
select case rs.fields("m_sex")
case "男"
a="checked"
case "女"
b="checked"
end select
%>
<td width="475" height="52">
<div align="center">男：
<input type="radio" name="m_sex" value="男" <%=a%>>
女：
<input type="radio" name="m_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="m_born" maxlength="20" value=<%=rs.fields("m_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="m_nation" maxlength="10" value=<%=rs.fields("m_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="m_home" ><%=rs.fields("m_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("m_level")
case "大学以上"
a="checked"
case "专科"
b="checked"
case "高中"
c="checked"
case "初中"
d="checked"
case "小学"
e="checked"
case "文盲"
f="checked"
end select
%>
<select name="m_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("m_name")="已婚" then
%>
<td width="475" height="52">
<div align="center">已婚：
<input type="radio" name="m_double" value="已婚" checked>
未婚：
<input type="radio" name="m_double" value="未婚">
</div>
</td>
<%else%>
<td width="475" height="52">
<div align="center">已婚：
<input type="radio" name="m_double" value="已婚" >
未婚：
<input type="radio" name="m_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="m_work" maxlength="255" value=<%=rs.fields("m_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="m_id" maxlength="25" value=<%=rs.fields("m_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="m_link" ><%=rs.fields("m_link")%></textarea>
</div>
</td>
</tr>
<tr>
<td width="229" height="72">
<div align="right">工作单位：</div>
</td>
<td width="475" height="72">
<div align="center">
<textarea name="m_unit" ><%=rs.fields("m_unit")%></textarea>
</div>
</td>
</tr>
<tr>
<td width="229">
<div align="right">出租房间数：</div>
</td>
<td width="475">
<div align="center">
<input type="text" name="m_room" value=<%=rs.fields("m_room")%>>
</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=delmaster.asp?id=<%=masid%>> 删除此记录</a> </div>
<%else%>
暂无！
<% end if %>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<p> </p>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -