?? bjxcar.asp
字號(hào):
<!--#include file="conn.asp"-->
<!--#include file="chinabank/MD5.asp"-->
<%
if request.Cookies("bjx")("username")="" then
response.write "<script language=javascript>alert('對(duì)不起，您還沒(méi)有登陸！');window.close();</script>"
response.End
end if
username=trim(request.Cookies("bjx")("username"))
%>
<!--#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">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="bjxhead.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD class=b vAlign=top align=left><%dim bookid,action,i
action=request("action")
set rs=server.CreateObject("adodb.recordset")
rs.open "select count(*) as rec_count from BJX_action where username='"&username&"' and zhuangtai=7",conn,1,1
if rs("rec_count")=0 then
response.write "<script language=javascript>alert('對(duì)不起，您購(gòu)物車沒(méi)有商品，請(qǐng)?jiān)谫?gòu)物后，再去“結(jié)算中心”！');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 bjx_action.actionid,bjx_action.bookid,bjx_action.bookcount,bjx_action.zonger,BJX_goods.bookname,bjx_action.shjiaid,BJX_goods.shichangjia,BJX_goods.huiyuanjia,BJX_goods.vipjia from BJX_goods inner join bjx_action on BJX_goods.bookid=bjx_action.bookid where bjx_action.username='"&username&"' and bjx_action.zhuangtai=7",conn,1,1
%>
<table width="970" 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> >> 下定單 <font color="#FF6633"><b>(在最后結(jié)算前您還可以修改購(gòu)物車內(nèi)容)</b></font></td>
</tr>
</table>
<table width="970" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td bgColor=#ffffff colSpan=5 height=1></TD>
</tr>
<form name='form1' method='post' action=bjxcar.asp?action=shop1>
<tr bgcolor="#f1f1f1" align="center">
<td width=25% height="30">商品名稱 </td>
<td width=15%>市場(chǎng)價(jià)</td>
<td width=15%>單價(jià)
<%if request.Cookies("bjx")("reglx")=2 then %>
(VIP)
<%else%>
(會(huì)員)
<%end if%>
</td>
<td width=15%>數(shù)量</td>
<td width=10%>總價(jià)</td>
</tr>
<tr>
<td bgColor=#cccccc colSpan=5 height=1></TD>
</tr>
<tr>
<td bgColor=#f1f1f1 colSpan=5 height=3></TD>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
do while not rs.eof%>
<tr bgcolor="#ffffff">
<td height="30" width="25%" class="table-xia"><%=rs("bookname")%>
<input name=bookid type=hidden value="<%=rs("bookid")%>">
<input name=actionid type=hidden value="<%=rs("actionid")%>">
</td>
<td align="center" class="table-xia"><%=rs("shichangjia")%></td>
<td align="center" class="table-xia"><%
if request.Cookies("bjx")("reglx")=2 then
response.write rs("vipjia")
else
response.write rs("huiyuanjia")
end if%>
元</td>
<td align="center" class="table-xia"><%=rs("bookcount")%></td>
<td align="center" class="table-xia"><%=rs("zonger")%> 元</td>
</tr>
<%
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
rs.movenext
loop
rs.close
set rs=nothing%>
<tr bgcolor=#ffffff align=center>
<td height=30 colspan=5> 您的購(gòu)物車?yán)镉猩唐罚?lt;%=shuliang%> 件 總數(shù)量：<%=jianshu%> 件 共計(jì)：<font color=red><%=zongji%></font> 元 您有預(yù)存款：<%=request.Cookies("bjx")("yucun")%> 元 </td>
</tr>
<tr bgcolor=#ffffff align=center>
<td height=40 colspan=5><input class="go-wenbenkuang" type="button" name="Submit" value="修改購(gòu)物車" onClick="this.form.action='buy.asp?action=show';this.form.submit()">
<input class="go-wenbenkuang" type="submit" name="Submit3" value="OK,下一步">
</td>
</tr>
<%set Godbook=server.CreateObject("adodb.recordset")
Godbook.open "select * from BJX_action_jp where username='"&username&"' and zhuangtai=7",conn,1,1
if Godbook.recordcount>0 then%>
<tr bgcolor="#ffffff">
<td colspan=5><table width="95%" border="0" cellspacing="1" cellpadding="1" bgcolor="#cccccc" align="center">
<tr bgcolor="#ffffff">
<td colspan="2" align="center" height="30">您已選擇的獎(jiǎng)品清單</td>
</tr>
<tr bgcolor="#cccccc" align="center">
<td height="30"><b><font color="#ffffff">獎(jiǎng)品名稱</font></b></td>
<td height="30"><b><font color="#ffffff">使用積分</font></b></td>
</tr>
<%while not Godbook.eof%>
<tr bgcolor="#ffffff">
<td><%
set Godbook1=server.CreateObject("adodb.recordset")
Godbook1.open "select * from BJX_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%>
</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="970" 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> >> 填寫(xiě)收貨信息</td>
</tr>
</table>
<table width="970" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td bgColor=#ffffff colSpan=2 height=1></TD>
</tr>
<tr bgcolor="#ffffff">
<td bgColor="#f1f1f1" colspan="2" height="30" align="center">請(qǐng)正確填寫(xiě)以下收貨信息</td>
</tr>
<tr>
<td bgColor=#cccccc colSpan=2 height=1></TD>
</tr>
<tr>
<td bgColor=#f1f1f1 colSpan=2 height=3></TD>
</tr>
<form name="shouhuoxx" method="post" action="bjxcar.asp?action=shop2" onsubmit="ssxx">
<tr bgcolor="#ffffff">
<td width="30%" height="30" align="right" class="table-xia">收貨人真實(shí)姓名：</td>
<td width="70%" height="30" style="PADDING-LEFT: 20px" class="table-xia"><input name=userid type=hidden value="<%=userid%>">
<input name="userzhenshiname" class="wenbenkuang" type="text" id="userzhenshiname" size="16" value=<%=trim(rs("userzhenshiname"))%>>
性別：
<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">詳細(xì)地址：</td>
<td width="70%" height="30" style="PADDING-LEFT: 20px" class="table-xia"><input class="wenbenkuang" name="shouhuodizhi" type="text" id="shouhuodizhi" size="50" value=<%=trim(rs("shouhuodizhi"))%>>
</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">聯(lián)系電話：</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 BJX_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 BJX_songhuo where fangshi=0 order by songidorder",conn,1,1
response.Write "<select name=songhuofangshi 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("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
%>
</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 BJX_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 BJX_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.userzhenshiname.value)) {
document.shouhuoxx.userzhenshiname.focus();
alert("對(duì)不起，請(qǐng)?zhí)顚?xiě)收貨人姓名！");
return false;
}
if(checkspace(document.shouhuoxx.shouhuodizhi.value)) {
document.shouhuoxx.shouhuodizhi.focus();
alert("對(duì)不起，請(qǐng)?zhí)顚?xiě)收貨人詳細(xì)收貨地址！");
return false;
}
if(checkspace(document.shouhuoxx.youbian.value)) {
document.shouhuoxx.youbian.focus();
alert("對(duì)不起，請(qǐng)?zhí)顚?xiě)郵編！");
return false;
}
if(document.shouhuoxx.youbian.value.length!=6) {
document.shouhuoxx.youbian.focus();
alert("對(duì)不起，請(qǐng)正確填寫(xiě)郵編！");
return false;
}
if(checkspace(document.shouhuoxx.usertel.value)) {
document.shouhuoxx.usertel.focus();
alert("對(duì)不起，請(qǐng)留下您的電話！");
return false;
}
if(checkspace(document.shouhuoxx.songhuofangshi.value)) {
document.shouhuoxx.songhuofangshi.focus();
alert("對(duì)不起，請(qǐng)選擇送貨方式！");
return false;
}
if(checkspace(document.shouhuoxx.zhifufangshi.value)) {
document.shouhuoxx.zhifufangshi.focus();
alert("對(duì)不起，請(qǐng)選擇支付方式！");
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
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -