📄 modifylodge.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")
l_name=trim(Request.Form("l_name"))
l_sex=Request.Form("l_sex")
l_born=trim(Request.Form("l_born"))
l_nation=trim(Request.Form("l_nation"))
l_home=trim(Request.Form("l_home"))
l_level=trim(Request.Form("l_level"))
l_double=trim(Request.Form("l_double"))
l_work=trim(Request.Form("l_work"))
l_comedate=trim(Request.Form("l_comedate"))
l_id=trim(Request.Form("l_id"))
l_link=trim(Request.Form("l_link"))
l_look=trim(Request.Form("l_look"))
l_unit=trim(Request.Form("l_unit"))
l_roomid=trim(Request.Form("l_roomid"))
l_relation=trim(Request.Form("l_relation"))
str="update lodge set l_name='"&l_name&"',l_sex='"&l_sex&"',l_born='"&l_born&"',l_nation='"&l_nation&"',l_home='"&l_home&"',l_level='"&l_level&"',l_double='"&l_double&"',l_work='"&l_work&"',l_id='"&l_id&"',l_link='"&l_link&"',l_unit='"&l_unit&"',l_look='"&l_look&"',l_comedate='"&l_comedate&"',l_roomid='"&l_roomid&"',l_relation='"&l_relation&"'"&_
"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 lodge where l_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("l_masid")
%>
<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%">
<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="modifylodge.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="l_name" maxlength="6" value=<%=rs.fields("l_name")%>>
</div>
</td>
</tr>
<tr>
<td width="229" height="52">
<div align="right">性别：</div>
</td>
<%
select case rs.fields("l_sex")
case "男"
a="checked"
case "女"
b="checked"
end select
%>
<td width="475" height="52">
<div align="center">男：
<input type="radio" name="l_sex" value="男" <%=a%>>
女：
<input type="radio" name="l_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="l_born" maxlength="20" value=<%=rs.fields("l_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="l_nation" maxlength="10" value=<%=rs.fields("l_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="l_home" ><%=rs.fields("l_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("l_level")
case "大学以上"
a="checked"
case "专科"
b="checked"
case "高中"
c="checked"
case "初中"
d="checked"
case "小学"
e="checked"
case "文盲"
f="checked"
end select
%>
<select name="l_level">
<option value="暂无" <%=a%>>--请选择--</option>
<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("l_name")="已婚" then
%>
<td width="475" height="52">
<div align="center">已婚：
<input type="radio" name="l_double" value="已婚" checked>
未婚：
<input type="radio" name="l_double" value="未婚">
</div>
</td>
<%else%>
<td width="475" height="52">
<div align="center">已婚：
<input type="radio" name="l_double" value="已婚" >
未婚：
<input type="radio" name="l_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="l_comedate" maxlength="15" value=<%=rs.fields("l_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="l_work" maxlength="255" value=<%=rs.fields("l_work")%>>
</div>
</td>
</tr>
<tr>
<tr>
<td width="229" height="55">
<div align="right">工作单位：</div>
</td>
<td width="475" height="55">
<div align="center">
<input type="text" name="l_unit" maxlength="255" value=<%=rs.fields("l_unit")%>>
</div>
</td>
</tr>
<td width="229" height="56">
<div align="right">身份证号：</div>
</td>
<td width="475" height="56">
<div align="center">
<input type="text" name="l_id" maxlength="25" value=<%=rs.fields("l_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="l_link" ><%=rs.fields("l_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="l_look" ><%=rs.fields("l_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="l_roomid" value=<%=rs.fields("l_roomid")%>>
</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="l_relation" value=<%=rs.fields("l_relation")%>>
</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=dellodge.asp?id=<%=rs.fields("id")%>> 删除此记录 </a></div>
<%
rs.movenext
loop
%>
<form name="form1" method="post" action="modifylodge.asp?id=<%=masid%>">
<p align="center">共<font color=#000000> <%=rs.RecordCount%> </font>条 | 分<font color=#000000> <%=rs.PageCount%> </font>页 | 第<font color=#000000> <%=page%> </font>个 |
<a href=modifylodge.asp?page=<%=page-1%>&id=<%=masid%>>上一个</a> | <a href=modifylodge.asp?page=<%=page+1%>&id=<%=masid%>>下一个</a> |
<a href=modifylodge.asp?page=1&id=<%=masid%>>首个</a> | <a href=modifylodge.asp?page=<%=rs.PageCount%>&id=<%=masid%>>末个</a> | 跳到:
第
<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> </p>
<p> </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 + -