📄 tjsdj.asp
字号:
<%
Function SqlStr( data )
SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function
jszh= Request("jszh")
fllb = Request("fllb")
jxh = Request("jxh")
cxh = Request("cxh")
xjts= request("xjts")
sjts= request("sjts")
'response.write jszh
If jszh=" " Or fllb=" " Or jxh =" " Or cxm=" " Then
Response.Write "借书证号、类别、主序号、次序号、限借时间不能为空"
Response.End
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "database=school;uid=sa;pwd=;dsn=school"
Set rs = Server.CreateObject("ADODB.Recordset")
jszh = rtrim(ltrim(Left( jszh, 12 )))
fllb = rtrim(ltrim(Left( fllb, 10 )))
jxh = rtrim(ltrim(Left( jxh, 10 )))
cxh = rtrim(ltrim(left( cxh, 10 )))
xjts= rtrim(ltrim(left( xjts,10)))
sjts= rtrim(ltrim(left( sjts,10)))
sql="SELECT 编号,借书本数 FROM tjsz WHERE 借书证号= '"&jszh&"' "
rs.open sql,conn,3
if rs.recordcount>0 then
bh=rs.Fields(0).Value
jsbs=rs.fields(1).value
else
Response.Write "借书证号输入错误、请重新输入!"
Response.End
end if
rs.close
if xjts<>0 and sjts<>0 then
sql="SELECT * FROM Tbj WHERE 编号 = '"&trim(bh)&"' and 限借图书数>'"&trim(jsbs)&"' "
rs.open sql,conn,3
if rs.recordcount<=0 then
Response.Write "借书超出限借图书数,不能再借!"
Response.End
end if
rs.close
end if
if xjts<>0 then
sql="SELECT 姓名 FROM Tdjts WHERE 借书证号= '"&jszh&"' "
rs.open sql,conn,3
if rs.recordcount>0 then
name=rs.Fields(0).Value
else
Response.Write "借书证号输入错误、请重新输入!"
Response.End
end if
rs.close
else
sql="SELECT 姓名 FROM Tjsz WHERE 借书证号= '"&jszh&"' "
rs.open sql,conn,3
if rs.recordcount>0 then
name=rs.Fields(0).Value
else
Response.Write "借书证号输入错误、请重新输入!"
Response.End
end if
rs.close
end if
sql="SELECT 书名,作者 FROM Ttsml WHERE 分类编号 = '"&fllb&"' AND 主序号='"&JXH&"' AND 次序号='"&CXH&"' "
rs.open sql,conn,3
if rs.recordcount>0 then
sm=rs.fields(0).value
zz=rs.fields(1).value
xh=fllb+"/"+JXH+"-"+cxh
else
Response.Write "没有找至此图书,请重新输入!"
Response.End
end if
rs.close
sql="SELECT 图片 FROM TJSZ WHERE 借书证号 = '"&jszh&"' "
rs.open sql,conn,3
TP=RS.FIELDS(0).VALUE
rs.close
%>
<html>
<head>
<title>借书</title>
</head>
<body background="B01.jpg">
<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>
</p>
<h1 align="center">借书</h1>
<div align="center"><center>
<table border="2" cellpadding="5" width="529">
<tr>
<td width="701" align="left"><font face="隶书" size="5">借书证号</font><font
size="5">：</font><input type="text" id="jszh" name="jszh" size="23" value="<%=jszH%>"
readonly style="font-size: 18" maxlength="12"></td>
<td width="183" align="left" rowspan="7" valign="top"><img src="<%=tp%>" width="123"
height="126" alt="<%=tp%> (22162 字节)"></td>
</tr>
<tr>
<td width="701" align="left"><font face="隶书" size="5">类 别：</font><input
type="text" id="lb" name="lb" size="23" value="<%=fllb%>" readonly style="font-size: 18"
maxlength="8"></td>
</tr>
<tr>
<td width="701" align="left"><font face="隶书" size="5">姓 名：</font><input
type="text" id="xm" name="xm" size="17" value="<%=name%>" readonly style="font-size: 18"
maxlength="8"></td>
</tr>
<tr>
<td width="701" align="left"><font face="隶书" size="5">书 号：</font><input
type="text" id="ic" name="ic" size="23" value="<%=XH%>" readonly style="font-size: 20"
maxlength="12"></td>
</tr>
<tr>
<td width="701" align="left"><font face="隶书" size="5">书 名：</font><input
type="text" id="ic" name="ic" size="23" value="<%=SM%>" readonly style="font-size: 20"
maxlength="12"></td>
</tr>
<tr>
<td width="701" align="left"><font face="隶书" size="5">作 者：</font><input
type="text" id="ic" name="ic" size="16" value="<%=ZZ%>" readonly style="font-size: 20"
maxlength="12"></td>
</tr>
<tr>
<td width="701" align="left"> <input type="button" value="借 出"
id="sure" name="sure" ONCLICK="SURE_CLICK()" style="font-family: 楷体_GB2312; font-size: 17"><input
type="button" value="还 书" id="hs" name="hs" ONCLICK="hs_CLICK() "
style="font-family: 楷体_GB2312; font-size: 17"><input type="button" value="续 借"
id="xj" name="xj" ONCLICK="xj_CLICK()" style="font-family: 楷体_GB2312; font-size: 17"><input
type="button" value="取 消" name="CANCLE" ONCLICK="CANCLE_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"
if <%=xjts%>=0 and <%=sjts%>=0 then
sure.disabled=true
xj.disabled=true
else
hs.disabled=true
end if
</script>
<script LANGUAGE="VBSCRIPT">
'借书
SUB SURE_CLICK()
RDS1.SQL="INSERT INTO TJSDJ(分类编号,主序号,次序号,借书证号,借出日期,限制天数) VALUES('"&trim(lb.value)&"','"&<%=JXH%>&"','"&<%=CXH%>&"','"&<%=JSZH%>&"',GETDATE(),'"&<%=XJTS%>&"')"
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
IF ERR.NUMBER=0 THEN
RDS1.SQL="INSERT INTO Tjsjl(分类编号,主序号,次序号,借书证号,借出日期,限制天数) VALUES('"&trim(lb.value)&"','"&<%=JXH%>&"','"&<%=CXH%>&"','"&<%=JSZH%>&"',GETDATE(),'"&<%=XJTS%>&"')"
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
rds1.sql="update ttsml set 库存数量=库存数量-1 where 分类编号='"&trim(lb.value)&"' and 主序号='"&<%=jxh%>&"' and 次序号='"&<%=cxh%>&"' "
rds1.executeoptions=1
rds1.refresh
rds1.sql="update tjsz set 借书本数=借书本数+1 where 借书证号='"&<%=jszh%>&"'"
rds1.executeoptions=1
rds1.refresh
rds1.sql="delete from tdjts where 借书证号='"&<%=jszh%>&"' and 分类编号='"&trim(lb.value)&"' and 主序号='"&<%=jxh%>&"' and 次序号='"&<%=cxh%>&"' "
rds1.executeoptions=1
rds1.refresh
MSGBOX "此书成功借出!"
end if
END SUB
'还书
sub hs_click()
RDS1.SQL="delete from TJSDJ where 借书证号='"&<%=jszh%>&"' and 分类编号='"&trim(lb.value)&"' and 主序号='"&<%=jxh%>&"' and 次序号='"&<%=cxh%>&"' "
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
IF ERR.NUMBER=0 THEN
rds1.sql="update ttsml set 库存数量=库存数量+1 where 分类编号='"&trim(lb.value)&"' and 主序号='"&<%=jxh%>&"' and 次序号='"&<%=cxh%>&"' "
rds1.executeoptions=1
rds1.refresh
rds1.sql="update tjsjl set 还书日期=getdate() where 借书证号='"&<%=jszh%>&"' and 分类编号='"&trim(lb.value)&"' and 主序号='"&<%=jxh%>&"' and 次序号='"&<%=cxh%>&"' "
rds1.executeoptions=1
rds1.refresh
MSGBOX "还书成功!"
end if
end sub
sub xj_click()
RDS1.SQL="delete from TJSDJ where 借书证号='"&<%=jszh%>&"' and 分类编号='"&trim(lb.value)&"' and 主序号='"&<%=jxh%>&"' and 次序号='"&<%=cxh%>&"' "
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
IF ERR.NUMBER=0 THEN
rds1.sql="update tjsjl set 还书日期=getdate() where 借书证号='"&<%=jszh%>&"' and 分类编号='"&trim(lb.value)&"' and 主序号='"&<%=jxh%>&"' and 次序号='"&<%=cxh%>&"' "
rds1.executeoptions=1
rds1.refresh
RDS1.SQL="INSERT INTO Tjsdj(分类编号,主序号,次序号,借书证号,借出日期,限制天数) VALUES('"&trim(lb.value)&"','"&<%=JXH%>&"','"&<%=CXH%>&"','"&<%=JSZH%>&"',GETDATE(),'"&<%=sJTS%>&"')"
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
RDS1.SQL="INSERT INTO Tjsjl(分类编号,主序号,次序号,借书证号,借出日期,限制天数) VALUES('"&trim(lb.value)&"','"&<%=JXH%>&"','"&<%=CXH%>&"','"&<%=JSZH%>&"',GETDATE(),'"&<%=sJTS%>&"')"
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
MSGBOX "续借图书成功!"
end if
end sub
</script>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -