so_name_out.asp

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

<%if session("LHB_MiMa")<>"" then%>
<!--#include file="LHB_head.asp"-->
<!--#include file="LHB_DHT_01.asp"-->
<table width="768" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100" height="25" align="center" class=table4><!--#include file="LHB_DHT_02.asp"-->
</td>
</tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25">
<!-- #include file="LHB_DengLuQX_Top.asp"-->
<!--#include file="config.asp"-->
<%
L_name=request("L_name")

if L_name="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('搜索项目不能为空！');" & "history.back()" & "</script>" 
Response.End
end if

sql="select a.*,b.L_MingCheng from LHB_Office_JKZ a inner join LHB_GongYong b ON a.L_type = b.L_MingChengBM where b.L_FenLeiBM = 6 and  a.L_name like '%" & L_name &"%' Order By a.id desc"
Lours.Open sql,Louconn,1,1

if Lours.EOF and  Lours.BOF then
Response.Write "未找到你要查询的资料~~~~~~~~~~"
else
%></td>
</tr>
</table>
<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0" class='table4'>
<tr> 
<td width="51" height="20" align=center class='table8'>姓　名</td>
<td width="92" height="20" align=center class='table8'>照　片</td>
<td width="108" height="20" align=center class='table8'>健康证编号</td>
<td width="20" height="20" align=center class='table8'>性　别</td>
<td width="20" height="20" align=center class='table8'>年　龄</td>
<td width="72" height="20" align=center class='table8'>工　种</td>
<td width="30" height="20" align=center class='table8'>体检<br>结果</td>
<td width="30" height="20" align=center class='table8'>HIV</td>
<td width="107" height="20" align=center class='table8'>体检日期</td>
<td width="107" height="20" align=center class='table8'>发证日期</td>
<td width="51" height="20" align=center class='table8'>制证人</td>
<td width="41" height="20"  align=center class='table8'>操　作</td>
<td height="20" width="60" align=center class='table7'>打　印<br>健康证</td>
</tr>                 
<%
do while not Lours.eof
%>
<tr> 
<td height="20" align=center width="51" class='table8'><%=Lours("L_name")%></td>
<td width="101" height="20" align=center class='table8'><%if Lours("strFile1") <> " " then%><img src="UpLoadFile/<%=Lours("strFile1")%>" width="70" height="84"><%end if%></td>
<td height="20" align=center width="108" class='table8'><%=Lours("L_number")%></td>
<td height="20" align=center width="20" class='table8'><%if Lours("L_sex") = 1 then%>男<%else%>女<%end if%></td>
<td align=center width="20" class='table8'><%=Lours("L_year")%></td>
<td height="20" align=center width="72" class='table8'><%=Lours("L_MingCheng")%></td>
<td height="20" align=center width="30" class='table8'>
<%if Lours("L_end") = 1 then
response.write("合格")
elseif Lours("L_end") = 2 then
response.write("不合格")
elseif Lours("L_end") = 0 then
response.write("&nbsp;")
end if%></td>
<td height="20" align=center width="30" class='table8'><%if Lours("L_HIV") = 1 then%>阴性<%else%>阳性<%end if%></td>
<td height="20" align=center width="107" class='table8'><%=Lours("L_check_year")%>年<%=Lours("L_check_month")%>月<%=Lours("L_check_day")%>日</td>
<td height="20" align=center width="107" class='table8'><%=Lours("L_start_year")%>年<%=Lours("L_start_month")%>月<%=Lours("L_start_day")%>日</td>
<td height="20" align=center width="51" class='table8'><%=Lours("L_work_name")%></td>
<td height="20" align="center" width="41" class='table8'><br><a href="modiy_JKZ.asp?id=<%=Lours("id")%>">修改</a><br><br><a href="delete.asp?id=<%=Lours("id")%>" onClick="return confirm('操作提示：您确实要删除该记录吗？');">删　除<br>健康证</a><br><br><%if Lours("strFile1") <> " " then%><a href="del_photo.asp?id=<%=Lours("id")%>" onClick="return confirm('敬告：您真的要删除该照片吗？');">删　除<br>照　片</a><%end if%></td>
<td height="20" width="60" align=center class='table7'><a href="LHB_JKZ.asp?id=<%=Lours("id")%>" target="_blank">打　印</a></td>         
<%
Lours.movenext
loop
end if
Lours.Close 
set Lours=nothing
set Louconn=nothing
%>
</tr>
</table><br>
<!-- #include file="LHB_DengLuQX_Down.asp"-->
<!--#include file="LHB_copy.asp"-->
<%else
Response.Redirect "login.asp"
end if%>