add_guanglifw_new.asp

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

<!-- #include file="LHB_GuangLiQX_Top.asp"-->
<!-- #include file="config.asp"-->
<%
L_FenLeiBM = Request("LouHB_System_DaLei_XuHao")
L_GongHao = Request("LouHB_GongHao")
L_XiTongBM = Request("LouHB_XiTongBM")
L_GuangLiQX = Request("LouHB_GuangLiQX")

if session("LHB_Group")<> 1 then
response.write "<script language=JavaScript>" & chr(13) & "alert('添加权限不够，请返回');" & "history.back()" & "</script>" 
Response.End
end if

Lousql="select L_XiTongBM,L_GongHao from LHB_XiTong where L_XiTongBM='"&L_XiTongBM&"' and L_FenLeiBM='"&L_FenLeiBM&"' and L_GongHao = '"&L_GongHao&"'"
set Lours1=Louconn.execute(Lousql)
if not Lours1.eof then
  Lours1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('对不起，管理该系统的工号已经添加，请仔细核对！');" & "history.back()" & "</script>"
  response.End
end if

set saveadmin=Louconn.execute("insert into LHB_XiTong(L_FenLeiBM,L_GongHao,L_XiTongBM,L_GuangLiQX) values('"&L_FenLeiBM&"','"&L_GongHao&"','"&L_XiTongBM&"','"&L_GuangLiQX&"')")
response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜，功能管理员添加成功！');"&"window.location.href = 'LHB_user.asp'"&" </script>" 
set saveadmin=nothing 
%>
<!-- #include file="LHB_GuangLiQX_Down.asp"-->