📄 jieshuok.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<!-- #include file="adovbs.inc" -->
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("bookstore.mdb")
objConn.Open
Dim shuhao,xuehao
xuehao=request("xuehao")
shuhao=request("shuhao")
%>
<%
Dim strsql,rs,strsql1,strsql2,rs1
strsql="select 数量 from 图书表 where 书号='"&shuhao&"'"
set rs=server.createobject("adodb.recordset")
set rs=objConn.execute(strsql)
if rs(trim("数量"))>0 then
strsql1="update 图书表 set 数量=数量-1 where 书号='"& shuhao &"'"
strsql2="insert into 记录表(学号,借书号,借书时间) values("&xuehao&",'"&shuhao&"',#"&date()&"#)"
objConn.execute(strsql1)
objConn.execute(strsql2)
%>
<html>
<head>
<title>借书成功</title>
<style type="text/css">
<!--
.style1 {
font-family: "幼圆";
font-size: xx-large;
color: #FF0000;
}
-->
</style>
<body>
<div align="center"><span class="style1">借书成功!</a>
</span>
</div>
<meta http-equiv="refresh" content="2;url=jieshu.asp">
</body>
</head>
</html>
<%else %>
<%response.Redirect("jiewan.asp")%>
<%end if%>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -