<%
If request("action")="add" then
if session("user")="" then
u1="user"&now()
u1=replace(u1,"-","")
u1=replace(u1," ","")
u1=replace(u1,":","")
session("user")=u1
else
set rs=server.createobject("adodb.recordset")
sql="select * from member where cname='"&session("user")&"'"
rs.open sql,conn,1,1
if not rs.eof then
cvip=rs("vip")
end if
rs.close
set rs=nothing
end if
set rs=server.createobject("adodb.recordset")
sql="select * from goods where id="&request("buyid")
rs.open sql,conn,1,1
if rs.eof then
response.write"
没有商品存在
"
response.end
else
thesp=rs("sp_name")
filename1=rs("filename")
if cvip=false then
cprice=rs("memprice")
jifen1=rs("jifen")
else
cprice=rs("vipprice")
jifen1=rs("jifen")
end if
if jf1+jifen1<0 then
response.write ""
response.end
end if
end if
if request("count")="" then
pcount=1
else
pcount=request("count")
end if
sp=request("buyid")
set rs=server.createobject("adodb.recordset")
sql="select * from basket where sp_id='"&sp&"' and user_name='"&session("user")&"' and basket_check=false"
rs.open sql,conn,3,3
if rs.eof then
rs.addnew
rs("sp_id")=sp
rs("user_name")=session("user")
rs("count")=pcount
rs("basket_date")=now()
rs("sp_name")=thesp
rs("filename")=filename1
rs("memprice")=cprice
rs("jifen")=jifen1
else
rs("count")=int(rs("count"))+int(pcount)
end if
rs.update
rs.close
set rs=nothing
%>
<%
end if
%>