jsactionshopxp.asp

IMPORTANT YOU SHOUD LOAD IT DOWN FOR USING

                          </td>
                          <td align="center"><%=Godbook("jifen")%></td>
                        </tr>
                        <%Godbook.movenext
wend%>
                    </table></td>
                  </tr>
                  <%end if
Godbook.close
set Godbook=nothing%>
                </form>
              </table>
              <%
/////////////////////////////////////////
case "shop1"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [Dv_User] where username='"&username&"'",conn,1,1
userid=rs("userid")
%>
              <table width="100%" align="center" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height=33>　<span class="style4"><a href=index.asp><%=webname%></a> >> 填写收货信息</span></td>
                </tr>
              </table>
              <table width="660" align="center" border="0" cellspacing="0" cellpadding="0">
               <tr>
                  <td height="35" colspan="2" align="center"><table width="100%" height="39"  border="0" align="center" cellpadding="0" cellspacing="0" background="img_shopxp/xiao/200309baskettitlebar.gif">
                    <tr>
                      <td height="39"><div align="center">请正确填写以下收货信息</div></td>
                    </tr>
                  </table></td>
                </tr>
                  <form name="shouhuoxx" method="post" action="jsactionshopxp.asp?action=shop2" onSubmit="ssxx">
                  <tr bgcolor="#ffffff">
                    <td width="30%" height="30" align="right" class="table-xia">收货人真实姓名：</td>
                    <td width="70%" height="30" style="PADDING-LEFT: 20px" class="table-xia"><input name=userid type=hidden value="<%=userid%>">
                        <input name="shopxp_shiname" class="wenbenkuang" type="text" id="shopxp_shiname" size="16" value=<%=trim(rs("shopxp_shiname"))%>>
                性别：
                <select class="wenbenkuang" name="shousex" id="shousex">
                  <option value=1 <%if rs("sex")="1" then%>selected<%end if%>>男</option>
                  <option value=2 <%if rs("sex")="0" then%>selected<%end if%>>女</option>
                  <option value=0 <%if rs("sex")="2" then%>selected<%end if%>>保密</option>
                </select>
                    </td>
                  </tr>
                  <tr bgcolor="#ffffff">
                    <td width="30%" height="30" align="right" class="table-xia">详细地址：</td>
                    <td width="70%" height="30" style="PADDING-LEFT: 20px" class="table-xia"><input class="wenbenkuang" name="shopxp_shdz" type="text" id="shopxp_shdz" size="50" value=<%=trim(rs("shopxp_shdz"))%>>
                    </td>
                  </tr>
                  <tr bgcolor="#ffffff">
                    <td width="30%" height="30" align="right" class="table-xia">邮政编码：</td>
                    <td width="70%" height="30" style="PADDING-LEFT: 20px" class="table-xia"><input class="wenbenkuang" name="youbian" type="text" id="youbian" size="16" value="<%=rs("youbian")%>" ONKEYPRESS="event.returnValue=IsDigit();"></td>
                  </tr>
                  <tr bgcolor="#ffffff">
                    <td width="30%" height="30" align="right" class="table-xia">联系电话：</td>
                    <td width="70%" height="30" style="PADDING-LEFT: 20px" class="table-xia"><input class="wenbenkuang" name="usertel" type="text" id="usertel" size="16" value=<%=trim(rs("usertel"))%>>
                    </td>
                  </tr>
                  <tr bgcolor="#ffffff">
                    <td width="30%" height="30" align="right" class="table-xia">电子邮件：</td>
                    <td width="70%" height="30" style="PADDING-LEFT: 20px" class="table-xia"><input class="wenbenkuang" name="useremail" type="text" id="useremail" size="30" value=<%=trim(rs("useremail"))%>>
                    </td>
                  </tr>
                  <tr bgcolor="#ffffff">
                    <td width="30%" height="30" align="right" class="table-xia">送货方式：</td>
                    <td width="70%" height="30" style="PADDING-LEFT: 20px" class="table-xia"><%
          set rs2=server.CreateObject("adodb.recordset")
          rs2.Open "select * from shopxp_youbian where youbian='"&trim(request("youbian"))&"'",conn,1,1
          if rs2.recordcount=1 then
          shangmen=1
          else
          shangmen=0
          end if
          rs2.close
          set rs2=nothing
          '//////////判断送货方式
          set rs3=server.CreateObject("adodb.recordset")
          rs3.Open "select * from shopxp_songhuo where fangshi=0 order by songidorder",conn,1,1
          response.Write "<select name=shopxp_shfs size=5 style='width:180px'>"
          do while not rs3.EOF
          if not(shangmen=3 and trim(rs3("songid"))=3) then          '显示不显示“送货上门”
          	response.Write "<option value="&rs3("songid")
          	if int(rs("shopxp_shfs"))=int(rs3("songid")) then 
          	response.Write " selected>"
          	else
          	response.Write ">"
          	end if 
			response.Write trim(rs3("subject"))&" ["  
			response.Write trim(rs3("jsmoney"))&"元] </option>"        
			end if
			rs3.MoveNext
			loop
			response.Write "</select>"
			rs3.Close
			set rs3=nothing
			%>
                    </td>
                  </tr>
                  <tr bgcolor="#ffffff">
                    <td width="30%" height="30" align="right" class="table-xia">支付方式：</td>
                    <td width="70%" height="30" style="PADDING-LEFT: 20px" class="table-xia"><%
		'set rs2=server.CreateObject("adodb.recordset")
          'rs2.Open "select * from shopxp_songhuo where songid="&trim(request("shopxp_shfs")),conn,1,1
          if cint(request("shopxp_shfs"))=3 then
          fukuan=1
          else
          fukuan=0
          end if
          'rs2.close
          'set rs2=nothing
          '//////////判断支付方式
          set rs3=server.CreateObject("adodb.recordset")
          rs3.open "select * from shopxp_songhuo where fangshi=1 order by songidorder",conn,1,1
          response.Write "<select name=zhifufangshi size=5 style='width:180px'>"
          do while not rs3.eof
          if not(fukuan=4 and trim(rs3("songid"))=4) then	'显示不显示“货到付款”
          	response.Write "<option value="&rs3("songid")
          	if int(rs("zhifufangshi"))=int(rs3("songid")) then
          	response.Write " selected>"
          	else
          	response.Write ">"
          	end if
          	response.Write trim(rs3("subject"))&"</option>"
          end if
          rs3.movenext
          loop
          response.Write "</select>"
          rs3.close
          set rs3=nothing
		  %>
                    </td>
                  </tr>
                  <tr bgcolor="#ffffff">
                    <td height="40" colspan="2" align=center><input class="go-wenbenkuang" type="button" name="Submit2" value="上一步" onClick="javascript:history.go(-1)">
                        <input class="go-wenbenkuang" type="submit" name="Submit4" value="OK,下一步" onclick='return ssxx();'>
                    </td>
                  </tr>
                </form>
              </table>
              <SCRIPT LANGUAGE="JavaScript">
<!--
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}

function ssxx()
{
   if(checkspace(document.shouhuoxx.shopxp_shiname.value)) {
	document.shouhuoxx.shopxp_shiname.focus();
    alert("对不起，请填写收货人姓名！");
	return false;
  }
  if(checkspace(document.shouhuoxx.shopxp_shdz.value)) {
	document.shouhuoxx.shopxp_shdz.focus();
    alert("对不起，请填写收货人详细收货地址！");
	return false;
  }
  if(checkspace(document.shouhuoxx.youbian.value)) {
	document.shouhuoxx.youbian.focus();
    alert("对不起，请填写邮编！");
	return false;
  }
  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.shopxp_shfs.value)) {
	document.shouhuoxx.shopxp_shfs.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="100%" height="45" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td height=33 valign="bottom">　<span class="style5"><strong><a href=index.asp><%=webname%></a> >> 提交定单</strong></span></td>
                </tr>
              </table>
              <table width="660" align="center" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td bgColor=#ffffff height=1></TD>
                </tr>
                <tr bgcolor="#ffffff">
                  <td height="40" align="center" background="img_shopxp/xiao/200309baskettitlebar.gif">请正确填写定单以便收货 </td>
                </tr>
                <tr>
                  <td bgColor=#cccccc height=1></TD>
                </tr>
                <tr>
                  <td height=11></TD>
                </tr>
                <tr>
                  <td><table width="660" 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 shopxp_action.shopxpacid,shopxp_action.shopxpptid,shopxp_action.productcount,shopxp_action.zonger,shopxp_product.shopxpptname,shopxp_action.shjiaid,shopxp_product.shopxpbe_id,shopxp_product.banci,shopxp_product.shichangjia,shopxp_product.shopxphyjia,shopxp_product.shopxpvjia from shopxp_product inner join  shopxp_action on shopxp_product.shopxpptid=shopxp_action.shopxpptid where shopxp_action.username='"&username&"' and shopxp_action.zhuangtai=7 order by shopxp_product.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("shopxp")("reglx")=2 then %>
                          (VIP)
                          <%else%>
                          (会员)
                          <%end if%>
                                </td>
                                <td width=10%>数 量</td>
                               <td width=15%>总 价</td>
                              </tr>

                              <%shuliang=rs.recordcount
jianshu=0
zongji=0
fudongjia=0
do while not rs.eof
%>
                              <tr align="center" bgcolor=#ffffff>
                                <td height="30" align="left"><%=rs("shopxpptname")%>
                                    <input name=bookid2 type=hidden value="<%=rs("shopxpptid")%>">
                                    <input name=shopxpacid2 type=hidden value="<%=rs("shopxpacid")%>">
                                </td>
                                <td><s><%=rs("shichangjia")%></s>元</td>