returnbook2.asp

来自「借阅系统,可以很方便的管理书籍」· ASP 代码 · 共 31 行

ASP
31
字号
        
   <%response.buffer=true%>
<%response.expires=0%>
<%
bookid=session("bookid")
monery=session("monery")
strsql="select * from book where bookid='"&bookid&"'"
set cn=server.createobject("adodb.connection")
set rst=server.createobject("adodb.recordset")
strconn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("wsm.mdb")
 rst.open  strsql ,strconn,1,3,adcmdtable
 if not rst.eof then
 rst("havecount")=rst("havecount")+1
  rst.update
  response.write"<p align=center><font color=red size=5>书已经归还,过期费用是"&monery&"元</font></p>"
  response.write"<p align=center><font color=red size=5> <a href='管理员页面.htm'>返回</a></font></p>"
 

else
response.end
end if 

%>

<head>
<title></title>
</head>

<body bgcolor="#000000">

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?