📄 rent.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<% set rs=server.CreateObject("adodb.recordset") %>
<%
if session("admin_name")="" then
response.end
end if%>
<% dim Title,Owner,Retime
if request("action")="save" then
Title=Trim(Request("Title"))
Owner=Trim(Request("Owner"))
Retime=Trim(Request("Retime"))
sql="select * from book where Title='"&Title&"' "
rs.open sql,conn,1,3
rs("Title")=Title
rs("Owner")=Owner
rs("letime")=date()
rs("Retime")=Retime
rs("RentCount")=rs("RentCount")+1
rs("Status")=1
rs.update
Response.Write "<script>alert('借阅图书成功!!');location.href='rent.asp'</script>"
Response.end
end if
%>
<title>添加图书</title>
<p> </p>
<table width="100%" height="1" border="0" cellpadding="3" cellspacing="1" align="center">
<tr>
<td width="100%" class="title" bgcolor="#FFFFFF"><div align="center" style="font-weight: bold; font-family: Arial, Helvetica, sans-serif; font-size: 24px">借阅与归还管理</div></td>
</tr>
<tr>
<td > [<a href="rent.asp">图书借阅</a>] [<a href="return.asp">图书归还</a>] </td>
</tr>
</table>
<form method="POST" name="form2" action="rent.asp?action=save">
<table width=80% height=25% border="1" cellpadding=1 cellspacing=1 bordercolor="#33CCFF" align="center" >
<tr bgcolor="#CCCCCC">
<td height=25 colspan=2 >>>图书借阅</td>
</tr>
<tr><td class=TableBody2 align=right width=15% >图书名称:<br></td><td class=TableBody1 align=left><input type=text maxlength=50 name=Title size=50>
*</td>
</tr>
<td class=TableBody2 align=right width=15% >借阅人:</td><td class=TableBody1 align=left><input type=text maxlength=100 name=Owner size=50>
*</td></tr>
<tr>
<td class=TableBody2 align=right width=15% >归还时间:</td>
<td class=TableBody1 align=left><input type=text maxlength=200 name=Retime size=50>
如:2005-3-4</td>
</tr>
<tr><td class=TableBody2 align=center colspan=2><input type=submit value=提交> <input type=reset value=重写></td></tr>
</table>
<input type=hidden name=IsAdd value=Yes>
</form>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -