📄 -+-ڢ
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<%
Dim l_file,openfile,l_string,l_no
set l_file=CreateObject("Scripting.FileSystemObject")
if l_file.FileExists("c:\winnt\no1.txt") then
else
set openfile=l_file.CreateTextFile("c:\winnt\no1.txt")
end if
' set openfile = l_file.OpenTextFile("c:\windows\no1.txt",1,-2)
' l_string = openfile.readline
' l_no=trim(l_string)
' openfile.Close
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "database=school;uid=sa;pwd=;dsn=school"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT 借书证号,姓名,分类编号,主序号,次序号 FROM tdjts WHERE ip地址 = '"&l_no&"' "
rs.open sql,conn,3
if rs.recordcount>0 then
l_jszh=rs.Fields(0)
l_xm=rs.Fields(1)
l_fl=rs.Fields(2)
l_jxh=rs.Fields(3)
l_cxh=rs.Fields(4)
rs.close
NewURL= "0; URL= 图书借还业务.asp?t_jszh=l_jszh&t_xm=l_xm"
else
rs.close
NewURL= "5; URL=图书借还.asp"
end if
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>
<head>
<meta HTTP-EQUIV="REFRESH" CONTENT="<% =NewURL %>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>借还图书 欢迎使用欣科软件</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body background="../images/Bkg35.jpg">
<p><img src="../images/snowmana.gif" height="50"><font size="6" color="#ff0000">日常业务</font>
</p>
<hr color="#ff0000">
<p>
<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>
<div align="center"><center>
<table border="1" cellpadding="5" width="732" height="282">
<tr>
<td width="546" align="left" height="40"><font color="#0000FF">借书证号:</font><input
type="text" name="jszh" size="12" style="font-size: 18"></td>
<td width="1055" align="left" height="40"><font face="隶书" size="4">借书证号：</font><input
type="text" id="jszh_1" name="jszh_1" size="12" readonly style="font-size: 18"
maxlength="12"></td>
<td width="189" align="left" rowspan="7" valign="top" height="268"><img datasrc="#rds2"
datafld="图片" width="90" height="114" alt="B01.jpg (22162 字节)"></td>
</tr>
<tr>
<td width="546" align="left" height="41"><font color="#0000FF">类 别</font>:<input
type="text" name="fllb" size="10" style="font-size: 18"></td>
<td width="1055" align="left" height="41"><font face="隶书" size="4">类
别：</font><input type="text" id="fllb_1" name="fllb_1" size="10" readonly
style="font-size: 18" maxlength="8"></td>
</tr>
<tr>
<td width="546" align="left" height="41"><font color="#0000FF">主 序 号</font>:<input
type="text" name="jxh" size="10" style="font-size: 18"></td>
<td width="1055" align="left" height="41"><font face="隶书" size="4">姓
名：</font><input type="text" id="xm_1" name="xm_1" size="8" readonly
style="font-size: 18" maxlength="8"></td>
</tr>
<tr>
<td width="546" align="left" height="41"><font color="#0000FF">次 序 号</font>:<input
type="text" name="cxh" size="10" style="font-size: 18" value="0"> </td>
<td width="1055" align="left" height="41"><font face="隶书" size="4">书
号：</font><input type="text" id="sh_1" name="sh_1" size="23" readonly
style="font-size: 20" maxlength="12"></td>
</tr>
<tr>
<td width="546" align="left" height="41"><font color="#0000FF">限借天数</font>:<input
type="text" name="xjts" value="0" size="10" style="font-size: 18"></td>
<td width="1055" align="left" height="41"><font face="隶书" size="4">书
名：</font><input type="text" id="sm_1" name="sm_1" size="23" readonly
style="font-size: 20" maxlength="12"></td>
</tr>
<tr>
<td width="546" align="left" height="41"><font color="#0000FF">续借天数</font>:<input
type="text" name="sjts" value="0" size="10" style="font-size: 18"></td>
<td width="1055" align="left" height="41"><font face="隶书" size="4">作
者：</font><input type="text" id="zz_1" name="zz_1" size="16" readonly
style="font-size: 20" maxlength="12"></td>
</tr>
<tr>
<td width="546" 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>
<td width="1055" align="left" height="41"> <input type="button"
value="借 出" id="sure" name="sure" ONCLICK="SURE_CLICK()"
style="font-family: 楷体_GB2312; font-size: 17"><input type="button" value="还 书"
id="hs_1" name="hs_1" ONCLICK="hs_1_CLICK() "
style="font-family: 楷体_GB2312; font-size: 17"><input type="button" value="续 借"
id="xj_1" name="xj_1" ONCLICK="xj_1_CLICK()"
style="font-family: 楷体_GB2312; font-size: 17"><input type="button" id="cancle"
value="取 消" name="CANCLE" ONCLICK="CANCEl_CLICK()"
style="font-family: 楷体_GB2312; font-size: 17"></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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -