📄 modifydouble.asp
字号:
<% @language=vbscript%>
<!--#include file="conn.asp"-->
<%
log_name=Request.Cookies("name") '读cookie
if log_name="" then
error_str="你还没登录！"
conn.close
Response.write error_catchh&error_str&error_catcht
Response.End
end if
%>
<%
if Request.Form("Submit")<>""then
id=Request("id")
p_name=trim(Request.Form("p_name"))
p_sex=Request.Form("p_sex")
p_born=trim(Request.Form("p_born"))
p_nation=trim(Request.Form("p_nation"))
p_home=trim(Request.Form("p_home"))
p_level=trim(Request.Form("p_level"))
p_double=trim(Request.Form("p_double"))
p_work=trim(Request.Form("p_work"))
p_id=trim(Request.Form("p_id"))
p_link=trim(Request.Form("p_link"))
p_unit=trim(Request.Form("p_unit"))
str="update partner set p_name='"&p_name&"',p_sex='"&p_sex&"',p_born='"&p_born&"',p_nation='"&p_nation&"',p_home='"&p_home&"',p_level='"&p_level&"',p_double='"&p_double&"',p_work='"&p_work&"',p_id='"&p_id&"',p_link='"&p_link&"',p_unit='"&p_unit&"'"&_
"where p_masid="&id
conn.execute str
Response.write "<font color=red>成功！</font><br>"
end if
masid=Request("id")
str="select * from partner where p_masid="&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="modifydouble.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="p_name" maxlength="6" value=<%=rs.fields("p_name")%>>
</div>
</td>
</tr>
<tr>
<td width="229" height="52">
<div align="right">性别：</div>
</td>
<%
select case rs.fields("p_sex")
case "男"
a="checked"
case "女"
b="checked"
end select
%>
<td width="475" height="52">
<div align="center">男：
<input type="radio" name="p_sex" value="男" <%=a%>>
女：
<input type="radio" name="p_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="p_born" maxlength="20" value=<%=rs.fields("p_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="p_nation" maxlength="10" value=<%=rs.fields("p_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="p_home" ><%=rs.fields("p_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("p_level")
case "大学以上"
a="checked"
case "专科"
b="checked"
case "高中"
c="checked"
case "初中"
d="checked"
case "小学"
e="checked"
case "文盲"
f="checked"
end select
%>
<select name="p_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("p_name")="已婚" then
%>
<td width="475" height="52">
<div align="center">已婚：
<input type="radio" name="p_double" value="已婚" checked>
未婚：
<input type="radio" name="p_double" value="未婚">
</div>
</td>
<%else%>
<td width="475" height="52">
<div align="center">已婚：
<input type="radio" name="p_double" value="已婚" >
未婚：
<input type="radio" name="p_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="p_work" maxlength="255" value=<%=rs.fields("p_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="p_id" maxlength="25" value=<%=rs.fields("p_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="p_link" ><%=rs.fields("p_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="p_unit" ><%=rs.fields("p_unit")%></textarea>
</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=deldouble.asp?id=<%=rs.fields("id")%>> 删除此记录 </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 + -