so_type_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"-->
<script language="JavaScript" src="css/page.js"></script>
<!--#include file="config.asp"-->
<%
page = CLng(request("page"))							'利用CLng函数把page值转换为Long型
judge=request("judge")
judge2=request("judge2")
judge3=0

L_type=request("L_type")

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_type = '" & L_type &"' 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>                 
<%
Lours.MoveFirst
Lours.PageSize = 5  '每页显示的条数  
If page < 1 Then page = 1 
If page > Lours.PageCount Then page = Lours.PageCount  
Lours.AbsolutePage = page
For ipage = 1 To Lours.PageSize
%>
<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      
If Lours.EOF Then Exit For   
Next   
%>
</tr>
</table>
<br>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="768" class="table4">
<tr> 
<form onSubmit="return test();" method="post" action="so_type_out.asp?L_type=<%=L_type%>" id=form2 name=form2>
<td width="220" height="25"> 
<%
If page = 1 Then 
Response.Write "第一页　上一页" 
End If
If page <> 1 Then 
Response.Write "<a href=so_type_out.asp?L_type=" & (L_type) & "&page=1>第一页</a>" 
Response.Write "　<a href=so_type_out.asp?L_type=" & (L_type) & "&page=" & (page - 1) & ">上一页</a>" 
End If
If page <> Lours.PageCount Then 
Response.Write "　<a href=so_type_out.asp?L_type=" & (L_type) & "&page=" & (page + 1) & ">下一页</a>" 
Response.Write "　<a href=so_type_out.asp?L_type=" & (L_type) & "&page=" & Lours.PageCount & ">最后一页</a>" 
End If 
If page = Lours.PageCount Then 
Response.Write "　下一页　最后一页" 
End If
%>
</td>
<td width="355" height="25">跳转到第 
<%Response.Write "<input type=text size=5 maxlength=4 name=page class=button1><input type=hidden name=judge value=1>"  '显示输入页数框并将page,judge参数传递下去%>
页</td>
<td width="191">&nbsp;</td>
</form>
</tr>
<tr> 
<td height="25" colspan="2" class="white" >文件总数：<%=Lours.recordCount%>　总页数：<%=Lours.PageCount%>　当前页次：<%=page%> 
</td>
 <td height="25" >&nbsp;</td>
</tr>
</table>
<%
Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
end if
%>
<br>
<!-- #include file="LHB_DengLuQX_Down.asp"-->
<!--#include file="LHB_copy.asp"-->
<%else
Response.Redirect "login.asp"
end if%>