index.asp

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

<%if session("LHB_MiMa")<>"" then%>
<!--#include file="LHB_head.asp"-->
<script language="JavaScript" src="css/page.js"></script>
<script language="JavaScript" src="css/delete.js"></script>
<script language="Javascript" src="css/select.js"></script>
<!--#include file="LHB_DHT_01.asp"-->
<table width="768" height="25" align="center" cellpadding="0" cellspacing="0" class="table4">
<tr>
<td width="100" height="25" align="center"><!--#include file="LHB_DHT_02.asp"--></td>
</tr>
</table>
<!-- #include file="LHB_DengLuQX_Top.asp"-->
<br>
<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign='top'>
<!--#include file="config.asp"--> 
<% 
page = CLng(request("page"))							'利用CLng函数把page值转换为Long型
judge=request("judge")
judge2=request("judge2")
judge3=0
sqlcmd="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 Order By a.id desc"
Lours.Open sqlcmd,Louconn,1,1

if Lours.EOF and Lours.BOF then
response.write("<center>数据库中尚无数据！</center>")
else
%>
<form method="POST" id=form1 name=form1>
<table width="768" border='0'  align="center" cellpadding='0' cellspacing='0' class='table4'>
<tr> 
<td width="20" height="20" align=center class='table7'>删</td>
<td width="100" height="20" align=center class='table7'>健康证编号</td>
<td width="51" height="20" align=center class='table7'>姓名</td>
<td width="101" height="20" align=center class='table7'>照片</td>
<td width="20" height="20" align=center class='table7'>性别</td>
<td width="20" height="20" align=center class='table7'>年龄</td>
<td width="72" height="20" align=center class='table7'>工种</td>
<td width="30" height="20" align=center class='table7'>体检<br>结果</td>
<td width="30" height="20" align=center class='table7'>HIV</td>
<td width="117" height="20" align=center class='table7'>体检日期</td>
<td width="117" height="20" align=center class='table7'>发证日期</td>
<td width="51" height="20" align=center class='table7'>制证人</td>
<td width="41" height="20"  align=center class='table7'>操作</td>
<td width="60" height="20" 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 width="20" height="20" align=center class='table7'><input type="checkbox" name="answer" value="<%=Lours("id")%>" id="Checkbox1" class="button1"></td>
<td width="100" height="20" align=center class='table7'><%=Lours("L_number")%></td>
<td width="51" height="20" align=center class='table7'><%=Lours("L_name")%></td>
<td width="101" height="20" align=center class='table7'><%if Lours("strFile1") <> " " then%><img src="UpLoadFile/<%=Lours("strFile1")%>" width="70" height="84"><%end if%></td>
<td width="20" height="20" align=center class='table7'><%if Lours("L_sex") = 1 then%>男<%else%>女<%end if%></td>
<td width="20" height="20" align=center class='table7'><%=Lours("L_year")%></td>
<td width="72" height="20" align=center class='table7'><%=Lours("L_MingCheng")%></td>
<td width="30" height="20" align=center class='table7'>
<%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 width="30" height="20" align=center class='table7'><%if Lours("L_HIV") = 1 then%>阴性<%else%>阳性<%end if%></td>
<td width="117" height="20" align=center class='table7'><%=Lours("L_check_year")%>年<%=Lours("L_check_month")%>月<%=Lours("L_check_day")%>日</td>
<td width="117" height="20" align=center class='table7'><%=Lours("L_start_year")%>年<%=Lours("L_start_month")%>月<%=Lours("L_start_day")%>日</td>
<td width="51" height="20" align=center class='table7'><%=Lours("L_work_name")%></td>
<td width="41" height="20" align=center class='table7'><br><a href="modiy_JKZ.asp?id=<%=Lours("id")%>">修改</a><br><br><%if Lours("strFile1") <> " " then%><a href="del_photo.asp?id=<%=Lours("id")%>" onClick="return confirm('敬告：您真的要删除该照片吗？');">删除<br>照片</a><%end if%></td>
<td width="60" height="20" align=center class='table7'><a href="LHB_jkz.asp?id=<%=Lours("id")%>" target="_blank">打印</a></td>
</tr>
<%
Lours.MoveNext      
If Lours.EOF Then Exit For   
Next   
%>
<tr> 
<td height="20" align="center"><input type="checkbox" name="chkall" value="on" onClick="checkall(this)" id="Checkbox2" class="button1"></td>
<td height="20" colspan="2">选中所有显示的文件</td>
<td height="20" colspan="4"><input type="button" name="btnDelete" value="删除" class="button1" onClick="del()" id="Button1"></td>
<td height="20" colspan="2">&nbsp;</td>
</tr>
</table>
</form>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="768" class="table4">
<tr> 
<form onSubmit="return test();" method="get" action="index.asp" 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=index.asp?page=1>第一页</a>" 
Response.Write "　<a href=index.asp?page=" & (page - 1) & ">上一页</a>" 
End If
If page <> Lours.PageCount Then 
Response.Write "　<a href=index.asp?page=" & (page + 1) & ">下一页</a>" 
Response.Write "　<a href=index.asp?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">输入健康证编号：</td>
</form>
</tr>
<tr> 
<td height="25" colspan="2">文件总数：<%=Lours.recordCount%>　总页数：<%=Lours.PageCount%>　当前页次：<%=page%> 
</td>
<form action="so_number_out.asp" method="post" name="form3"><td class="white" height="25" ><input name="L_number" type="text" id="L_number" size="15" class="button1"> 
<input type="submit" name="Submit" value="搜索" class="button1"></td></form>
</tr>
</table>      
</td>
</tr>
</table>
<%
Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
end if%>
<!-- #include file="LHB_DengLuQX_Down.asp"-->
<!--#include file="LHB_copy.asp"-->
<%else
Response.Redirect "login.asp"
end if
%>