jszx.asp

21世纪人才www.51zy.net 网站源码

		fudongjia_dj=rs_s("emsvip")
		else
		fudongjia_dj=rs_s("emshy")
		end if
		end if
response.write fudongjia_dj
rs_s.close
set rs_s=nothing
%></td>
    <td><%=rs("zonger")%> 元</td>
<%
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
'算每件商品的浮动价
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_fudong where id="&rs("banci"),conn,1,1 
fudongjia=fudongjia+rs("bookcount")*fudongjia_dj
rs_s.close
set rs_s=nothing

firstshjid=rs("shjiaid")
rs.movenext
if not rs.eof then
nextshjid=rs("shjiaid")
end if
if rs.recordcount<>1 and firstshjid<>nextshjid then
response.write "<script language=javascript>alert('对不起，您选购的商品不属于同一个商家，请重新下订单！');window.close();</script>"
exit do
end if
loop
rs.close
set rs=nothing%></tr>
</table>
<p>货款总计：<span class="new"><%=zongji%></span> 元</p>
<%set godbook=server.CreateObject("adodb.recordset")
godbook.open "select * from shop_action_jp where username='"&request.cookies("godbook")("username")&"' and zhuangtai=7",conn,1,1
if godbook.recordcount>0 then%>
<table width="590" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2">您已选择的奖品清单</td>
    </tr>
  <tr>
    <td>奖品名称</td>
    <td>使用积分</td>
  </tr>
<%while not godbook.eof%>
  <tr>
    <td><%set godbook1=server.CreateObject("adodb.recordset")
	godbook1.open "select * from shop_jiangpin where bookid="&godbook("bookid"),conn,1,1
	if godbook1.recordcount=1 then
	response.write "<font color=blue>"&godbook1("bookname")&"</font>"
	end if
	godbook1.close
	set godbook1=nothing%></td>
    <td><%=godbook("jifen")%></td>
  </tr><%godbook.movenext
wend%>
</table>
<%end if
godbook.close
set godbook=nothing%>
<div class="left">
<table width="300" cellpadding="0" cellspacing="0">
<tr><td class="top">姓名：</td>
<td class="top"><%=request("userzhenshiname")%></td></tr>
<tr><td>邮编：</td>
<td><%=request("youbian")%></td></tr>
<tr><td>地址：</td>
<td><%=request("shouhuodizhi")%></td></tr>
<tr><td>电话：</td>
<td><%=request("usertel")%></td></tr>
<tr><td>邮箱：</td>
<td><%=request("useremail")%></td></tr>
<tr><td>送货：</td>
<td> 
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&request("songhuofangshi"),conn,1,1
response.write rs("subject")
rs.close
set rs=nothing%>
</td></tr>
<tr> 
<td>支付：</td>
<td><%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&request("zhifufangshi"),conn,1,1
response.write rs("subject")
rs.close
set rs=nothing%></td>
</tr>
</table>
</div>
<form name="shouhuoxx" method="post" action="jszx.asp?action=ok">
<div class="right">
<table width="280" cellpadding="0" cellspacing="0">
<%
'计算费用
'先取出参数
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_sys ",conn,1,1
t_sm1=rs("sm1")
t_sm2=rs("sm2")
t_sm3=rs("sm3")
t_py1=rs("py1")
t_py2=rs("py2")
t_py3=rs("py3")
t_ems1=rs("ems1")
t_ems2=rs("ems2")
t_ems3=rs("ems3")

'先看是不是送货
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&trim(request("songhuofangshi")),conn,1,1
if cint(request("songhuofangshi"))=3 then	'先看是不是送货
	rs.close
	if request.cookies("godbook")("reglx")=2 then
		if zongji>=t_sm3 then 
		jijia=0
		else
		jijia=t_sm1
		end if
	else
		if zongji>=t_sm2 then 
		jijia=0
		else
		jijia=t_sm1
		end if
	end if
	feiyong=jijia+fudongjia
else
	'不是送货上门的还要看是什么方式送货
	if cint(request("songhuofangshi"))=1 then	'看是不是"普通平邮"
		rs.close
		if request.cookies("godbook")("reglx")=2 then
			if zongji>=t_py2 then 
			jijia=t_py1-t_py3
			else
			jijia=t_py1
			end if
			else
			jijia=t_py1
		end if
		else
		rs.close
		if request.cookies("godbook")("reglx")=2 then
			if zongji>=t_ems2 then 
			jijia=t_ems1-t_ems3
			else
			jijia=t_ems1
			end if
			else
			jijia=t_ems1
		end if
		end if
	'算商品基价+浮动价=费用
	
	feiyong=jijia+fudongjia
	if request("zhifufangshi")=17 then
          '得到预存款
          set rs2=server.CreateObject("adodb.recordset")
          rs2.Open "select yucun from [user] where username='"&request.cookies("godbook")("username")&"'",conn,1,1
          yucunkuan=rs2("yucun")
          rs2.close
          set rs2=nothing
	  if yucunkuan<feiyong+zongji then
	  	response.write "<script language=javascript>alert('您的预存款不足，请更换支付方式！');history.go(-1);</script>"
	end if
	end if
	end if%>
<tr> 
<td class="top"><ul><li>您的送货费用计：<%=feiyong%> 元</li><li>其中基价：<%=jijia%> 元</li><li>浮动价：<%=fudongjia%> 元</li><li><a href="help.asp?action=feiyong"><strong>查看送货费用说明</strong></a></li></ul></td>
</tr>
<tr> 
<td class="non"><span class="new">您的订单总金额：<%=feiyong+zongji%> 元</span></td>
</tr>
<tr>
  <td class="non"><input type="text" name="liuyan" class="liuyan" value="您对此订单的特殊说明(30字内)" onfocus="this.select()" onclick="if(this.value=='您对此订单的特殊说明(30字内)')this.value=''" /> </td>
</tr>
<tr>
  <td class="non"><input type="checkbox" name="fapiao" value="1" class="noborder" />是否要发票？ 
			<input name="userzhenshiname" type="hidden" value="<%=trim(request("userzhenshiname"))%>" />
			<input name="shousex" type="hidden" value="<%=trim(request("shousex"))%>" />
			<input name="useremail" type="hidden" value="<%=trim(request("useremail"))%>" />
			<input name="shouhuodizhi" type="hidden" value="<%=trim(request("shouhuodizhi"))%>" />
			<input name="youbian" type="hidden" value="<%=trim(request("youbian"))%>" />
			<input name="usertel" type="hidden" value="<%=trim(request("usertel"))%>" />
			<input name="songhuofangshi" type="hidden" value="<%=trim(request("songhuofangshi"))%>" />
			<input name="zhifufangshi" type="hidden" value="<%=trim(request("zhifufangshi"))%>" />
			<input name="feiyong" type="hidden" value="<%=feiyong%>" />
			<input name="zongji" type="hidden" value="<%=zongji%>" />
			<input name="userid" type="hidden" value="<%=request("userid")%>" />
</td>
</tr>
</table>
</div>
<div class="clear-both">&nbsp;</div>
<p><input type="button" name="Submit22" value="" class="front" onclick="javascript:history.go(-1)" />
<input type="submit" name="Submit42" value="" class="allok" /></p>
</form>
<%
case "ok"
'/////////////////////////////////////////////////
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

'修改用户的送货信息
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("godbook")("username")&"'",conn,1,3
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("sex")=trim(request("shousex"))
rs("useremail")=trim(request("useremail"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("youbian")=trim(request("youbian"))
rs("usertel")=trim(request("usertel"))
rs("songhuofangshi")=trim(request("songhuofangshi"))
rs("zhifufangshi")=trim(request("zhifufangshi"))
rs.update
rs.close
set rs=nothing

if session("xiadan")<>minute(now) then
'再判断库存
'未写

dim shijian,dingdan
shijian=now()
'dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
'response.write bookid
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_action where username='"&request.cookies("godbook")("username")&"' and zhuangtai=7",conn,1,3
dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
do while not rs.eof
'得到价格，减库存
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_books where bookid="&rs("bookid"),conn,1,3
if request.Cookies("godbook")("reglx")=2 then 
danjia=rs2("vipjia")
else
danjia=rs2("huiyuanjia")
end if
rs2("chengjiaocount")=rs2("chengjiaocount")+rs("bookcount")
rs2("kucun")=rs2("kucun")-rs("bookcount")
rs2.update
rs2.close
set rs2=nothing
'rs.addnew
'rs("username")=trim(request.cookies("bookshop")("username"))
'rs("bookid")=rs2("bookid")
rs("actiondate")=shijian
'rs("bookcount")=CInt(Request("godbook"&rs2("bookid")))
if request("zhifufangshi")=17 then    '送货上门或预存款支付，直接改为订单完成（已收到款）
rs("zhuangtai")=3
else
rs("zhuangtai")=1
end if
rs("dingdan")=dingdan
rs("youbian")=int(request("youbian"))
rs("shouhuoname")=trim(request("userzhenshiname"))
rs("shouhuodizhi")=trim(request("shouhuodizhi"))
rs("zhifufangshi")=int(request("zhifufangshi"))
rs("songhuofangshi")=int(request("songhuofangshi"))
rs("shousex")=int(request("shousex"))
rs("liuyan")=HTMLEncode2(trim(request("liuyan")))
'rs("zonger")=request("zongji")
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("useremail")=trim(request("useremail"))
rs("usertel")=trim(request("usertel"))
rs("userid")=request("userid")
'新增
if request("fapiao")<>1 then 
fapiao=0
else
fapiao=1
end if
rs("fapiao")=fapiao
rs("feiyong")=request("feiyong")
rs("danjia")=danjia
rs.update
'rs.close
'set rs=nothing
'conn.execute "delete from shop_action where username='"&request.cookies("bookshop")("username")&"' and bookid in ("&bookid&") and zhuangtai=6"
rs.movenext
loop
rs.close
set rs=nothing
'再改奖品
z_jifen=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_action_jp where username='"&request.cookies("godbook")("username")&"' and zhuangtai=7",conn,1,3
do while not rs.eof
rs("actiondate")=shijian
rs("zhuangtai")=5
rs("dingdan")=dingdan
rs("userid")=request("userid")
z_jifen=z_jifen+rs("jifen")
rs.update
rs.movenext
loop
rs.close
set rs=nothing
'减去积分
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("godbook")("username")&"'",conn,1,3
rs("jifen")=rs("jifen")-z_jifen
'如果是在线支付，要扣预存款
if request("zhifufangshi")=17 then 
rs("yucun")=rs("yucun")-request("feiyong")-request("zongji")
end if
rs.update
rs.close
set rs=nothing

session("xiadan")=minute(now)
else
response.Write "<center>您不能重复提交！</center>"
response.End
end if
%>
<ul class="allok"><li>您的订单已经成功提交，我们会在第一时间进行处理，请记清您的订单号以备查询。</li><li>订单号：<span class="new"><%=dingdan%></span></li><li>订单查询：您可通过“<a href="javascript:;" onclick="javascript:window.open('user.asp','','')"><strong>我的专区</strong></a>”&gt;&gt;“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=dindan','','')"><strong>我的订单</strong></a>”查询您的订单状态。</li><li>购物积分：请在收货后通过“<a href="javascript:;" onclick="javascript:window.open('user.asp','','')"><strong>我的专区</strong></a>”&gt;&gt;“<a href="javascript:;" onclick="javascript:window.open('user.asp?action=dingdan','','')"><strong>我的订单</strong></a>”及时更改您的订单状态为“完成”，因为每笔订单的积分只有在订单完成后才能累计到您的购物积分中。</li>
<%if request("zhifufangshi")=17 then %>
<li>您是通过预存款支付的，我们会尽快地给你发货的！<script language="javascript" type="text/javascript">alert('您是通过预存款支付的，我们会尽快地给你发货的！');</script>
</li>
<%else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&trim(request("zhifufangshi")),conn,1,1
if trim(rs("subject"))="货到付款" then
rs.close
set rs=nothing
%>
<li>您是选择的“货到付款”，我们会尽快给您送货的！<script language="javascript" type="text/javascript">alert('您是选择的“货到付款”，请确认您的订单，我们会尽快给您送货的！');</script></li>
<%else
rs.close
set rs=nothing%>
<li>请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的<span class="new">订单号</span>！<script language="javascript" type="text/javascript">alert('请您在一周内依照您选择的支付方式进行汇款，汇款时请注明您的订单号！');</script></li>
<%end if%>
<%end if%>
</ul>
<p><a href="#" onclick="javascript:window.close()">关闭窗口</a><span class="lit">　订单提交完成 创建时间：<%=shijian%>&nbsp;</span></p>
<%end select%>
		</div>
    </div>
</div>
<div class="clear-both">&nbsp;</div>
<!-- 服务声明 -->
<!--#include file="service.asp" -->
<!-- 版权信息 -->
<!--#include file="copyright.asp" -->
</body>
</html>