jszx.asp

采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 美观、友好的展示铺面 设计中应用了多种网络安全技术 顾客可以方便的查询并订购商品 用户可以方便的定义各种商品信息

  }
  if(document.shouhuoxx.youbian.value.length!=6) {
	document.shouhuoxx.youbian.focus();
    alert("对不起，请正确填写邮编！");
	return false;
  } 
    if(checkspace(document.shouhuoxx.usertel.value)) {
	document.shouhuoxx.usertel.focus();
    alert("对不起，请留下您的电话！");
	return false;
  }
    if(checkspace(document.shouhuoxx.songhuofangshi.value)) {
	document.shouhuoxx.songhuofangshi.focus();
    alert("对不起，请选择送货方式！");
	return false;
  }
    if(checkspace(document.shouhuoxx.zhifufangshi.value)) {
	document.shouhuoxx.zhifufangshi.focus();
    alert("对不起，请选择支付方式！");
	return false;
  }
  if(document.shouhuoxx.useremail.value.length!=0)
  {
    if (document.shouhuoxx.useremail.value.charAt(0)=="." ||        
         document.shouhuoxx.useremail.value.charAt(0)=="@"||       
         document.shouhuoxx.useremail.value.indexOf('@', 0) == -1 || 
         document.shouhuoxx.useremail.value.indexOf('.', 0) == -1 || 
         document.shouhuoxx.useremail.value.lastIndexOf("@")==document.shouhuoxx.useremail.value.length-1 || 
         document.shouhuoxx.useremail.value.lastIndexOf(".")==document.shouhuoxx.useremail.value.length-1)
     {
      alert("Email地址格式不正确！");
      document.shouhuoxx.useremail.focus();
      return false;
      }
   }
 else
  {
   alert("Email不能为空！");
   document.shouhuoxx.useremail.focus();
   return false;
   }
   
}
//-->
        </script>
        <%
rs.close
set rs=nothing
'/////////////////////////////////////////
case "shop2"
%>
        <table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
          <tr>
            <td class="table-shangxia" background="images/class_bg.jpg" height=50>　<img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=index.asp><%=webname%></a> >> 提交定单</td>
          </tr>
        </table>
        <table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
          <tr>
            <td bgColor=#ffffff height=1></TD>
          </tr>
          <tr bgcolor="#ffffff">
            <td bgColor="#f1f1f1" height="30" align="center">请正确填写定单以便收货 </td>
          </tr>
          <tr>
            <td bgColor=#cccccc height=1></TD>
          </tr>
          <tr>
            <td bgColor=#f1f1f1 height=3></TD>
          </tr>
          <tr>
            <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr bgcolor="#ffffff">
                  <td align="center" valign="top" height=50 colspan=2><%set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.bookid,shop_action.bookcount,shop_action.zonger,shop_books.bookname,shop_action.shjiaid,shop_books.anclassid,shop_books.banci,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.vipjia from shop_books inner join  shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&username&"' and shop_action.zhuangtai=7 order by shop_books.shjiaid",conn,1,1 
%>
                      <br>
                      <table width=95% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#cccccc>
                        <tr align=center bgcolor=#f1f1f1>
                          <td width=25%>商品名称</td>
                          <td width=10%>市 场 价</td>
                          <td width=15%>单 价
                              <%if request.Cookies("BOB")("reglx")=2 then %>
                  (VIP)
                  <%else%>
                  (会员)
                  <%end if%>
                          </td>
                          <td width=10%>数 量</td>
                          <td width=10%>邮寄浮动(单价)</td>
                          <td width=15%>总 价</td>
                        </tr>
                        <%shuliang=rs.recordcount
jianshu=0
zongji=0
fudongjia=0
BOBbookname=""
do while not rs.eof
BOBbookname=BOBbookname&"|"&rs("bookname")
%>
                        <tr align="center" bgcolor=#ffffff>
                          <td height="30" align="left"><%=rs("bookname")%>
                              <input name=bookid2 type=hidden value="<%=rs("bookid")%>">
                              <input name=actionid2 type=hidden value="<%=rs("actionid")%>">
                          </td>
                          <td><s><%=rs("shichangjia")%></s>元</td>
                          <td><%
	if request.Cookies("BOB")("reglx")=2 then 
	response.write rs("vipjia")
	else
	response.write rs("huiyuanjia")
	end if%>
                  元</td>
                          <td><%=rs("bookcount")%></td>
                          <td><%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_fudong where id="&rs("banci"),conn,1,1
if cint(request("songhuofangshi"))=3 then	'看是不是“送货上门”
	if request.Cookies("BOB")("reglx")=2 then
		fudongjia_dj=rs_s("smvip")
	else
		fudongjia_dj=rs_s("smhy")
	end if
	elseif cint(request("songhuofangshi"))=1 then	'看是不是“平邮”
	if request.Cookies("BOB")("reglx")=2 then
		fudongjia_dj=rs_s("pyvip")
		else
		fudongjia_dj=rs_s("pyhy")
		end if
		else
	if request.Cookies("BOB")("reglx")=2 then
		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>
                        </tr>
                        <%
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

loop
rs.close
set rs=nothing%>
                        <tr bgcolor=#ffffff>
                          <td height=30 colspan=6 align=center>货款总计：<font color=red><%=zongji%></font> 元</td>
                        </tr>
                        <%set Godbook=server.CreateObject("adodb.recordset")
Godbook.open "select * from shop_action_jp where username='"&username&"' and zhuangtai=7",conn,1,1
if Godbook.recordcount>0 then%>
                        <tr>
                          <td colspan=6 bgcolor=#ffffff><table width="95%" border="0" cellspacing="1" cellpadding="1" bgcolor="#cccccc" align="center">
                              <tr bgcolor="#ffffff">
                                <td colspan="2" align="center">您已选择的奖品清单</td>
                              </tr>
                              <tr align="center" bgcolor="#f1f1f1">
                                <td>奖品名称</td>
                                <td>使用积分</td>
                              </tr>
                              <%
while not Godbook.eof%>
                              <tr bgcolor="#ffffff">
                                <td align="center"><%
	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 align="center"><%=Godbook("jifen")%></td>
                              </tr>
                              <%Godbook.movenext
wend%>
                          </table></td>
                        </tr>
                        <%end if
Godbook.close
set Godbook=nothing%>
                      </table>
                      <br>
                  </td>
                </tr>
                <tr bgcolor="#ffffff">
                  <td width="50%" align="center" valign="top"><table width="90%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
                      <tr>
                        <td colspan="2" height="24" bgcolor="#f1f1f1" align="center">您的订单信息</td>
                      </tr>
                      <tr bgcolor="ffffff">
                        <td width="30%" align="center">姓名：</td>
                        <td width="70%" style="PADDING-LEFT: 20px"><%=request("userzhenshiname")%></td>
                      </tr>
                      <tr bgcolor="ffffff">
                        <td align="center">邮编：</td>
                        <td style="PADDING-LEFT: 20px"><%=request("youbian")%></td>
                      </tr>
                      <tr bgcolor="ffffff">
                        <td align="center">地址：</td>
                        <td style="PADDING-LEFT: 20px"><%=request("shouhuodizhi")%></td>
                      </tr>
                      <tr bgcolor="ffffff">
                        <td align="center">电话：</td>
                        <td style="PADDING-LEFT: 20px"><%=request("usertel")%></td>
                      </tr>
                      <tr bgcolor="ffffff">
                        <td align="center">邮箱：</td>
                        <td style="PADDING-LEFT: 20px"><%=request("useremail")%></td>
                      </tr>
                      <tr bgcolor="ffffff">
                        <td align="center">送货：</td>
                        <td style="PADDING-LEFT: 20px"><%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&request("songhuofangshi"),conn,1,1
if rs.eof and rs.bof then
response.write "方式已经被删除"
else
response.write rs("subject")
end if
rs.close
set rs=nothing%>
                        </td>
                      </tr>
                      <tr bgcolor="ffffff">
                        <td align="center">支付：</td>
                        <td style="PADDING-LEFT: 20px"><%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_songhuo where songid="&request("zhifufangshi"),conn,1,1
if rs.eof and rs.bof then
response.write "方式已经被删除"
else
response.write rs("subject")

end if
rs.close
set rs=nothing%>
                        </td>
                      </tr>
                  </table></td>
                  <td width="50%" align="center" valign="top"><table width="90%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
                      <tr>
                        <td colspan="2" height="24" bgcolor="#f1f1f1" align="center">送货费计算</td>
                      </tr>
                      <%
'计算费用
'先取出参数
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("BOB")("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
	'不是送货上门的还要看是什么方式送货