⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 jszx.asp

📁 商业网站开发有源代码可以运行
💻 ASP
📖 第 1 页 / 共 4 页
字号:
<!--#include file="conn.asp"-->
<%if request.cookies("songxf")("username")="" then
response.write "<script language=javascript>alert('对不起,您还没有登陆!');history.go(-1);</script>"
response.End
end if%>
<!--#include file="webconfig.asp"-->

<html>
<head>
<title><%=webname%>--我要下订单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<style>
td{font-size:9pt;line-height:120%;color:#353535} 
body{font-size:9pt;line-height:120%} 

a:link          { color: #000000; text-decoration: none }
a:visited       { color: #000000; text-decoration: none }
a:active        { color: #000000; text-decoration: none }
a:hover         { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head>
<body leftmargin="0" topmargin="5" marginwidth="0" marginheight="0">
<table width="96%" border="0" align="center" cellpadding="2" cellspacing="1">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<%dim bookid,action,i
action=request("action")
set rs=server.CreateObject("adodb.recordset")
rs.open "select count(*) as rec_count from shop_action where username='"&request.cookies("songxf")("username")&"' and zhuangtai=7",conn,1,1
if rs("rec_count")=0 then
response.write "<script language=javascript>alert('对不起,您购物车没有商品,请在购物后,再去“结算中心”!');window.close();</script>"
response.End
end if
rs.close
set rs=nothing
select case action
'//////////////////////////////////
case ""
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.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",conn,1,1 
%>
<table width="96%" border="0" align="center" cellpadding="2" cellspacing="1">
  <tr>
    <td height="40"><font color="#FF6633"><b>在最后结算前您还可以修改购物车内容</b></font></td>
  </tr>
</table>
<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
  <form name='form1' method='post' action=jszx.asp?action=txxx>
    <tr bgcolor="#FFE697">
	  <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=15%> 
        <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% bgcolor=#FFE697> 
        <div align=center><font color="#666666">总价</font></div>
      </td>
    </tr>
    <%shuliang=rs.recordcount
jianshu=0
zongji=0
do while not rs.eof%>
    <tr bgcolor="#FFF9E6">
	  <td height="22" width="20%"><%id=rs("shjiaid")
	  if id>1 then
	  set rs_shj=server.CreateObject("adodb.recordset")
rs_shj.open "select name from shjia where shjiaid="&id,conn,1,1%> 
        <div align=center><font color=#dd6600> 
          <%=rs_shj("name")%>
		  <%
		  rs_shj.close
	set rs_shj=nothing
	else
	response.write "<div align=center><font color=#dd6600>网上商城"
	end if%>
          </font></div>
      </td>
      <td style='PADDING-LEFT: 5px'> 
        <div align=left><font color=blue><%=rs("bookname")%></font> 
          <input name=bookid type=hidden value="<%=rs("bookid")%>" >
          <input name=actionid type=hidden value="<%=rs("actionid")%>" >
        </div>
      </td>
      <td><%=rs("shichangjia")%></td>
      <td> 
        <div align=center> 
          <%
if request.Cookies("songxf")("reglx")=2 then 
	response.write rs("vipjia")
else
	response.write rs("huiyuanjia")
end if%>
          元</div>
      </td>
      <td> 
        <div align=center><font color=#dd6600> <%=rs("bookcount")%> </font></div>
      </td>
      <td bgcolor=#FFF9E6> 
        <div align=center><font color=#FF3300><%=rs("zonger")%></font>元</div>
      </td>
    </tr>
    <%
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
rs.movenext
loop
rs.close
set rs=nothing%>
    <tr bgcolor="#FFF9E6"> 
      <td height=36 colspan=7> 
        <div align=center> 
          <input type="button" name="Submit" value="修改购物车" onClick="javascript:window.open('gouwu.asp?action=show','gouwu','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');window.close()">
          <input type="submit" name="Submit3" value="下一步">
        </div>
      </td>
    </tr>
    <tr bgcolor="#FFF9E6"> 
      <td height=36 colspan=7> 
        <div align=center> 您的购物车里有商品:<%=shuliang%>件 总数量:<%=jianshu%>件 共计:<%=zongji%>元 您有预存款:<%=request.cookies("songxf")("yucun")%>元 
        </div>
      </td>
    </tr>
    <%set songxf=server.CreateObject("adodb.recordset")
	songxf.open "select * from shop_action_jp where username='"&request.cookies("songxf")("username")&"' and zhuangtai=7",conn,1,1
	if songxf.recordcount>0 then%>
    <tr bgcolor="#FFF9E6"> 
      <td colspan=5> 
        <table width="96%" border="0" cellspacing="1" cellpadding="1" bgcolor="#FFCC00" align="center">
          <tr bgcolor="#FFF0C4"> 
            <td colspan="2"><b>您已选择的奖品清单</b></td>
          </tr>
          <tr bgcolor="#FFE697" align="center"> 
            <td><font color=#FFFFFF>奖品名称</font></td>
            <td><font color=#FFFFFF>使用积分</font></td>
          </tr>
          <%
	while not songxf.eof%>
          <tr bgcolor="#FFF9E6"> 
            <td> 
              <%
	set songxf1=server.CreateObject("adodb.recordset")
	songxf1.open "select * from shop_jiangpin where bookid="&songxf("bookid"),conn,1,1
	if songxf1.recordcount=1 then
	response.write "<font color=blue>"&songxf1("bookname")&"</font>"
	end if
	songxf1.close
	set songxf1=nothing%>
            </td>
            <td align="center"><%=songxf("jifen")%></td>
          </tr>
          <%
	songxf.movenext
	wend%>
        </table>
      </td>
    </tr>
    <%end if
songxf.close
set songxf=nothing%>
  </form>
</table>
<%
'/////////////////////////////////////////
case "txxx"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where username='"&request.cookies("songxf")("username")&"'",conn,1,1
userid=rs("userid")
%>
<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=txxx2" onsubmit="ssxx">
                            <tr bgcolor="#FFF9E6"> 
                              <td width="199" style='PADDING-LEFT: 20px'><b>收货人姓名:</b></td>
                              <td width="771" height="28" style='PADDING-LEFT: 20px'> 
                                <input name=userid type=hidden value="<%=userid%>" >
                                <b> 
                                <input name="userzhenshiname" type="text" id="userzhenshiname" size="12" value=<%=trim(rs("userzhenshiname"))%>>
                                  性 别: 
                                <select 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>
                                </b></td>
                            </tr>
                            <tr bgcolor="#FFF9E6"> 
                              <td style='PADDING-LEFT: 20px' width="199"><b>详细地址:</b></td>
                              <td height="28" style='PADDING-LEFT: 20px' width="771"> 
                                <b> 
                                <input name="shouhuodizhi" type="text" id="shouhuodizhi" size="40" value=<%=trim(rs("shouhuodizhi"))%>>
                                </b></td>
                            </tr>
                            <tr bgcolor="#FFF9E6"> 
                              <td style='PADDING-LEFT: 20px' width="199"><b>邮编:</b></td>
                              <td height="28" style='PADDING-LEFT: 20px' width="771"> 
                                <b> 
                                <input name="youbian" type="text" id="youbian" size="10" value="<%=rs("youbian")%>" ONKEYPRESS="event.returnValue=IsDigit();">
                                <font color="#CC3333"> (我们将按邮政编码划分送货区域,请您正确填写!)</font></b></td>
                            </tr>
                            <tr bgcolor="#FFF9E6"> 
                              <td style='PADDING-LEFT: 20px' width="199"><b>电话:</b></td>
                              <td height="28" style='PADDING-LEFT: 20px' width="771"> 
                                <b> 
                                <input name="usertel" type="text" id="usertel" size="12" value=<%=trim(rs("usertel"))%>>
                                </b></td>
                            </tr>
                            <tr bgcolor="#FFF9E6"> 
                              <td style='PADDING-LEFT: 20px' width="199"><b>电子邮件:</b></td>
                              <td height="28" style='PADDING-LEFT: 20px' width="771"> 
                                <b> 
                                <input name="useremail" type="text" id="useremail" value=<%=trim(rs("useremail"))%>>
                                </b></td>
                            </tr>
                            <b><%=trim(request("useremail"))%> </b> 
                            <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%>
<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.userzhenshiname.value)) {
	document.shouhuoxx.userzhenshiname.focus();
    alert("对不起,请填写收货人姓名!");
	return false;
  }
  if(checkspace(document.shouhuoxx.shouhuodizhi.value)) {
	document.shouhuoxx.shouhuodizhi.focus();
    alert("对不起,请填写收货人详细收货地址!");
	return false;
  }
  if(checkspace(document.shouhuoxx.youbian.value)) {
	document.shouhuoxx.youbian.focus();

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -