?? 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 + -