📄

📁 我的图书管理系统
💻
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<% 

NewURL= "0; URL="
 
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta HTTP-EQUIV="REFRESH" CONTENT="<% =NewURL %>">
<title>借还图书 欢迎使用欣科软件</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body background="Bkg35.jpg">

<p><img src="snowmana.gif" height="50"><font size="6" color="#ff0000">日常业务</font> 
<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="14" height="14">
  <param name="AllowAddnew" value="true">
  <param name="AllowDelete" value="true">
  <param name="AllowUpdate" value="true">
  <param name="allowarrows" value="true">
</object>
<object id="RDS2" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="14" height="14">
  <param name="AllowAddnew" value="true">
  <param name="AllowDelete" value="true">
  <param name="AllowUpdate" value="true">
  <param name="allowarrows" value="true">
</object>
</p>

<hr color="#ff0000">
<div align="center"><center>

<table border="1" cellpadding="5" width="388" height="282">
  <tr>
    <td width="202" align="left" height="40"><font color="#0000FF">借书证号:</font><input
    type="text" name="jszh" size="12" style="font-size: 18"></td>
  </tr>
  <tr>
    <td width="202" align="left" height="41"><font color="#0000FF">类&nbsp;&nbsp;&nbsp; 别</font>:<input
    type="text" name="fllb" size="10" style="font-size: 18"></td>
  </tr>
  <tr>
    <td width="202" align="left" height="41"><font color="#0000FF">主 序 号</font>:<input
    type="text" name="jxh" size="10" style="font-size: 18"></td>
  </tr>
  <tr>
    <td width="202" align="left" height="41"><font color="#0000FF">次 序 号</font>:<input
    type="text" name="cxh" size="10" style="font-size: 18" value="0">&nbsp; </td>
  </tr>
  <tr>
    <td width="202" align="left" height="41"><font color="#0000FF">限借天数</font>:<input
    type="text" name="xjts" value="0" size="10" style="font-size: 18"></td>
  </tr>
  <tr>
    <td width="202" align="left" height="41"><font color="#0000FF">续借天数</font>:<input
    type="text" name="sjts" value="0" size="10" style="font-size: 18"></td>
  </tr>
  <tr>
    <td width="202" align="left" height="41"><input type="button" id="js" value="借书"
    name="js" onclick="js_click()" style="font-family: 楷体_GB2312; font-size: 15"><input
    type="button" id="hs" value="还书" onclick="hs_click()" name="hs"
    style="font-family: 楷体_GB2312; font-size: 15"><input type="button" id="xj"
    value="续借" name="xj" onclick="xj_click()"
    style="font-family: 楷体_GB2312; font-size: 15"><input type="reset" id="b2"
    value="刷新" name="B2" onclick="b2_click()"
    style="font-family: 楷体_GB2312; font-size: 15"></td>
  </tr>
  <script language="vbscript">


    RDS1.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"

    RDS1.Connect = "database=school;uid=sa;pwd=;dsn=school"
    
	RDS2.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"

    RDS2.Connect = "database=school;uid=sa;pwd=;dsn=school"
    sure.disabled=true
    hs_1.disabled=true
    xj_1.disabled=true

    
</script>
<script LANGUAGE="VBSCRIPT">

 ' dim bh,jsbs
  
  sub js_click()
   
   if jszh.value="" or len(trim(jszh.value))=0 or fllb.value="" or len(trim(fllb.value))=0 or jxh.value="" or len(trim(fllb.value))=0 then

      msgbox "借书证号,分类编号,主序号不能为空!"
	  EXIT SUB
   else
      
   rds1.sql="SELECT 编号,借书本数 FROM tjsz WHERE  借书证号= '"&trim(jszh.value)&"' "

   rds1.executeoptions=1

   rds1.refresh

   if rds1.recordset.recordcount>0 then
        
     bh=rds1.recordset.Fields(0).Value
    
	 jsbs=rds1.recordset.fields(1).value
    
   else
    
	 msgbox "借书证输入错误,请重新输入!"

	 exit sub
    
   end if


   rds1.sql="SELECT * FROM Tbj WHERE  编号 = '"&trim(bh)&"' and 限借图书数>'"&trim(jsbs)&"' " 

   rds1.executeoptions=1

   rds1.refresh

   if rds1.recordset.recordcount<=0 then


      msgbox  "借书超出限借图书数,不能再借!"

	  exit sub
      
   end if


   rds1.sql="SELECT 姓名 FROM Tdjts WHERE  借书证号= '"&trim(jszh.value)&"' "
   
   rds1.executeoptions=1

   rds1.refresh

   if rds1.recordset.recordcount>0 then
     
     name=rds1.recordset.Fields(0).Value
  
   else

     msgbox  "此借书证号没有登记借书、请重新输入!"
     exit sub

   end if


 rds1.sql="SELECT 书名,作者 FROM Ttsml WHERE 分类编号 = '"&trim(fllb.value)&"' AND 主序号='"&trim(JXH.value)&"' AND 次序号='"&trim(CXH.value)&"' and 类别编号='"&trim(<%=session("lbbh")%>)&"'"

 rds1.executeoptions=1
 rds1.refresh

if rds1.recordset.recordcount>0 then

  sm=rds1.recordset.fields(0).value
  zz=rds1.recordset.fields(1).value
  xh=trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
  
  else

  msgbox "没有找至此图书,请重新输入!"
  exit sub

end if


rds2.sql="SELECT 图片 FROM TJSZ WHERE  借书证号 = '"&trim(jszh.value)&"' "

rds2.executeoptions=1
rds2.refresh

TP=RdS2.recordset.FIELDS(0).VALUE

jszh_1.value=jszh.value
fllb_1.value=fllb.value
xm_1.value=name
sh_1.value=xh
sm_1.value=sm
if isnull(zz)=true then

   zz_1.value =""
else
   zz_1.value=zz
end if
js.disabled=true
hs.disabled=true
xj.disabled=true
b2.disabled=true
hs_1.disabled=true
xj_1.disabled=true

sure.disabled=false


end if

end sub

sub hs_click()
  if jszh.value="" or len(trim(jszh.value))=0 or fllb.value="" or len(trim(fllb.value))=0 or jxh.value="" or len(trim(fllb.value))=0 then

      msgbox "借书证号,分类编号,主序号不能为空!"
	  EXIT SUB
   else
   
   
   rds1.sql="SELECT * FROM Tjsdj WHERE  借书证号= '"&trim(jszh.value)&"' "
   
   rds1.executeoptions=1

   rds1.refresh

   if rds1.recordset.recordcount>0 then


     rds1.sql="SELECT 姓名 FROM Tjsz WHERE  借书证号= '"&trim(jszh.value)&"' "
   
     rds1.executeoptions=1

     rds1.refresh

     if rds1.recordset.recordcount>0 then
     
      name=rds1.recordset.Fields(0).Value
  
     else

       msgbox  "此借书证号没有登记借书、请重新输入!"
       exit sub

     end if

   else

     msgbox "借书证号输入错误!此人没有借书!"
	 exit sub
  

  end if

  rds1.sql="SELECT 书名,作者 FROM Ttsml WHERE 分类编号 = '"&trim(fllb.value)&"' AND 主序号='"&trim(JXH.value)&"' AND 次序号='"&trim(CXH.value)&"'and 类别编号='"&trim(<%=session("lbbh")%>)&"' "

  rds1.executeoptions=1
  rds1.refresh

  if rds1.recordset.recordcount>0 then

    sm=rds1.recordset.fields(0).value
    zz=rds1.recordset.fields(1).value
    xh=trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
  
   else

    msgbox "没有找至此图书,请重新输入!"
   
   exit sub

  end if


  rds2.sql="SELECT 图片 FROM TJSZ WHERE  借书证号 = '"&trim(jszh.value)&"' "

  rds2.executeoptions=1
  rds2.refresh

  TP=RdS2.recordset.FIELDS(0).VALUE

  jszh_1.value=jszh.value
  fllb_1.value=fllb.value
  xm_1.value=name
  sh_1.value=xh
  sm_1.value=sm
  if isnull(zz)=true then
  
    zz_1.value = ""
   else
    zz_1.value=zz
  end if  

 js.disabled=true
 hs.disabled=true
 xj.disabled=true
 b2.disabled=true
 hs_1.disabled=false
 xj_1.disabled=true

  sure.disabled=true


end if


end sub


'借书

 SUB SURE_CLICK()

   RDS1.SQL="INSERT INTO TJSDJ(分类编号,主序号,次序号,借书证号,借出日期,限借天数) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&trim(XJTS.value)&"')"
   RDS1.EXECUTEOPTIONS=1
   RDS1.REFRESH



   IF ERR.NUMBER=0 THEN

    RDS1.SQL="INSERT INTO Tjsjl(分类编号,主序号,次序号,借书证号,借出日期,限借天数) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&trim(XJTS)&"')"
    RDS1.EXECUTEOPTIONS=1
    RDS1.REFRESH

    rds1.sql="update ttsml set 库存数量=库存数量-1 where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh

	rds1.sql="update tjsz set 借书本数=借书本数+1 where 借书证号='"&trim(jszh.value)&"'"
    
	rds1.executeoptions=1

	rds1.refresh

	rds1.sql="delete from tdjts where 借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh


	MSGBOX "此书成功借出!"

	js.disabled=false
	hs.disabled=false
	xj.disabled=false
	b2.disabled=false
    sure.disabled=true
    hs_1.disabled=true
    xj_1.disabled=true

	
   end if


 END SUB


'还书

 sub hs_1_click()
   
   RDS1.SQL="delete from TJSDJ    where  借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
   RDS1.EXECUTEOPTIONS=1
   RDS1.REFRESH

   IF ERR.NUMBER=0 THEN

    rds1.sql="update ttsml set 库存数量=库存数量+1 where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh

	rds1.sql="update tjsjl set 还书日期=getdate() where  借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh

	MSGBOX "还书成功!"

   js.disabled=false
   hs.disabled=false
   xj.disabled=false
    b2.disabled=false
    sure.disabled=true
    hs_1.disabled=true
    xj_1.disabled=true

   	
   end if

 end sub

sub xj_click()
  
  if jszh.value="" or len(trim(jszh.value))=0 or fllb.value="" or len(trim(fllb.value))=0 or jxh.value="" or len(trim(fllb.value))=0  then

      msgbox "借书证号,分类编号,主序号不能为空!"
	  EXIT SUB
   else

      rds1.sql="SELECT * FROM Tjsdj WHERE  借书证号= '"&trim(jszh.value)&"' "
   
      rds1.executeoptions=1

      rds1.refresh

      if rds1.recordset.recordcount>0 then
         
       rds1.sql="SELECT 姓名 FROM Tjsz WHERE  借书证号= '"&trim(jszh.value)&"' "
   
       rds1.executeoptions=1

       rds1.refresh

       if rds1.recordset.recordcount>0 then
     
          name=rds1.recordset.Fields(0).Value
  
       else

          msgbox  "此借书证号没有登记借书、请重新输入!"

       exit sub

      end if
    else

       msgbox "此人没有借书,不能进行续借!"
	   exit sub

   end if
	
	 rds1.sql="SELECT 书名,作者 FROM Ttsml WHERE 分类编号 = '"&trim(fllb.value)&"' AND 主序号='"&trim(JXH.value)&"' AND 次序号='"&trim(CXH.value)&"'and 类别编号='"&trim(<%=session("lbbh")%>)&"' "

     rds1.executeoptions=1

     rds1.refresh

    if rds1.recordset.recordcount>0 then

       sm=rds1.recordset.fields(0).value
       zz=rds1.recordset.fields(1).value
       xh=trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
  
    else

      msgbox "没有找至此图书,请重新输入!"
    exit sub

    end if


    rds2.sql="SELECT 图片 FROM TJSZ WHERE  借书证号 = '"&trim(jszh.value)&"' "

    rds2.executeoptions=1
    rds2.refresh

    TP=RdS2.recordset.FIELDS(0).VALUE

    jszh_1.value=jszh.value
    fllb_1.value=fllb.value
    xm_1.value=name
    sh_1.value=xh
    sm_1.value=sm
    if isnull(zz)=true then
    
     zz_1.value=""
     else
      zz_1.value=zz 
   end if
    js.disabled=true
    hs.disabled=true
    xj.disabled=true
    b2.disabled=true
    hs_1.disabled=true
    xj_1.disabled=false

   sure.disabled=true


  end if

 end sub

 sub xj_1_click()

   RDS1.SQL="delete from TJSDJ  where  借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
   RDS1.EXECUTEOPTIONS=1
   RDS1.REFRESH

   IF ERR.NUMBER=0 THEN

   	rds1.sql="update tjsjl set 还书日期=getdate() where  借书证号='"&trim(jszh.value)&"' and  分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
    
	rds1.executeoptions=1

	rds1.refresh
    
	RDS1.SQL="INSERT INTO Tjsdj(分类编号,主序号,次序号,借书证号,借出日期,限借天数) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&trim(sJTS.value)&"')"
    RDS1.EXECUTEOPTIONS=1
    RDS1.REFRESH
	 

    RDS1.SQL="INSERT INTO Tjsjl(分类编号,主序号,次序号,借书证号,借出日期,限借天数) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&trim(sJTS.value)&"')"
    RDS1.EXECUTEOPTIONS=1
    RDS1.REFRESH
	
	MSGBOX "续借图书成功!"

    js.disabled=false
    hs.disabled=false
    xj.disabled=false
    b2.disabled=false
    sure.disabled=true
    hs_1.disabled=true
    xj_1.disabled=true

   	
   end if


end sub

sub b2_click()

 jszh.value=""
 fllb.value=""
 jxh.value=""
 cxh.value="0"
 xjts.value="0"
 sjts.value="0"

end sub

sub cancel_click()

 jszh_1.value=""
 fllb_1.value=""
 xm_1.value=""
 sh_1.value=""
 sm_1.value=""
 zz_1.value=""

  js.disabled=false
  hs.disabled=false
  xj.disabled=false
  b2.disabled=false
  sure.disabled=true
  hs_1.disabled=true
  xj_1.disabled=true

end sub
</script>

</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -