saveaddbook.asp

闲置物品免费交易的平台

<!--#include file="conn.asp"-->
<%
if request.Cookies("days6")("username")="" and request.Cookies("days6")("shjianame")="" then
response.write "<script language=javascript>alert('对不起，您还没有登陆！');history.go(-1);</script>"
response.End
end if
if session("addtime")<>"" then
  if DateDiff("s",session("addtime"),Now())<10 then
  response.write "<script language=javascript>alert('你提交数据太快，请等10秒在提交！');history.go(-1);</script>"
  response.end
  end if
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 bookdate,dazhe
dazhe=round(request("huiyuanjia")/request("shichangjia"),2)

dim action,bookid
bookid=request.QueryString("id")
action=request.QueryString("action")
shjianame=request.cookies("days6")("shjianame")


select case action
case "add"
set rs_news=server.CreateObject("adodb.recordset")
rs_news.open "select * from shjia where username='"&shjianame&"'",conn,1,3
name=rs_news("name")

a=trim(request("a"))
b=int(request("b"))
c=trim(request("c"))
d=trim(request("d"))

set rs_user=server.CreateObject("adodb.recordset")
rs_user.Open "select userzhenshiname,a,b,c,d from [user] where username='"&request.cookies("days6")("username")&"'",conn,1,3

if shjianame="" then
if len(a)=6 then
  rs_user("a")=rs_user("a")-1
end if
if b="" or b="0" then
b=0
else
  if rs_user("b")<int(b) then
  response.end
  end if
rs_user("b")=rs_user("b")-int(b)
end if
if c="1" then
rs_user("c")=rs_user("c")-1
end if
if d="1"then
rs_user("d")=rs_user("d")-1
end if
rs_user.update
else
if rs_news("addtimes")<=1 then
 response.write "<script language=javascript>alert('你的商家已经到期，如要继续使用——请购买！');history.go(-1);</script>"
 response.end
 else
rs_news("addtimes")=rs_news("addtimes")-1
rs_news("allbooks")=rs_news("allbooks")+1
rs_news.update
end if
end if


set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_books",conn,1,3
rs.AddNew
if shjianame<>"" then
rs("shjianame")=rs_news("name")
rs("shjiaid")=rs_news("shjiaid")
else
rs("shjianame")="诚信专卖"
rs("shjiaid")=4421
rs("name")=rs_user("userzhenshiname")
end if
rs_news.close
rs_user.close
set rs_news=nothing
set rs_user=nothing
rs("mch")=trim(request("mch")) '
rs("pp")=trim(request("pp")) '
rs("isbn1")=trim(request("isbn1")) '
rs("jj")=trim(request("jj")) '
rs("jg")=trim(request("jg")) '
rs("zl")=trim(request("zl")) '
rs("tp")=trim(request("tp")) '
rs("nr")=trim(request("nr")) '
rs("anclassid")=int(request("anclassid")) '大类
rs("nclassid")=int(request("nclassid")) '小类
'rs("shjclassid")=int(request("shjclassid")) '商家分类
rs("bookname")=trim(request("bookname")) '商品名称
rs("pingpai")=trim(request("pingpai")) '商品品牌
rs("isbn")=trim(request("isbn")) '商品规格
rs("bookchuban")=trim(request("bookchuban")) '商品单位
rs("shichangjia")=trim(request("shichangjia"))  '市场价
rs("huiyuanjia")=trim(request("huiyuanjia"))  '会员价
rs("vipjia")=trim(request("vipjia"))  'VIP价
rs("dazhe")=trim(request("xjcdu"))
rs("kucun")=trim(request("kucun"))  '商品库存
rs("bookpic")=trim(request("bookpic"))  '小图片地址
rs("zhuang")=trim(request("zhuang")) '大图片地址
rs("bookcontent")=htmlencode2(trim(request("bookcontent")))  '简介
rs("banci")=request("fudongjia")  '浮动价
rs("yeshu")=trim(request("xinyongdu"))  '商品积分

if request("a")="" then
rs("a")=0
else
rs("a")=trim(request("a"))
end if
if request("b")="" then
rs("b")=0
else
rs("b")=trim(request("b"))
end if
if request("c")="" then
rs("c")=0
else
rs("c")=trim(request("c"))
end if
if request("d")="1" then
rs("yz")=1
rs("d")=1
else
rs("yz")=0
rs("d")=0
end if

rs("baoxiu")=trim(request("baoxiu"))
rs("fhfs")=trim(request("fhfs"))
rs("shjiabestbook")=trim(request("ykj"))
rs("bestbook")=trim(request("fp"))
rs("shjianewsbook")=trim(request("xjcd"))
rs("newsbook")=trim(request("yfei"))
rs("shjiatejiabook")=trim(request("ykjia"))
rs("tejiabook")=trim(request("skfs"))
rs("yikoujia")=trim(request("yikoujia"))
rs("jjtd")=trim(request("jjtd"))
rs("jjtdu")=trim(request("jjtdu"))

rs("count")=0
rs("chengjiaocount")=0  '成交计数
rs("liulancount")=0  '浏览计数
rs("adddate")=now()  '加入日期
rs("pingji")=0  '评级人数
rs("pingjizong")=0 '总评级
rs("closedate")=DateAdd("d", trim(request("fudongjia")), NOW())  '结束日期
'rs("bookmulu")=htmlencode2(trim(request("bookmulu")))  '目录
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then 
userip=Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
rs.Update
bookid=rs("bookid")
session("addtime")=now()
rs.Close
set rs=nothing

response.Write "<script language=javascript>alert('添加成功！');history.go(-1);</script>"
response.End

case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_books where bookid="&bookid,conn,1,3
rs("mch")=trim(request("mch")) '
rs("pp")=trim(request("pp")) '
rs("isbn1")=trim(request("isbn1")) '
rs("jj")=trim(request("jj")) '
rs("jg")=trim(request("jg")) '
rs("zl")=trim(request("zl")) '
rs("tp")=trim(request("tp")) '
rs("nr")=trim(request("nr")) '
rs("anclassid")=int(request("anclassid")) '大类
rs("nclassid")=int(request("nclassid")) '小类
rs("bookname")=trim(request("bookname")) '商品名称
rs("pingpai")=trim(request("pingpai")) '商品品牌
rs("isbn")=trim(request("isbn")) '商品规格
rs("bookchuban")=trim(request("bookchuban")) '商品单位
rs("shichangjia")=trim(request("shichangjia"))  '市场价
rs("huiyuanjia")=trim(request("huiyuanjia"))  '会员价
rs("vipjia")=trim(request("vipjia"))  'VIP价
rs("dazhe")=trim(request("xjcdu"))
rs("kucun")=trim(request("kucun"))  '商品库存
rs("bookpic")=trim(request("bookpic"))  '小图片地址
rs("zhuang")=trim(request("zhuang")) '大图片地址
rs("bookcontent")=htmlencode2(trim(request("bookcontent")))  '简介
rs("banci")=request("fudongjia")  '浮动价
rs("yeshu")=trim(request("xinyongdu"))  '商品积分

rs("baoxiu")=trim(request("baoxiu"))
rs("fhfs")=trim(request("fhfs"))
rs("shjiabestbook")=trim(request("ykj"))
rs("bestbook")=trim(request("fp"))
rs("shjianewsbook")=trim(request("xjcd"))
rs("newsbook")=trim(request("yfei"))
rs("shjiatejiabook")=trim(request("ykjia"))
rs("tejiabook")=trim(request("skfs"))
rs("yikoujia")=trim(request("yikoujia"))
rs("jjtd")=trim(request("jjtd"))
rs("jjtdu")=trim(request("jjtdu"))

rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('修改成功！');history.go(-1);</script>"
response.End
end select
%>