<!--#include file="conn.asp"-->
<!-- #include file="inc/null.inc" -->
<%




dim productdate,discount

dim action,id,temp,strContent,i,strDetail
ptypeid=SafeRequest("ptype",1)
strtproduct_bh=trim(request.form("tproduct_bh"))
action=FormatSQL(SafeRequest("action",0))
select case action
case "add"
arrStr = Split (strtproduct_bh, ",")
For i = 0 To Ubound (arrStr)
				tproduct_bhid =  arrStr (i)
				
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from tproduct_tj",conn,1,3
rs.AddNew
rs("ptype")=ptypeid 

rs("tproduct_bh")=tproduct_bhid
rs.Update
rs.close
set rs=nothing
Next
conn.close
set conn=nothing

response.redirect "chkpro_tj.asp?ptype="&ptypeid
response.End

case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from tproduct where id="&id,conn,1,3
rs("tproduct")=trim(request.form("name")) 
rs("tpp")=trim(request.form("tpp")) 
rs("tproduct_bh")=cint(request.form("product_bh")) 
rs("dcreatedate")=now() 
rs("tprice")=trim(request.form("price")) 
rs("tpricenet")=trim(request.form("pricenet")) 
rs("tprice1")=trim(request.form("price1"))  
rs("tprice2")=trim(request.form("price2")) 
rs("tprice3")=trim(request.form("price3")) 
rs("tprice4")=trim(request.form("price4"))  
rs("amount")=request.form("amount") 
rs("stock")=request.form("stock") 
rs("tproduct_cz")=trim(request.form("product_cz")) 
rs("tproduct_cd")=trim(request.form("product_cd")) 
rs("tproduct_mz")=trim(request.form("product_mz")) 
rs("tproduct_size")=trim(request.form("product_size")) 
rs("tdesigner")=trim(request.form("carstype")) 
rs("aclassid")=trim(request.form("categoryid")) 
rs("anclassid")=trim(request.form("sortsid")) 
rs("recommend")=trim(request.form("recommend")) 
rs("discount")=discount 
rs("tcontent")=Request("Content")
rs("score")=request.form("score") 
rs.Update
rs.Close
set rs=nothing
conn.close
set conn=nothing
response.redirect "chkpro.asp"
response.End
end select
%>