add_guanglifw.asp

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

<%if session("LHB_MiMa")<>"" then%>
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<center><br>
<table align="center" class="table4" width="768">
<tr>
<td><!-- #include file="LHB_DHT_02.asp"--></td>
</tr>
</table>
<!-- #include file="LHB_GuangLiQX_Top.asp"-->
<!-- #include file="config.asp"-->
<%
L_System_DaLei_XuHao =Request("LouHB_System_DaLei_XuHao")
L_GongHao = Request("LouHB_GongHao")
%>
<table width="768" align="center">
<tr>
  <td align="right"><a href="Add_GuangLiFW.asp?LouHB_System_DaLei_XuHao=20&LouHB_GongHao=<%=L_GongHao%>">添加ＷＥＢ网站模块管理权限</a></td>
  <td align="right">&nbsp;</td>
  <td height="30"><a href="Add_GuangLiFW.asp?LouHB_System_DaLei_XuHao=3&LouHB_GongHao=<%=L_GongHao%>">添加Office模块管理权限</a></td>
</tr>
</table>
<%If L_System_DaLei_XuHao <>"" Then%>
<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<form name="form1" method="post" action="Add_GuangLiFW_new.asp">
<tr>
<td width="298" align="right">工　号：</td>
<td width="468" height="30">
<input name="LouHB_GongHao" type="text" class="button1" size="20" value="<%=L_GongHao%>" readonly></td>
</tr>
<tr>
<td align="right">系统名称：</td>
<td height="30">
<%
SqlXT="select * from LHB_GongYong where L_FenLeiBM = '"&L_System_DaLei_XuHao&"'"
Lours.Open SqlXT,Louconn,1,1

if Lours.EOF and Lours.BOF then
response.write("数据库中尚未添加系统功能模块")
else
%>
<select name="LouHB_XiTongBM" type="text" id="LouHB_XiTongBM" size=1 class="button1">
<%do while not Lours.eof%>
<option value="<%=Lours("L_MingChengBM")%>">—<%=Lours("L_MingCheng")%>—</option>
<%
Lours.movenext
loop

Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%>
</select>
<%end if%></td>
</tr>

<tr>
<td align="right">管理权限：</td>
<td height="30">
<select name="LouHB_GuangLiQX" type="text" size=1 class="button1">
<option value="1">允许管理</option>
<option value="2">不允许管理</option>
</select></td>
</tr>
<tr>
<td align="center"><input name="LouHB_System_DaLei_XuHao" type="Text" class="button1" value="<%=L_System_DaLei_XuHao%>" style="visibility:hidden"></td>
<td height="30"><input name="Submit" type="submit" class="button1" value="添　加"></td>
</tr>
</form>
</table>
<%End IF%>
<br>
<!-- #include file="LHB_GuangLiQX_Down.asp"-->
<!-- #include file="LHB_copy.asp" -->
</center>
<%
else
Response.Redirect "index.asp"
end if
%>