📄 goods_edit_save.asp

📁 本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
if request.form("temp")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
else

if request.form("goodsname")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('商品名称不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("goodscontent")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('商品描述不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("goodsprice")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('商品价格不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("goodsamount")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('商品数量不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("goodslong")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('有效期不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("goods_id")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('GoodsID不能为空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if

goodsname=request.form("goodsname")
goodscontent=request.form("goodscontent")
goodsprice=request.form("goodsprice")
goodsamount=request.form("goodsamount")
goodslong=request.form("goodslong")
goodspic=request.form("goodspic")
goods_id=request.form("goods_id")

set rs=server.createobject("adodb.recordset")
sql="select * from goods_info where goods_id="&goods_id
rs.open sql,conn,1,3

if request.form("goodspic")<>"" then
if rs("goods_pic")<>"" then
tempfpath=rs("goods_pic")
FiLePaTh = Server.MapPath(tempfpath)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(FiLePaTh)
Set fso = nothing
end if
end if

rs("goods_name")=goodsname
rs("goods_content")=goodscontent
rs("goods_price")=goodsprice
rs("goods_amount")=goodsamount
rs("goods_long")=goodslong
if request.form("goodspic")<>"" then
rs("goods_pic")=goodspic
end if
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("antry")="" '提交成功，清空session("antry")，以防重复提交！！
%>
<meta http-equiv="refresh" content="2;URL=goods.asp">
<LINK href="style.css" type=text/css rel=stylesheet>
<body><TABLE width="760" class=page border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD>
<!--#include file="top.asp"-->
<TABLE width=760 border=0 align=center cellpadding="4">
  <TBODY>
    <TR> 
      <TD align="center" vAlign=top> 
        <TABLE cellSpacing=0 cellPadding=0 width="550" border=0>
          <TBODY>
            <TR> 
              <TD><table width="100%" border="0" cellpadding="6">
                  <tr> 
                    <td align="center">商品修改成功！2秒钟后自动返回！</td>
                  </tr>
                </table></TD>
            </TR>
          </TBODY>
        </TABLE>
        </TD>
    </TR>
  </TBODY>
</TABLE>
<%end if%>
<!--#include file="bottom.asp"-->
</TD>
    </TR>
  </TBODY>
</TABLE>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -