📄 ttsjhproc.asp
字号:
user1.e
l_yes=msgbox("读卡成功,欢迎使用",,"提示窗口")
if l_yes=1 then
end if
rds3.sql="select 书号=分类编号+主序号+次序号,书名,作者 from ttsml where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
rds3.executeoptions=1
rds3.refresh
' msgbox rds3.sql
' msgbox rds3.recordset.recordcount
' ietimer1.interval=0
' exit sub
if rds3.recordset.recordcount>0 then
else
ietimer1.interval=2000
exit sub
end if
' Dim xk_tjh,f,t,icno,xk_1,f1,t1,c_no
set xk_tjh=CreateObject("Scripting.FileSystemObject")
if xk_tjh.fileexists("c:\text.txt")=true then
set f = xk_tjh.OpenTextFile("c:\text.txt",1,-2)
t = f.readline
icno=trim(mid(t,10,6))
f.Close
else
ietime1.interval=1000
exit sub
end if
'判别读卡是否正确
rds2.sql="SELECT 编号,借书本数,借书证号,姓名 FROM tjsz WHERE IC号= '"&icno&"' "
rds2.executeoptions=1
rds2.refresh
if rds2.recordset.recordcount>0 then
else
msgbox "读IC卡错误,请重新插入IC卡!",,"提示窗口"
ietimer1.interval=500
exit sub
end if
rds2.sql="SELECT 编号,借书本数,借书证号,姓名 FROM tjsz WHERE IC号= '"&icno&"' "
rds2.executeoptions=1
rds2.refresh
if rds2.recordset.recordcount>0 then
bh=trim(rds2.recordset.Fields(0).Value)
jsbs=trim(rds2.recordset.fields(1).value)
JSZH1=trim(RDS2.RECORDSET.FIELDS(2).VALUE)
XM=trim(RDS2.RECORDSET.FIELDS(3).VALUE)
rds2.sql="select * from tjsdj where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' and 借书证号='"&jszh1&"' "
rds2.executeoptions=1
rds2.refresh
if rds2.recordset.recordcount<=0 then
msgbox "你没有借此图书,请重新输入!"
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='2'"
rds2.executeoptions=1
rds2.refresh
ietimer1.interval=2000
exit sub
else
jszh.value=jszh1
jszh_1.value=jszh1
fllb_1.value=fllb.value
xm_1.value=xm
sh_1.value=trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
sm_1.value=trim(rds3.recordset.fields(1))
zz_1.value=trim(rds3.recordset.fields(2))
MyValue = InputBox("请输入续借天数!","提示窗口", "15")
if trim(myvalue)="" or len(trim(myvalue))=0 then
myvalue="0"
end if
rds2.sql="select 图片 from tjsz where 借书证号='"&jszh1&"'"
rds2.executeoptions=1
rds2.refresh
l_yn=msgbox("是否续借此图书",1,"提示窗口")
if l_yn=1 then
l_js=true
jszh_1.value=""
xjtsf()
ietimer1.interval=2000
else
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='2'"
rds2.executeopti0ns=1
rds2.refresh
ietimer1.interval=2000
end if
end if
end if
else
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='2'"
rds2.executeoptions=1
rds2.refresh
ietimer1.interval=2000
end if
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='2'"
rds2.executeoptions=1
rds2.refresh
ietimer1.interval=2000
end if
end select
end if
end sub
'==========================
sub jszh_click()
l_jszh=true
end sub
'======================
function find()
end function
'=================
sub stop_find()
'ietimer1.interval=100
'msgbox ietimer1.interval
end sub
'====================
'===========================
' dim bh,jsbs
sub js_click()
l_press_js=true
ietimer1.interval=0
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 "借书证号,分类编号,主序号不能为空!",,"提示窗口"
ietimer1.interval=2000
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
myvalue=trim(xjts.value)
stopjszh=trim(jszh.value)
rds2.sql="select 分类编号,主序号,次序号,借书证号,借出日期,限借天数,超过天数=datediff(dy,借出日期,还书日期),还剩几天=datediff(dy,还书日期,getdate()) from Tjsjl where 借书证号='"&rtrim(stopjszh)&"' and rtrim(限借天数)<datediff(dy,借出日期,getdate()) and 还书日期 is not null "
rds2.executeoptions=1 ' msgbox rds2.sql
rds2.refresh
if rds2.recordset.recordcount>0 then
jcrq1=rds2.recordset.fields(5)
cgts=rds2.recordset.fields(6)
hsts=rds2.recordset.fields(7)
bfts=cgts - jcrq1
if (bfts>=1 and bfts<=2) then
if hsts<=7 then
msgbox "此学生超出限借天数"&bfts&"天,已被停罚一星期,还剩"&hsts&"天"&hsts&"",,"提示窗口"
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
ietimer1.interval=2000
exit sub
end if
elseif (bfts>2 and bfts<=4) then
if hsts<=14 then
msgbox "此学生超出限借天数"&bfts&"天,已被停罚二星期,还剩"&hsts&"天",,"提示窗口"
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
ietimer1.interval=2000
exit sub
end if
elseif (bfts>4 and bfts<=6) then
if hsts<=21 then
msgbox "此学生超出限借天数"&bfts&"天,已被停罚三星期,还剩"&hsts&"天",,"提示窗口"
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
ietimer1.interval=2000
exit sub
end if
elseif (bfts>=7 and bfts<30) then
if hsts<=30 then
msgbox "此学生超出限借天数"&bfts&"天,已被停罚一个月,还剩"&hsts&"天",,"提示窗口"
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
ietimer1.interval=2000
exit sub
end if
else
end if
' end select
end if
else
msgbox "借书证输入错误,请重新输入!",,"提示窗口"
ietimer1.interval=2000
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 "借书超出限借图书数,不能再借!",,"提示窗口"
ietimer1.interval=2000
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 "没有找至此图书,请重新输入!",,"提示窗口"
ietimer1.interval=2000
exit sub
end if
rds2.sql="SELECT 姓名,图片 FROM TJSZ WHERE 借书证号 = '"&trim(jszh.value)&"' "
rds2.executeoptions=1
rds2.refresh
TP=RdS2.recordset.FIELDS(1).VALUE
name=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
if trim(jszh_1.value)<>"" or len(trim(jszh_1.value))<>0 then
l_ok=msgbox("你要借此书吗?",1,"提示窗口")
IF L_OK=1 THEN
l_js=true
SUREf()
l_jszh=false
l_press_js=false
l_js=false
ietimer1.interval=2000
ELSE
js.disabled=false
hs.disabled=false
xj.disabled=false
b2.disabled=false
'sure.disabled=true
' hs_1.disabled=true
' xj_1.disabled=true
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
jszh_1.value=""
fllb_1.value=""
xm_1.value=""
sh_1.value=""
sm_1.value=""
zz_1.value=""
l_find=true
l_jszh=false
l_press_js=false
ietimer1.interval=2000
END IF
ELSE
l_find=true
l_jszh=false
l_press_js=false
ietimer1.interval=2000
end if
end sub
'====================================
sub hs_click()
ietimer1.interval=0
l_press_hs=true
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 "借书证号,分类编号,主序号不能为空!"
ietimer1.interval=2000
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 "此借书证号没有登记借书、请重新输入!"
ietimer1.interval=2000
exit sub
end if
else
msgbox "借书证号输入错误!此人没有借书!"
ietimer1.interval=2000
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -