📄 booksave.asp
字号:
<!--#include File="../ConnDB.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>网上书城编辑图书信息</title>
</head>
<body>
<%
Function changechr(str)
changechr = Replace(str," "," ")
changechr = Replace(changechr,Chr(13),"<br>")
End Function
Dim BName
Dim StrAction
'得到动作参数，如果为add则表示添加新图书，如果为update则表示更改图书
StrAction = Request.QueryString("action")
'取得图书题目和内容
BName = Trim(Request("name"))
BName = Replace(BName ,"'","‘")
rqtContent = changechr(Request("Content")) '替换函数
rqtContent = Replace(rqtContent,"'","‘") '替换内容中的单引号
Set rs = Server.CreateObject("ADODB.RECORDSET")
If StrAction="add" Then
'在数据库表Books中插入新图书信息
sql="Select * from Books"
rs.Open sql,Conn,1,3
rs.AddNew
rs("TypeId") = CInt(Request.Form("TypeId"))
rs("BookName")= BName
rs("ISBN")= Request("isbn")
rs("Publisher")= Request("publisher")
rs("Author")= Request("author")
rs("PageNum")= Request("pagenum")
rs("PublishDate")= Request("pdate")
rs("SalePrice") = Request("saleprice")
rs("StorePrice") = Request("storeprice")
rs("ImageFile") = request("upimage")
rs("ReadCount")=0
rs("BuyCount")=0
rs("Content")=rqtContent
rs.Update
Else
'更改此图书信息
id = Request.QueryString("id")
sql = "Update Books Set TypeId="&CInt(Request.Form("typeid"))&",BookName='"&BName& _
"',ISBN='"&Request("isbn")&"',Publisher='"&Request("publisher")&"'" &_
",SalePrice="&Request("saleprice")&",StorePrice="&Request("storeprice")&_
",Author='"&Request("author")&"'" &",PageNum="&Request("pagenum")&_
",PublishDate='"&Request("pdate")&"',Content='"&rqtContent &"' Where id="&CInt(id)
Conn.Execute(sql)
End If
Set rs = Nothing
response.write "<h3>图书成功保存</h3>"
%>
</body>
<script language="javascript">
// 刷新父级窗口，延迟此关闭
opener.location.reload();
setTimeout("window.close()",600);
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -