jszx.asp

商业网站开发有源代码可以运行

    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(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>

<%
'/////////////////////////////////////////
case "txxx2"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("songxf")("username")&"'",conn,1,1
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ssxx()
{
    if(checkspace(document.shouhuoxx.songhuofangshi.value)) {
	document.shouhuoxx.songhuofangshi.focus();
    alert("对不起，请选择送货方式！");
	return false;
  }
   
}
//-->
</script>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td rowspan="2"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
              <tr> 
                <td class="12v" > 
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
                    <tr> 
                      <td> 
                        <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
                          <tr bgcolor="#FFF9E6"> 
                            <td colspan="2" style='PADDING-LEFT: 20px' height="40" align="center"><b><font color="#0000FF">请正确选择送货方式</font></b></td>
                          </tr>
                          <form name="shouhuoxx" method="post" action="jszx.asp?action=txxx3">
                            <tr bgcolor="#FFF9E6"> 
                              <td width="199" style='PADDING-LEFT: 20px'><b>送货方式：</b></td>
                              <td width="771" height="28" style='PADDING-LEFT: 20px'> 
                                <b> 
                                <%
          set rs2=server.CreateObject("adodb.recordset")
          rs2.Open "select * from 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 shop_songhuo where fangshi=0 order by songidorder",conn,1,1
          response.Write "<select name=songhuofangshi size="&rs3.recordcount&">"
          do while not rs3.EOF
          if not(shangmen=0 and trim(rs3("songid"))=3) then          '显示不显示“送货上门”
          	response.Write "<option value="&rs3("songid")
          	if int(rs("songhuofangshi"))=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
         %>
                                </b> 
                                <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=userid type=hidden value="<%=request("userid")%>" >
                               </td>
                            </tr>
                            <tr bgcolor="#FFF9E6"> 
                              <td height="32" colspan="2" align=center> 
                                <input type="button" name="Submit2" value="上一步" onclick="javascript:history.go(-1)">
                                <input type="submit" name="Submit4" value="下一步" onclick='return ssxx();'>
                              </td>
                            </tr>
                          </form>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
rs.close
set rs=nothing

'/////////////////////////////////////////
case "txxx3"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("songxf")("username")&"'",conn,1,1
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ssxx()
{
    if(checkspace(document.shouhuoxx.zhifufangshi.value)) {
	document.shouhuoxx.zhifufangshi.focus();
    alert("对不起，请选择货款支付方式！");
	return false;
  }
   
}
//-->
</script>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td rowspan="2"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
              <tr> 
                <td class="12v" > 
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
                    <tr> 
                      <td> 
                        <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
                          <tr bgcolor="#FFF9E6"> 
                            <td colspan="2" style='PADDING-LEFT: 20px' height="40" align="center"><b><font color="#0000FF">请正确选择付款方式</font></b></td>
                          </tr>
                          <form name="shouhuoxx" method="post" action="jszx.asp?action=txxx4">
                            <tr bgcolor="#FFF9E6"> 
                              <td width="199" style='PADDING-LEFT: 20px'><b>付款方式：</b></td>
                              <td width="771" height="28" style='PADDING-LEFT: 20px'> 
                                <b> 
                                <%
          'set rs2=server.CreateObject("adodb.recordset")
          'rs2.Open "select * from shop_songhuo where songid="&trim(request("songhuofangshi")),conn,1,1
          if cint(request("songhuofangshi"))=3 then
          	fukuan=1
          else
          	fukuan=0
          end if
          'rs2.close
          'set rs2=nothing
          '//////////判断支付方式
          set rs3=server.CreateObject("adodb.recordset")
          rs3.open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
          response.Write "<select name=zhifufangshi size="&rs3.recordcount&" >"
          do while not rs3.eof
          if not(fukuan=0 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
		  %>
                                </b> 
                                <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=userid type=hidden value="<%=request("userid")%>" >
                               </td>
                            </tr>
                            <tr bgcolor="#FFF9E6"> 
                              <td height="32" colspan="2" align=center> 
                                <input type="button" name="Submit2" value="上一步" onclick="javascript:history.go(-1)">
                                <input type="submit" name="Submit4" value="下一步" onclick='return ssxx();'>
                              </td>
                            </tr>
                          </form>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
rs.close
set rs=nothing

'/////////////////////////////////////////
case "txxx4"
%>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td rowspan="2"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
              <tr> 
                <td class="12v" > 
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
                    <tr> 
                      <td> 
                        <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
                          <tr bgcolor="#FFF9E6"> 
                            <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='"&request.cookies("songxf")("username")&"' and shop_action.zhuangtai=7 order by shop_books.shjiaid",conn,1,1 
%>
                              <table width=98% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
                                <tr bgcolor="#FFE493">
								  <td width=20%> 
                                    <div align=center><font color="#666666">商品名称</font></div>
                                  </td> 
                                  <td width=25%> 
                                    <div align=center><font color="#666666">商品名称</font></div>
                                  </td>
                                  <td width=10%> 
                                    <div align=center><font color="#666666">市场价</font></div>
                                  </td>
                                  <td width=15%> 
                                    <div align=center><font color="#666666">单价 
                                      <%if request.cookies("songxf")("reglx")=2 then %>
                                      (VIP) 
                                      <%else%>
                                      (会员) 
                                      <%end if%>
                                      </font></div>
                                  </td>
                                  <td width=15%> 
                                    <div align=center><font color="#666666">数量</font></div>
                                  </td>
                                  <td width=10%> 
                                    <div align=center><font color="#666666">邮寄浮动<br>
                                      (单价)</font></div>
                                  </td>
                                  <td width=10% bgcolor=#FFE493> 
                                    <div align=center><font color="#666666">总价</font></div>
                                  </td>