lhb_user.asp

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

<%if session("LHB_MiMa")<>"" then%>
<!-- #include file="LHB_head.asp"-->
<script language="JavaScript" src="css/page.js"></script>
<!-- #include file="LHB_DHT_01.asp"-->
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<tr>
<td align="Center"><!-- #include file="LHB_DHT_02.asp"--></td>
</tr>
</table>
<br>
<!-- #include file="LHB_GuangLiQX_Top.asp"-->
<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<tr>
<td height="25">&nbsp;<a href="add_user.asp">添加职工</a></td>
<td>&nbsp;</td>
<td><a href="manage_XiTong.asp">管理系统（系统设置）</a></td>
</tr>
<tr>
<td colspan="3">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
<!-- #include file="config.asp"-->
<%
Sqlks="select * From LHB_GongYong where L_FenLeiBM = 2"
Lours.Open Sqlks,Louconn,1,1

if Lours.EOF and Lours.BOF then
response.write("请先添加科室")
else
do while not Lours.eof%>
<td height="25" align="center"><a href="LHB_user.asp?LouHB_KeShi=<%=Lours("L_MingChengBM")%>"><%=Lours("L_MingCheng")%></a></td>
<%
Lours.movenext
loop
End If
Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" colspan="3">所属组分为：系统管理员=1，超级管理员=2，管理员=3，一般用户=4，来宾=5</td>
</tr>
<tr>
<td height="25" colspan="3">“系统管理员”拥有最高权限</td>
</tr>
<tr>
<td height="25" colspan="3">“超级管理员”不具有管理用户权限，可以浏览全部院务公开内容(院部工作给人员给予此权限)</td>
</tr>
<tr>
<td height="25" colspan="3">“管理员”用于更新网站中与管理员所在科室相关的内容，浏览权限与“一般用户”相同</td>
</tr>
<tr>
<td height="25" colspan="3">“一般用户”和“来宾”不具任何管理权限，来宾即为非本院职工，不能浏览仅对院内公开的内容</td>
</tr>
<tr>
<td height="25" colspan="3">&nbsp;</td>
</tr>
</table>
<!-- #include file="LHB_GuangLiQX_Down.asp"-->
<br>
<!-- #include file="config.asp"-->
<%
page = CLng(request("page"))							'利用CLng函数把page值转换为Long型
judge=request("judge")
judge2=request("judge2")
judge3=0
L_Group = Session("LHB_Group")
L_XingMing = Request("LouHB_XingMing")
L_KeShi = Request("LouHB_KeShi")

Select Case L_Group
Case 1,2
if L_XingMing <> "" then
sqlad="select a.*,b.L_MingCheng from LHB_USER_DATA a left join LHB_GongYong b on (a.LHB_KeShiBM = b.L_MingChengBM and a.LHB_KeShi_FLBM = b.L_FenLeiBM) where a.LHB_XingMing like '%"&L_XingMing&"%'"
elseif L_KeShi <> "" then
sqlad="select a.*,b.L_MingCheng from LHB_USER_DATA a left join LHB_GongYong b on (a.LHB_KeShiBM = b.L_MingChengBM and a.LHB_KeShi_FLBM = b.L_FenLeiBM) where a.LHB_KeShiBM = '"&L_keShi&"'"
elseif L_XingMing = "" or L_KeShi = "" then
sqlad="select a.*,b.L_MingCheng from LHB_USER_DATA a left join LHB_GongYong b on (a.LHB_KeShiBM = b.L_MingChengBM and a.LHB_KeShi_FLBM = b.L_FenLeiBM) where a.LHB_DengLuQX <> '2' order by a.LHB_GongHao desc"
end if
Case 3,4,5
sqlad="select a.*,b.L_MingCheng from LHB_USER_DATA a left join LHB_GongYong b on (a.LHB_KeShiBM = b.L_MingChengBM and a.LHB_KeShi_FLBM = b.L_FenLeiBM) where LHB_GongHao='"&session("LHB_GongHao")&"'" 
End Select
Lours.open sqlad,Louconn,1,1

if Lours.EOF and Lours.BOF then
response.write("<center>数据库中尚未添加任何用户</center>")
else
%>
<table width="768" border="0" cellspacing="0" align="center">
<tr><form name="form1" method="post" action="LHB_user.asp">
  <td height="30" colspan="8" align=center class="table4"><input name="LouHB_XingMing" type="text" class="button1" size="20">　<input name="Submit" type="submit" class="button1" value="按姓名搜索"></td></form>
</tr>
<tr>
  <td height="30" colspan="8" align=center class="table4">本院职工列表</td>
  </tr>
<tr>
<td width="40" align=center class="table4" height="30">工号</td>
<td width="80" align=center class="table4">姓名</td>
<td width="40" align=center class="table4">性别</td>
<td width="82" align=center class="table4">科室</td>
<td width="82" align=center class="table4">用户组</td>
<td width="82" align=center class="table4">登录权限</td>
<td width="90" align=center class="table4">注销日期</td>
<td width="272" align=center class="table4">操　作　<a href="LHB_GuangLiFW.asp?LouHB_ALL=1">列出所有系统的管理员</a></td>
</tr>
<%
Lours.MoveFirst
Lours.PageSize = 15  '每页显示的条数  
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 align=center class="table4" height="30">
<%if Lours("LHB_GongHao")=session("LHB_GongHao") then%>
<font color=red><%=Lours("LHB_GongHao")%></font>
<%else%>
<%=Lours("LHB_GongHao")%>
<%end if%></td>
<td align=center class="table4"><%=Lours("LHB_XingMing")%></td>
<td align=center class="table4">
<%if Lours("LHB_sex")="1" then
response.Write("男")
elseif Lours("LHB_sex")="2" then
response.Write("女")
else
response.Write("变态，乱改性别！")
end if
%></td>
<td align=center class="table4"><%=Lours("L_MingCheng")%></td>
<td align=center class="table4">
<% if Lours("LHB_group")="1" then
response.write("系统管理员")
elseif Lours("LHB_group")="2" then
response.write("超级管理员")
elseif Lours("LHB_group")="3" then
response.write("管理员")
elseif Lours("LHB_group")="4" then
response.write("一般用户")
else
end if
%></td>
<td align=center class="table4">
<% if Lours("LHB_DengLuQX")="0" then
response.write("允许登录")
elseif Lours("LHB_DengLuQX")="1" then
response.write("不允许登录")
elseif Lours("LHB_DengLuQX")="2" then
response.write("已注销的用户")
end if
%></td>
<td align=center class="table4">
<%If Lours("LHB_ZhuXiao_RiQi")="1900-1-1" Then
response.write("&nbsp;")
Else%>
<%=Lours("LHB_ZhuXiao_RiQi")%>
<%End If%>
</td>
<td align=center class="table4">
<a href="modiy_user.asp?id=<%=Lours("id")%>&<%=Lours("LHB_GongHao")%>&<%=Lours("LHB_XingMing")%>">修改</a>
&nbsp;&nbsp;&nbsp;&nbsp;
<a href="LHB_GuangLiFW.asp?LouHB_GongHao=<%=Lours("LHB_GongHao")%>">查看管理</a>
&nbsp;&nbsp;&nbsp;&nbsp;
<a href="Add_GuangLiFW.asp?LouHB_GongHao=<%=Lours("LHB_GongHao")%>">添加管理</a></td>
</tr>
<%
Lours.MoveNext      
If Lours.EOF Then Exit For   
Next
%>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="768" class="table4">
<form onSubmit="return test();" method="get" action="LHB_user.asp" id=form2 name=form2>
<tr> 
<td width="220" height="25"> 
<%
If page = 1 Then 
Response.Write "第一页　上一页" 
End If
If page <> 1 Then 
Response.Write "<a href=LHB_user.asp?page=1&LouHB_XingMing="& L_XingMing &">第一页</a>" 
Response.Write "　<a href=LHB_user.asp?page=" & (page - 1) & "&LouHB_XingMing="& L_XingMing &">上一页</a>" 
End If
If page <> Lours.PageCount Then 
Response.Write "　<a href=LHB_user.asp?page=" & (page + 1) & "&LouHB_XingMing="& L_XingMing &">下一页</a>" 
Response.Write "　<a href=LHB_user.asp?page=" & Lours.PageCount & "&LouHB_XingMing="& L_XingMing &">最后一页</a>" 
End If 
If page = Lours.PageCount Then 
Response.Write "　下一页　最后一页" 
End If
%></td>
<td height="25" colspan="2">跳转到第 
<%Response.Write "<input type=text size=5 maxlength=4 name=page class=button1><input type=hidden name=judge value=1>"  '显示输入页数框并将page,judge参数传递下去%>
<input type="hidden" name="LouHB_XingMing" value=<%=L_XingMing%>>
页</td>
</tr>
<tr> 
<td height="25" colspan="3">在院职工总数：<%=Lours.recordCount%>　总页数：<%=Lours.PageCount%>　当前页次：<%=page%></td>
</tr>
</form>
</table>
<%end if
Lours.Close 
set Lours=nothing
set Louconn=nothing
%>
<br>
<!-- #include file="LHB_copy.asp"-->
<%
else
Response.Redirect "index.asp"
end if
%>