📄 ttsjhproc.asp
字号:
<script language="vbscript">
'=============================
public l_js '此变量判断执行 surf() 函数
l_js=false
public l_xjts '此变量判断执行 surf() 函数
l_xjts=false
public l_jc '此变量判断执行 surf() 函数
l_jc=false
public l_jszh '此变量判断是否为手动借书,如果是手动借书,在输入完限借天数不需要触发事件 xjts_click()
l_jszh=false
public l_press_hs '此变量判断是否为手动借书,如果是手动借书,不需要删除(tdjts) table
l_press_hs=false
public l_hs '此变量判断执行 surf() 函数
l_hs=false
public l_press_js '此变量判断是否为手动还书,如果是手动还书,不需要删除(tdjts) table
l_press_hs=false
Dim xk_tjh,f,t,icno,xk_1,f1,t1,c_no
'查找学生待借还书记录
sub ietimer1_timer()
'判断现在传过来的数据是借书,还是还书或续借
RDS2.SQL="select 分类编号,主序号,次序号,IP地址,借还 from tdjts where ip地址='"&teacher_no&"' "
RDS2.ExecuteOptions = 1
RDS2.Refresh
if RDS2.Recordset.recordcount>0 then
select case trim(rds2.recordset.fields(4))
'借书
case "1"
' RDS3.SQL="select 姓名,借书证号,分类编号,主序号,次序号,IP地址,借还 from tdjts where ip地址='"&teacher_no&"'"
RDS3.SQL="select 分类编号,主序号,次序号,IP地址,借还 from tdjts where ip地址='"&teacher_no&"' and 借还='1'"
RDS3.ExecuteOptions = 1
RDS3.Refresh
if RDS3.Recordset.recordcount>0 then
ietimer1.interval=0
fllb.value=rds3.recordset.fields(0).value
jxh.value=rds3.recordset.fields(1).value
cxh.value=rds3.recordset.fields(2).value 'trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
l_ic=msgbox("请插入IC号,点击<确定>借书开始,点击<取消>借书取消!",1,"提示窗口")
if l_ic=1 then
ic_yn=user1.e
msgbox "读IC卡成功",,"提示窗口"
if ic_yn<>0 then
rds3.sql="select 书号=分类编号+主序号+次序号,书名,作者 from ttsml where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
rds3.executeoptions=1
rds3.refresh
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
ietimer1.interval=2000
exit sub
end if
'判别读卡是否正确
rds2.sql="SELECT 编号,借书本数,借书证号,姓名 FROM tjsz WHERE IC号= '"&icno&"' "
rds2.executeoptions=1
rds2.refresh
if rds2.recordset.recordcount>0 then
stopjszh=rds2.recordset.fields(2)
rds2.sql="select 分类编号,主序号,次序号,借书证号,借出日期,限借天数,超过天数=datediff(dy,借出日期,还书日期) from Tjsjl where 借书证号='"&rtrim(stopjszh)&"' and (rtrim(限借天数)<datediff(dy,借出日期,getdate())) and 还书日期 is null "
rds2.executeoptions=1 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"
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='1'"
rds2.executeoptions=1
rds2.refresh
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"
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='1'"
rds2.executeoptions=1
rds2.refresh
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"
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='1'"
rds2.executeoptions=1
rds2.refresh
ietimer1.interval=2000
exit sub
end if
elseif bfts>=7 then
if hsts<=90 then
msgbox "此学生超出限借天数"&bfts&"天,已被停罚三个月,还剩"&hsts&"天",,"提示窗口"
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='1'"
rds2.executeoptions=1
rds2.refresh
ietimer1.interval=2000
exit sub
end if
else
end if
end if
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 Tbj WHERE 编号 = '"&trim(bh)&"' and 限借图书数>'"&trim(jsbs)&"' "
rds2.executeoptions=1
rds2.refresh
if rds2.recordset.recordcount<=0 then
msgbox "借书超出限借图书数,不能再借!",,"提示窗口"
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='1'"
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=""
suref()
ietimer1.interval=2000
else
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='1'"
rds2.executeoptions=1
rds2.refresh
ietimer1.interval=1000
end if
end if
end if
else
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='1'"
rds2.executeoptions=1
rds2.refresh
ietimer1.interval=2000
end if
end if
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='1'"
rds2.executeoptions=1
rds2.refresh
ietimer1.interval=2000
end if
'还书
case "0"
RDS3.SQL="select 分类编号,主序号,次序号,IP地址,借还 from tdjts where ip地址='"&teacher_no&"' and 借还='0'"
RDS3.ExecuteOptions = 1
RDS3.Refresh
if RDS3.Recordset.recordcount>0 then
ietimer1.interval=0
fllb.value=rds3.recordset.fields(0).value
jxh.value=rds3.recordset.fields(1).value
cxh.value=rds3.recordset.fields(2).value 'trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
l_ic=msgbox("请插入IC号,点击<确定>还书开始,点击<取消>还书取消!",1,"提示窗口")
if l_ic=1 then
ic_ft=user1.e
l_ok=msgbox("读卡成功,欢迎使用",,"提示窗口")
if l_ok=1 then
end if
if ic_ft=0 then
exit sub
end if
rds3.sql="select 书号=分类编号+主序号+次序号,书名,作者 from ttsml where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
rds3.executeoptions=1
rds3.refresh
if rds3.recordset.recordcount>0 then
else
ietimer1.interval=2000
exit sub
end if
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&"' "
'msgbox rds2.sql
'exit sub
rds2.executeoptions=1
rds2.refresh
if rds2.recordset.recordcount<=0 then
msgbox "你没有借此图书,请重新输入!"
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='0'"
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))
rds2.sql="select 图片 from tjsz where 借书证号='"&jszh1&"'"
rds2.executeoptions=1
rds2.refresh
l_yn=msgbox("是否还此图书",1,"提示窗口")
if l_yn=1 then
l_hs=true
' jszh_1.value=""
hsf()
ietimer1.interval=2000
else
rds2.sql="delete from tdjts where ip地址='"&teacher_no&"' and 借还='0'"
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 借还='0'"
rds2.executeoptions=1
rds2.refresh
ietimer1.interval=2000
end if
end if
case "2"
RDS3.SQL="select 分类编号,主序号,次序号,IP地址,借还 from tdjts where ip地址='"&teacher_no&"' and 借还='2'"
RDS3.ExecuteOptions = 1
RDS3.Refresh
if RDS3.Recordset.recordcount>0 then
ietimer1.interval=0
fllb.value=rds3.recordset.fields(0).value
jxh.value=rds3.recordset.fields(1).value
cxh.value=rds3.recordset.fields(2).value 'trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
l_ic=msgbox("请插入IC号,点击<确定>续借图书开始,点击<取消>续借图书取消!",1,"提示窗口")
if l_ic=1 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -