📄 goodssave.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 GName
Dim StrAction
'得到动作参数，如果为add则表示添加新商品，如果为update则表示更改商品
StrAction = Request.QueryString("action")
'取得商品题目和内容和提交人用户名
GName = Trim(Request("name"))
GName = Replace(GName ,"'","‘")
rqtContent = changechr(Request("Content")) '替换函数
rqtContent = Replace(rqtContent,"'","‘") '替换内容中的单引号
Set rs = Server.CreateObject("ADODB.RECORDSET")
If StrAction="add" Then
'在数据库表Goods中插入新商品信息
sql="Select * from Goods"
rs.Open sql,Conn,1,3
rs.AddNew
rs("TypeId") = CInt(Request.Form("TypeId"))
rs("Name")= GName
rs("Sn_Number")= Request("number")
rs("Posttime")=now()
rs("SalePrice") = Request("saleprice")
rs("StorePrice") = Request("storeprice")
rs("ImageFile") = request("upimage")
rs("ReadCount")=0
rs("BuyCount")=0
rs("Producer")=Request("producer")
rs("Package")=Request("package")
rs("Content")=rqtContent
rs.Update
Else
'更改此商品信息
id = Request.QueryString("id")
sql = "Update Goods Set TypeId="&CInt(Request.Form("Typeid"))&",Name='"&GName&"',Sn_Number='"&Request("number")&"',Posttime='"&now()&"'" &_
",SalePrice="&Request("saleprice")&",StorePrice="&Request("storeprice")&",Producer='"&Request("producer")&"'" &_
",Package='"&Request("package")&"',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 + -