lhb_dengluqx_top.asp

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

<!-- #include file="LHB_System_XuHao.asp"-->
<%
startime=timer()

strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;UID=sa;PWD=;DATABASE=LHB_SXYY" 
Set Louconn = Server.CreateObject("ADODB.Connection")
set Lours=server.createobject("adodb.recordset")
Louconn.open strconn

L_GH = session("LHB_GongHao")

if L_GH <> "" then
sqlGH="select * from LHB_XiTong where L_GongHao = '"& L_GH &"' and L_FenLeiBM = '"&SyStem_DaLei_XuHao&"' and L_XiTongBM = '"& System_XuHao &"' and L_GuangLiQX=1 "
Lours.open sqlGH,Louconn,1,1

if Lours.EOF and Lours.BOF then
Manager_GongHao = "12345678" '代表工号不存在
else
Manager_GongHao = Lours("L_GongHao")
end if
end if

Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing

If Manager_GongHao <> "12345678" Then
%>