ok-tianjia.asp

电子商务系统Easy_Buy是一个在线销售系统

<!--#include file="0.asp"-->
<!--#include file="../../conn/conn.asp" -->
<!--#include file="../../conn/nosql.asp" -->
<%
'数量判断
Set s= Server.CreateObject("abodb.recordset")
sl1 = conn.execute("select sl from user_name where id="&clng(request("id"))&"")(0)
sl2 = conn.execute("select count(id) from chanpin where userid="&clng(request("id"))&"")(0)
if sl2>=sl1 then
Response.Write("<script>alert(""您的产品数量已经达到限度，如想添加更多产品请升级您的网站类型！"");history.back();</script>")
Response.end
end if
'产品添加
Set s= Server.CreateObject("abodb.recordset")
lbid=clng(request("lbid"))
xlbid=clng(request("xlbid"))
slb=nosql(replace(request("slb"),"'",""))
mc=nosql(replace(request("mc"),"'",""))
js=nosql(replace(request("js"),"'",""))
jp=nosql(replace(request("jp"),"'",""))
bao=nosql(replace(request("bao"),"'",""))
jg2=FormatNumber(ccur(request("jg2")),2)
xt=nosql(replace(request("xt"),"'",""))
zt=nosql(replace(request("zt"),"'",""))
dt=nosql(replace(request("dt"),"'",""))
cj=nosql(replace(request("cj"),"'",""))
userlb=nosql(replace(request("userlb"),"'",""))
userid=clng(request("id"))
If request("jg1")="" then
	jg1=FormatNumber(ccur(request("jg2")),2)
else
jg1=FormatNumber(ccur(request("jg1")),2)
end if
If request("jg3")="" then
jg3=FormatNumber(ccur(request("jg2")),2)
else
jg3=FormatNumber(ccur(request("jg3")),2)
end if
If request("xt")="" then
	xt="xt.gif"
end if
If request("zt")="" then
	zt="zt.gif"
end if
If request("dt")="" then
	dt=zt
end if
if request("cang")="" then
cang="0"
else
cang="1"
end if
set rs=server.createobject("adodb.recordset")
sql="select * from chanpin" 
rs.open sql,conn,1,3
rs.addnew
rs("lbid")=lbid
rs("xlbid")=xlbid
rs("slb")=slb
rs("userlb")=userlb
rs("mc")=mc
rs("jg1")=jg1
rs("jg2")=jg2
rs("jg3")=jg3
rs("js")=js
rs("jp")=jp
rs("bao")=bao
rs("userid")=userid
For i = 1 To Request.Form("js").Count 
strDetail = strDetail & Request.Form("js")(i) 
Next 
Set s= Server.CreateObject("abodb.recordset")
rs("js")=strDetail
rs("xt")=xt
rs("zt")=zt
rs("dt")=dt
rs("cj")=cj
rs("cang")=cang
rs.update
rs.close
'增加数据到产品添加时间限制
Set s= Server.CreateObject("abodb.recordset")
set rs = conn.execute("select top 1 id from chanpin where mc='"&mc&"' order by id desc")
id=rs("id")
rs.close
conn.execute("Insert into sj_xianzhi(id,lx)values("&id&",0)")
Response.Write "<script>alert(""添加成功"");location.href=""guanli.asp"";</script>"
%>