saveaddpro.asp

时代商城购物系统功能

<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
if request.form("name")="" then
response.Write "<script language=javascript>alert('请填写商品名称！');history.go(-1);</script>"
response.End
end if
if request.form("price1")="" then
response.Write "<script language=javascript>alert('请填写商品的市场价格！');history.go(-1);</script>"
response.End
end if
if request.form("price2")="" then
response.Write "<script language=javascript>alert('请填写商品的会员价格！');history.go(-1);</script>"
response.End
end if

if Not isNumeric(request.form("price1")) then
response.Write "<script language=javascript>alert('商品的市场价格必须是数字！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("price2")) then
response.Write "<script language=javascript>alert('商品的会员价格必须是数字！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("amount")) then
response.Write "<script language=javascript>alert('商品的上架数量必须是数字！');history.go(-1);</script>"
response.End
end if
if Not isNumeric(request.form("stock")) then
response.Write "<script language=javascript>alert('商品的库存必须是数字！');history.go(-1);</script>"
response.End
end if

function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
end function
dim productdate,discount
discount=round(request.form("price2")/request.form("price1"),2)
productdate=trim(request.form("productdateyear"))&"年"&trim(request.form("productdatemonth"))&"月"&trim(request.form("productdateday"))&"日"
dim action,id,temp
id=request.QueryString("id")
action=request.QueryString("action")
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from product",conn,1,3
rs.AddNew
rs("prename")=trim(request.form("prename")) 
rs("name")=trim(request.form("name")) 
rs("company")=trim(request.form("company")) 
rs("mark")=trim(request.form("mark")) 
rs("intro")=trim(request.form("intro")) 
rs("introduce")=trim(request.form("introduce")) 
rs("predate")=trim(request.form("predate")) 
rs("price")=trim(request.form("price")) 
rs("price1")=trim(request.form("price1"))  
rs("price2")=trim(request.form("price2"))  
rs("other")=trim(request.form("other")) 
rs("pic")=trim(request.form("pic")) 
rs("graph")=trim(request.form("graph")) 
rs("graph2")=trim(request.form("graph2")) 
rs("photo")=trim(request.form("photo")) 
rs("addlink")=trim(request.form("addlink")) 
rs("link")=trim(request.form("link")) 
rs("description")=trim(request.form("description")) 
rs("categoryid")=int(request.form("categoryid"))
rs("sortsid")=int(request.form("sortsid")) 
rs("mark")=trim(request.form("mark"))
rs("remarks")=trim(request.form("remarks")) 
rs("productdate")=productdate 
rs("discount")=discount 
rs("score")=request.form("score") 
rs("amount")=request.form("amount") 
rs("stock")=request.form("stock") 
rs("grade")=trim(request.form("grade")) 
rs("prestock")=trim(request.form("prestock"))
rs("pretype")=trim(request.form("pretype"))
rs("type")=trim(request.form("type"))
rs("recommend")=trim(request.form("recommend"))
rs("adddate")=Now() 
rs("solded")=0 
rs("viewnum")=0 
rs("rank")=0  
rs("ranknum")=0
rs("detail")=htmlencode2(trim(request.form("detail"))) 
rs("content")=htmlencode2(trim(request.form("content")))  
rs.Update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('添加成功！');history.go(-1);</script>"
response.End
conn.close
set conn=nothing

case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from product where id="&id,conn,1,3
rs("prename")=trim(request.form("prename")) 
rs("name")=trim(request.form("name")) 
rs("company")=trim(request.form("company")) 
rs("mark")=trim(request.form("mark")) 
rs("intro")=trim(request.form("intro")) 
rs("introduce")=trim(request.form("introduce")) 
rs("predate")=trim(request.form("predate")) 
rs("price")=trim(request.form("price")) 
rs("price1")=trim(request.form("price1"))  
rs("price2")=trim(request.form("price2"))  
rs("other")=trim(request.form("other")) 
rs("pic")=trim(request.form("pic")) 
rs("graph")=trim(request.form("graph")) 
rs("graph2")=trim(request.form("graph2")) 
rs("photo")=trim(request.form("photo")) 
rs("addlink")=trim(request.form("addlink")) 
rs("link")=trim(request.form("link")) 
rs("description")=trim(request.form("description")) 
rs("categoryid")=int(request.form("categoryid"))
rs("sortsid")=int(request.form("sortsid")) 
rs("mark")=trim(request.form("mark"))
rs("remarks")=trim(request.form("remarks")) 
rs("productdate")=productdate 
rs("discount")=discount 
rs("score")=request.form("score") 
rs("amount")=request.form("amount") 
rs("stock")=request.form("stock") 
rs("grade")=trim(request.form("grade")) 
rs("prestock")=trim(request.form("prestock"))
rs("pretype")=trim(request.form("pretype"))
rs("type")=trim(request.form("type"))
rs("recommend")=trim(request.form("recommend"))
rs("adddate")=Now() 
rs("detail")=htmlencode2(trim(request.form("detail"))) 
rs("content")=htmlencode2(trim(request.form("content")))  
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('修改成功！');history.go(-1);</script>"
response.End
conn.close
set conn=nothing

end select
%>