lhb_guanglifw.asp

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

<%if session("LHB_MiMa")<>"" then%>
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<center>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<tr>
<td><!-- #include file="LHB_DHT_02.asp"--></td>
</tr>
</table>
<br>
<!-- #include file="config.asp"-->
<%
L_GongHao = Request("LouHB_GongHao")
L_ALL = Request("LouHB_ALL")

if L_ALL = 1 then
SQLGLFW="select a.L_FenLeiBM,a.L_GongHao,a.L_XiTongMC,a.L_XiTongBM,a.L_GuangLiQX,b.L_MingCheng,c.LHB_XingMing from (LHB_XiTong a inner join LHB_GongYong b on (a.L_FenLeiBM = b.L_FenLeiBM and a.L_XiTongBM = b.L_MingChengBM)) inner join LHB_USER_DATA c on a.L_GongHao = c.LHB_GongHao"
else
SQLGLFW="select a.L_FenLeiBM,a.L_GongHao,a.L_XiTongMC,a.L_XiTongBM,a.L_GuangLiQX,b.L_MingCheng,c.LHB_XingMing from (LHB_XiTong a inner join LHB_GongYong b on (a.L_FenLeiBM = b.L_FenLeiBM and a.L_XiTongBM = b.L_MingChengBM)) inner join LHB_USER_DATA c on a.L_GongHao = c.LHB_GongHao where a.L_GongHao = '"& L_GongHao &"'"
end if
Lours.open SQLGLFW,Louconn,1,1

if Lours.EOF and Lours.BOF then
response.write("您只是普通用户，不具有任何管理权限！")
else
%>
<table width="768" border="0" cellspacing="0" align="center">
<tr>
<td width="60" align=center class="table4" height="30">工号</td>
<td width="100" align=center class="table4">姓名</td>
<td width="188" align=center class="table4">被管理的系统名称</td>
<td width="60" align=center class="table4">系统序号</td>
<td width="90" align=center class="table4">修改管理权限</td>
<td width="270" align=center class="table4">操作</td>
</tr>
<%do while not Lours.eof%>
<tr>
<td align=center class="table4" height="30"><%=Lours("L_GongHao")%></td>
<td align=center class="table4"><%=Lours("LHB_XingMing")%></td>
<td align=center class="table4"><%=Lours("L_MingCheng")%></td>
<td align=center class="table4"><%=Lours("L_XiTongBM")%></td>
<form method="POST" action="update_GuangLiFW.asp?LouHB_GongHao=<%=Lours("L_GongHao")%>&LouHB_XiTongBM=<%=Lours("L_XiTongBM")%>">
<td align=center class="table4">
<select name="LouHB_GuangLiQX" type="text" id="LouHB_GuangLiQX" size=1 class="button1">
<option value="1" <% if Lours("L_GuangLiQX")="1" then%>selected="selected"<%end if%>>允许管理</option>
<option value="2" <% if Lours("L_GuangLiQX")="2" then%>selected="selected"<%end if%>>不允许管理</option></select>
</td>
<td align=center class="table4">
<%if session("LHB_group") = 1 then%>
<input class="button1" name="modiy" type="submit" value="修改">　　　<a href="Del_GuangLiFW.asp?LouHB_GongHao=<%=Lours("L_GongHao")%>&LouHB_XiTongBM=<%=Lours("L_XiTongBM")%>&LouHB_FenLeiBM=<%=Lours("L_FenLeiBM")%>">删除</a>　　　<a href="Add_GuangLiFW.asp?LouHB_GongHao=<%=Lours("L_GongHao")%>">新增管理范围</a>
<%else
response.write("您只能查看，不能修改！")
end if%>
</td>
</form>
</tr>
<%
Lours.movenext
loop

Lours.Close 
set Lours=nothing
set Louconn=nothing
%>
</table>
<%end if%>
<a href="LHB_user.asp">返回我的桌面</a>
<!-- #include file="LHB_copy.asp"-->
<%
else
Response.Redirect "index.asp"
end if
%>
</center>