jszx.asp

购物系统(本版为正式商业版

                                            <%
	snsn.movenext
	wend%>
                                          </table> 
                                           <%end if
snsn.close
set snsn=nothing%><br>
                                        </td>
                                      </tr>
                                      <tr bgcolor="#FFFFFF">
                                        <td width="594"  align="center" valign="top">
                                          <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="73D1E9" class="table-zuoshang">
                                           <tr align="center" bgcolor="#C0E9F5" class="a1">
                                              <td height="23" colspan="2"  ><b>您的订单信息</b></td>
                                            </tr><tr bgcolor="#FFFFFF">
                                              <td height="22" align="center" bgcolor="#FFFFFF"  >姓名<br>                                              </td>
                                              <td width="84%"  >&nbsp;<%=checkFFSQLStr(trim(request("userzhenshiname")))%></td>
                                            </tr>
                                            <tr bgcolor="#FFFFFF">
                                              <td height="22" align="center" bgcolor="#FFFFFF"  >邮编<br>                                              </td>
                                              <td width="84%"  >&nbsp;<%=trim(request("youbian"))%></td>
                                            </tr>
                                            <tr bgcolor="#FFFFFF">
                                              <td height="22" align="center" bgcolor="#FFFFFF"  >地址<br>                                              </td>
                                              <td width="84%"  >&nbsp;<%=checkFFSQLStr(trim(request("shouhuodizhi")))%></td>
                                            </tr>
                                            <tr bgcolor="#FFFFFF">
                                              <td height="22" align="center" bgcolor="#FFFFFF"  >电话<br>                                              </td>
                                              <td width="84%"  >&nbsp;<%=checkFFSQLStr(trim(request("usertel")))%></td>
                                            </tr>
                                            <tr bgcolor="#FFFFFF">
                                              <td height="22" align="center" bgcolor="#FFFFFF"  >邮箱 </td>
                                              <td width="84%"  >&nbsp;<%=trim(request("useremail"))%></td>
                                            </tr>
                                            <tr bgcolor="#FFFFFF">
                                              <td height="22" align="center" bgcolor="#FFFFFF"  >送货 </td>
                                              <td width="84%"  > &nbsp;<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_sys where songid="&nosql(request("songhuofangshi")),conn,1,1
response.write rs("fsh")
rs.close
set rs=nothing%>                                              </td>
                                            </tr>
                                            <tr bgcolor="#FFFFFF">
                                              <td height="22" align="center" bgcolor="#FFFFFF"  >支付</td>
                                              <td width="84%"  >&nbsp;<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&nosql(request("zhifufangshi")),conn,1,1
response.write rs("subject")
rs.close
set rs=nothing%></td>
                                            </tr>
                                        </table></td>
                                        <td width="356"  align="center" valign="top">
                                          <table width="98%" border="0" align="right" cellpadding="0" cellspacing="1" bgcolor="73D1E9" class="table-zuoshang">
                                            <tr align="center"  >
                                              <td height="23" colspan="2" align="center" bgcolor="#C0E9F5" class="a1"><b>送货费计算</b></td>
                                            </tr>
                                            <%
'计算费用
'先取出参数
set rsfy=server.CreateObject("adodb.recordset")
rsfy.open "select * from shop_sys where songid="&nosql(cint(request("songhuofangshi")))&"",conn,1,1
if zongji>=rsfy("je") then 
				jijia=rsfy("fy")-rsfy("mje")
else
				jijia=rsfy("fy")
end if
rsfy.close
	'算商品基价+浮动价=费用
	feiyong=jijia+fudongjia
	if request("zhifufangshi")=1 then
          '得到预存款
          set rs2=server.CreateObject("adodb.recordset")
          rs2.Open "select yucun from [shop_user] where username='"&nosql(session("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

zj=feiyong+zongji
%>
                                            <tr>
                                              <td height="22" align="right" bgcolor="#FFFFFF"   style='PADDING-right: 20px'>你的总价为： <%=formatnumber(zj,2)%></td>
                                            </tr>
                                            <tr>
                                              <td height="22" align=right bgcolor="#FFFFFF"   style='PADDING-right: 20px'>您的送货费用计：　<%=feiyong%> 元</td>
                                            </tr>
                                            <tr>
                                              <td height="22" align=right bgcolor="#FFFFFF"   style='PADDING-right: 20px'>(其中　　基价：<%=jijia%>元)</td>
                                            </tr>
                                            <tr>
                                              <td height="22" align=right bgcolor="#FFFFFF"   style='PADDING-right: 20px'>(浮动价：<%=fudongjia%>元)</td>
                                            </tr>
                                            <tr>
                                              <td height="22" bgcolor="#FFFFFF"  >&nbsp;</td>
                                            </tr>
                                            <tr>
                                              <td height="22" align=right bgcolor="#FFFFFF"   style='PADDING-right: 20px'><b><font color="#FF0000">订单总金额 ： <%=formatnumber(zj,2)%>元</font></b></td>
                                            </tr>
                                            <tr>
                                              <td height="22" align=right bgcolor="#FFFFFF"  ><a href="help.asp?action=feiyong" target=_blank>查看送货费用说明</a>&nbsp;</td>
                                            </tr>
                                        </table></td>
                                      </tr>
                                      <form name="shouhuoxx" method="post" action="jszx.asp?action=ok">
                                        <tr bgcolor="#FFFFFF" align="center">
                                          <td colspan="2">
                                            <table width="98%" border="0" cellspacing="0" cellpadding="2">
                                              <tr>
                                                <td width="27%">
                                                  <input name="fapiao" type="checkbox" id="fapiao" value="1">
                                      要求发票<font color="#FF3300">&nbsp;</font>
                                      <input name="shopname" type="hidden" value=<%=nosql(shopname)%>>
                                      <input name="userzhenshiname" type="hidden" value=<%=nosql(trim(request("userzhenshiname")))%>>
                                      <input name="shousex" type="hidden" value=<%=nosql(trim(request("shousex")))%>>
                                      <input name="useremail" type="hidden" value=<%=nosql(trim(request("useremail")))%>>
                                      <input name="shouhuodizhi" type="hidden" value=<%=nosql(trim(request("shouhuodizhi")))%>>
                                      <input name="youbian" type="hidden" value=<%=nosql(trim(request("youbian")))%>>
                                      <input name="usertel" type="hidden" value=<%=nosql(trim(request("usertel")))%>>
                                      <input name="songhuofangshi" type="hidden" value=<%=nosql(trim(request("songhuofangshi")))%>>
                                      <input name="zhifufangshi" type="hidden" value=<%=nosql(trim(request("zhifufangshi")))%>>
                                      <input name="feiyong" type="hidden" value=<%=nosql(feiyong)%>>
                                      <input name="zongji" type="hidden" value=<%=nosql(zongji)%>>
                                      <input name=userid type=hidden value="<%=nosql(request("userid"))%>" >
                                                </td>
                                                <td width="42%">您对此订单的特殊说明(30字内) <br>
                                                    <input name="liuyan" type="text" class="wenbenkuang" id="liuyan" size="30" maxlength="30">
                                                </td>
                                                <td width="31%" align="center" height="60">
                                                  <input type="button" name="Submit222" class="go-wenbenkuang" value="上一步" onClick="javascript:history.go(-1)">
                                                  <input type="submit" name="Submit422" class="go-wenbenkuang" value="完成">
                                                </td>
                                              </tr>
                                          </table></td>
                                        </tr>
                                      </form>
                                  </table></td>
                                </tr>
                            </table></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
            </table>
            <%
case "ok"
'修改用户的送货信息
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_user] where username='"&nosql(session("username"))&"'",conn,1,3
rs("userzhenshiname")=nosql(trim(request("userzhenshiname")))
rs("sex")=nosql(trim(request("shousex")))
rs("useremail")=nosql(trim(request("useremail")))
rs("shouhuodizhi")=nosql(trim(request("shouhuodizhi")))
rs("youbian")=nosql(trim(request("youbian")))
rs("usertel")=nosql(trim(request("usertel")))
rs("songhuofangshi")=nosql(trim(request("songhuofangshi")))
rs("zhifufangshi")=nosql(trim(request("zhifufangshi")))
rs.update
rs.close
set rs=nothing

if session("xiadan")<>minute(now) then
'再判断库存
set rs=server.CreateObject("adodb.recordset")
rs.open "select sum(shopcount) as Sum_jianshu,sum(zonger) as Sum_zonger from shop_action where username='"&nosql(session("username"))&"' and zhuangtai=7",conn,1,1 
rs.close
dim shijian,dingdan
shijian=now()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_action where username='"&nosql(session("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_snsn where shopid="&rs("shopid"),conn,1,3
if (session("reglx")=2)  then 
	danjia=rs2("vipjia")
else
	danjia=rs2("huiyuanjia")
end if
rs2("chengjiaocount")=rs2("chengjiaocount")+rs("shopcount")
rs2("kucun")=rs2("kucun")-rs("shopcount")
rs2.update
rs2.close
set rs2=nothing
rs("actiondate")=now()
rs("zhuangtai")=1
rs("dingdan")=dingdan
rs("youbian")=nosql(int(request("youbian")))
rs("shouhuoname")=nosql(trim(request("userzhenshiname")))
rs("shouhuodizhi")=nosql(trim(request("shouhuodizhi")))
rs("zhifufangshi")=nosql(int(request("zhifufangshi")))
rs("songhuofangshi")=nosql(int(request("songhuofangshi")))
rs("shousex")=nosql(int(request("shousex")))
rs("liuyan")=HTMLEncode2(checkFFSQLStr(trim(request("liuyan"))))
rs("userzhenshiname")=nosql(trim(request("userzhenshiname")))
rs("useremail")=nosql(trim(request("useremail")))
rs("usertel")=nosql(trim(request("usertel")))
rs("userid")=nosql(request("userid"))
'新增
if request("fapiao")<>1 then 
fapiao=0
else
fapiao=1
end if
rs("fapiao")=fapiao
rs("feiyong")=nosql(request("feiyong"))
rs("danjia")=danjia
rs("zonger")=danjia*rs("shopcount")
rs.update
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='"&nosql(session("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 [shop_user] where username='"&nosql(session("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
'/////////////HTML
'发送邮件
set rs=server.CreateObject("adodb.recordset")
rs.Open "select mailaddress,mailusername,mailuserpass,mailname,mailsend from shop_config",conn,1,1
mailaddress=rs("mailaddress")
mailusername=rs("mailusername")
mailuserpass=rs("mailuserpass")
mailname=rs("mailname")
mailsend=rs("mailsend")
rs.close
set rs=nothing
	topic="您在" & webname & "的订单信息"
	mailbody="<html>"
	mailbody=mailbody & "<title>订单信息</title>"
	mailbody=mailbody & "<body>"
	mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
	mailbody=mailbody & "<TD valign=middle align=top>"
	mailbody=mailbody & session("username")&"("&trim(request("userzhenshiname"))&")"&"，您好：<br><br>"
	mailbody=mailbody & "下面是您在" & webname & "的订单信息：<br><br>"
	mailbody=mailbody & "订单号："& dingdan &"<br>"
	mailbody=mailbody & "<br><br>"
	mailbody=mailbody&""&webname&" ◎ 客户服务中心<br>" 
    mailbody=mailbody&"================================================== <br>电话："&dianhua&"<br>"
  mailbody=mailbody&"Email："&webemail&"