booksave.asp

来自「ASP+SQL Server的图书馆管理系统」· ASP 代码 · 共 64 行

ASP

64 行

<!--#include File="ConnDB.asp"-->

<html>
<head>

<title>保存图书信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=hz-gb-2312"></head>
<body>
<%
  
  Dim StrAction
 
   StrAction = Request.QueryString("action")
  Set rs = Server.CreateObject("ADODB.RECORDSET")
  Set rs1 = Server.CreateObject("ADODB.RECORDSET")

  If StrAction="add" Then
  
    sql="Select * from Book_Info"
    rs.Open sql,Conn,1,3

	rs.AddNew
    rs("Book_Type") = Request("book_Type")
 	rs("book_Name")= Request("book_name")
 	rs("book_AddDate")= Date()
 	rs("book_Author") = request("book_Author")
 	rs("book_Press") = Request("book_Press")
 	rs("book_ImageFile") = request("book_imageFile")
 	rs("book_total")=1
     rs("book_PrsDate")=Request("book_PrsDate")
 	rs("Book_Remark")=Request("book_Remark")
	rs("Book_ImageFile")=request("upimage")
	
 	rs.Update
    
response.write "<h3>图书信息成功保存</h3>"
Else
    sql="Select * from Book_Info where book_id="&request.form("book_id")
    rs1.Open sql,Conn,1,3
	rs1("Book_Type") = Request("Book_Type") 
	rs1("book_Name")= Request("book_name")
	rs1("book_AddDate")= Date()
	rs1("book_Author") = request("book_Author")
	rs1("book_Press") = Request("book_Press")
	
	rs1("book_total")=request("book_total")
    rs1("book_PrsDate")=Request("book_PrsDate")
	rs1("Book_Remark")=Request("book_Remark")
   
    rs1.Update
response.write request("upimage")  
response.write "<h3>图书信息成功修改</h3>"
End If
 Set rs = Nothing
%>
</body>
<script language="javascript">

  opener.location.reload();
  setTimeout("window.close()",600);
</script>
</html>

booksave.asp - 源码说明

本页面展示了「ASP+SQL Server的图书馆管理系统」中的 booksave.asp 源码文件，采用 ASP 编程语言编写，共 64 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Server相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?