📄 add_info_ok.asp
字号:
<%@language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="connDB.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>借阅登记成功</title>
<link href="style.css" rel="stylesheet">
</head>
<!--#include file="head.asp"-->
<%
Dim GName
GName = Trim(Request("Rec_rdrname"))
GName = Replace(GName ,"'","‘")
set rs1=server.createobject("adodb.recordset")
sqltext1="select * from Book_Type where Type_Id="& request("rec_bktype")
rs1.open sqltext1,conn,1,1
ss=rs1("Type_Name")
set rs=server.createobject("adodb.recordset")
sqltext="select * from Book_Record"
rs.open sqltext,conn,1,3
'添加一条记录到数据库
rs.AddNew
rs("Rec_RdrId") =Cint(Request.Form("Rec_RdrId"))
rs("rec_rdrname")= GName
rs("rec_rdrtype")=Request.Form("Rec_Rdrtype")
rs("rec_bkid") = Cint(request("rec_bkid"))
rs("rec_bkname") = Request("rec_bkname")
rs("rec_bktype") = ss
rs("rec_bktotal")=Request("rec_bktotal")
rs("rec_lendtime")=DateAdd("m", 0 , date())
rs("rec_lendlimit")=DateAdd("m", 2 , date())
rs("rec_Arrearage")=Request("rec_Arrearage")
rs("rec_flag")=0
rs("rec_Remark")=Request("rec_Remark")
rs.Update
rs.close
conn.close
%>
<html>
<head>
<title>图书借阅登记成功</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body text="#000000">
<p align="center"><br>
<br>
</p>
<div align="center">
<center>
<p align="center"><b><font style="font-size: 12pt">图书借阅登记成功!</font></b></font></p><BR>
<table cellspacing=1 cellpadding=4 width=524 bgcolor=#3399FF height="237">
<TBODY>
<TR >
<TD width=102 bgColor=#FEEC85 height=26 align="right" style='FONT-SIZE: 10pt'><strong>借阅种类：</strong></TD>
<td width=425 height=26 bgcolor="#ffffff"> <%=ss%></TD></TR>
<tr>
<TD width=102 bgColor=#FEEC85 height=26 align="right"style='FONT-SIZE: 10pt'><strong>图书名称：</strong></TD>
<TD width=301 height=26 bgcolor="#ffffff"><%=request.form("rec_bkname")%></TD>
</tr>
<tr>
<TD width=102 bgColor=#FEEC85 height=26 align="right"style='FONT-SIZE: 10pt'><strong>借阅数量：</strong></TD>
<TD width=301 height=26 bgcolor="#ffffff"><%=request.form("rec_bktotal")%></TD>
</tr>
<tr>
<TD width=102 bgColor=#FEEC85 height=25 align="right"style='FONT-SIZE: 10pt'><strong>读者类型：</strong></TD>
<TD width=301 height=25 bgcolor="#ffffff"><%=request.form("rec_rdrtype")%></TD>
</tr>
<tr>
<TD width=102 bgColor=#FEEC85 height=26 align="right"style='FONT-SIZE: 10pt'><strong>读者姓名：</strong></TD>
<TD width=301 height=26 bgcolor="#ffffff"><%=request.form("rec_rdrname")%></TD>
</tr>
<tr>
<TD width=102 bgColor=#FEEC85 height=25 align="right"style='FONT-SIZE: 10pt'><strong>借阅时间：</strong></TD>
<TD width=301 height=25 bgcolor="#ffffff"><%=request.form("rec_lendtime")%></TD>
</tr>
<tr>
<TD width=102 bgColor=#FEEC85 height=25 align="right"style='FONT-SIZE: 10pt'><strong>应还时间：</strong></TD>
<TD width=301 height=25 bgcolor="#ffffff"><%=request.form("rec_lendlimit")%></TD>
</tr>
<tr>
<TD width=102 bgColor=#FEEC85 height=26 align="right"style='FONT-SIZE: 10pt'><strong>备注：</strong></TD>
<TD width=301 height=26 bgcolor="#ffffff"><%=request.form("rec_remark")%></TD>
</tr>
</tbody>
</table>
</center>
</div>
<TR >
<td colspan=2 height="27"bgcolor=#ffffff><p align="center">
<INPUT type="button" size=3 value='查看记录' name=Submit2 onClick="window.location.href='default.asp';">
</TD></TR>
<tr>
<td><div align="center">
<p>Copyright 2007 </p>
</div></td>
</tr>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -