modiy_jkz.asp

这是一个很好的图书管理借阅登记系统,有这爱好的可以下载下来看看,很完整的

<%if session("LHB_MiMa")<>"" then%>
<!--#include file="LHB_head.asp"-->
<!--#include file="LHB_DHT_01.asp"-->
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<tr>
<td><!--#include file="LHB_DHT_02.asp"--></td>
</tr>
</table>
<!-- #include file="LHB_DengLuQX_Top.asp"-->
<br>
<!--#include file="config.asp"-->
<%
id=trim(Request("id"))
sqlcmd = ("select  * from LHB_Office_JKZ where id="&id)			'查询id(ID号)这条记录
Lours.Open sqlcmd,Louconn,1,1

L_JKZ_ID = Lours("id")
L_JKZ_number = Lours("L_number")
L_JKZ_name = Lours("L_name")
L_JKZ_sex = Lours("L_sex")
L_JKZ_year = Lours("L_year")
L_JKZ_type = Lours("L_type")
L_JKZ_end = Lours("L_end")
L_JKZ_HIV= Lours("L_HIV")
L_JKZ_check_year = Lours("L_check_year")
L_JKZ_check_month = Lours("L_check_month")
L_JKZ_check_day = Lours("L_check_day")
L_JKZ_start_year = Lours("L_start_year")
L_JKZ_start_month = Lours("L_start_month")
L_JKZ_start_day = Lours("L_start_day")
L_JKZ_work_name = Lours("L_work_name")
L_JKZ_strFile1 = Lours("strFile1")
L_JKZ_strFile2 = Lours("strFile2")
L_JKZ_BZ = Lours("L_BZ")

Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%> 
<table width="768" border="0" cellspacing="0" cellpadding="0" align="center" class="table4">
<form method="POST" enctype="multipart/form-data" action="update_JKZ.asp?id=<%=id%>">
<tr>
<td height="25" colspan="6" align="center" class="table7">您的位置——修改页面</td>
</tr>
<tr> 
<td height="25" colspan="2" align="right">健康证编号</td>
<td height="25">&nbsp;</td>
<td height="25" colspan="3"><input name="LouHB_number" type="text" class="button1" value="<%=L_JKZ_number%>" size="25"></td>
</tr>
<tr> 
<td height="25" colspan="2" align="right">姓名</td>
<td width="12" height="25">&nbsp;</td>
<td height="25" colspan="3"><input name="LouHB_name" class="button1" value="<%=L_JKZ_name%>" size="25" maxlength="100">            </td>
</tr>
<!--#include file="config.asp"-->
<%
sql="select * from LHB_GongYong where L_FenLeiBM = 1"
Lours.Open sql,Louconn,1,1
%>
<tr> 
<td height="25" colspan="2" align="right">性别</td>
<td width="12" height="25">&nbsp;</td>
<td height="25" colspan="3">
<select name="LouHB_sex" class="button1" type="text">　
<%do while not Lours.eof%>　
<option value="<%=Lours("L_MingChengBM")%>"<%if Lours("L_MingChengBM") = L_JKZ_sex then%>selected<%end if%>><%=Lours("L_MingCheng")%></option>
<%
Lours.movenext
loop

Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%>
</select></td>
</tr>
<tr> 
<td height="25" colspan="2" align="right">年龄</td>
<td width="12" height="25">&nbsp;</td>
<td height="25" colspan="3"><input name="LouHB_year" class="button1" value="<%=L_JKZ_year%>" size="25"></td>
</tr>
<!--#include file="config.asp"-->
<%
sql="select * from LHB_GongYong where L_FenLeiBM = 6"
Lours.Open sql,Louconn,1,1
%>
<tr> 
<td height="25" colspan="2" align="right">工种</td>
<td width="12" height="25">&nbsp;</td>
<td height="25" colspan="3">
<select name="LouHB_type" class="button1" type="text">　　
<%do while not Lours.eof%>　
<option value="<%=Lours("L_MingChengBM")%>" <%if Lours("L_MingChengBM") = L_JKZ_type then%>selected<%end if%>><%=Lours("L_MingCheng")%></option>
<%
Lours.movenext
loop

Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%>
</select></td>
</tr>
<!--#include file="config.asp"-->
<%
sql="select * from LHB_GongYong where L_FenLeiBM = 7"
Lours.Open sql,Louconn,1,1
%>
<tr> 
<td width="251" height="25" align="right">&nbsp;</td>
<td width="79" align="right">体检结果</td>
<td width="12" height="25">&nbsp;</td>
<td height="25" colspan="3">
<select name="LouHB_end" class="button1" type="text">
<option value="">&nbsp;&nbsp;</option>　　
<%do while not Lours.eof%>　
<option value="<%=Lours("L_MingChengBM")%>" <%if Lours("L_MingChengBM") = L_JKZ_end then%>selected<%end if%>><%=Lours("L_MingCheng")%></option>
<%
Lours.movenext
loop

Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%>
</select></td>
</tr>
<!--#include file="config.asp"-->
<%
sql="select * from LHB_GongYong where L_FenLeiBM = 5"
Lours.Open sql,Louconn,1,1
%>
<tr> 
<td width="251" rowspan="4" align="right"><%if L_JKZ_strFile1 <> " " then%><img src="UpLoadFile/<%=L_JKZ_strFile1%>" width="120" height="150">
  <%end if%></td>
<td width="79" height="25" align="right">HIV</td>
<td width="12" height="25">&nbsp;</td>
<td height="25" colspan="3">
<select name="LouHB_HIV" class="button1" type="text">
<%do while not Lours.eof%>　
<option value="<%=Lours("L_MingChengBM")%>" <%if Lours("L_MingChengBM") = L_JKZ_HIV then%>selected<%end if%>><%=Lours("L_MingCheng")%></option>
<%
Lours.movenext
loop

Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%>
</select></td>
</tr>
<tr> 
<td width="79" height="25" align="right">体检日期</td>