?? bjxcar.asp
字號:
set rs=nothing
'/////////////////////////////////////////
case "shop2"
%>
<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> >> 提交定單</td>
</tr>
</table>
<table width="970" 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 bjx_action.actionid,bjx_action.bookid,bjx_action.bookcount,bjx_action.zonger,BJX_goods.bookname,bjx_action.shjiaid,BJX_goods.anclassid,BJX_goods.banci,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 order by BJX_goods.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("bjx")("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
bjxbookname=""
do while not rs.eof
bjxbookname=bjxbookname&"|"&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("bjx")("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 BJX_postcost where id="&rs("banci"),conn,1,1
if cint(request("songhuofangshi"))=3 then '看是不是“送貨上門”
if request.Cookies("bjx")("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("bjx")("reglx")=2 then
fudongjia_dj=rs_s("pyvip")
else
fudongjia_dj=rs_s("pyhy")
end if
else
if request.Cookies("bjx")("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 BJX_postcost 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 BJX_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>
</tr>
<%
while not Godbook.eof%>
<tr bgcolor="#ffffff">
<td align="center"><%
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%>
</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 BJX_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 BJX_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 BJX_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 BJX_songhuo where songid="&trim(request("songhuofangshi")),conn,1,1
if cint(request("songhuofangshi"))=3 then '先看是不是送貨
rs.close
if request.Cookies("bjx")("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
'不是送貨上門的還要看是什么方式送貨
if cint(request("songhuofangshi"))=1 then '看是不是"普通平郵"
rs.close
if request.Cookies("bjx")("reglx")=2 then
if zongji>=t_py2 then
jijia=t_py1-t_py3
else
jijia=t_py1
end if
else
jijia=t_py1
end if
else
rs.close
if request.Cookies("bjx")("reglx")=2 then
if zongji>=t_ems2 then
jijia=t_ems1-t_ems3
else
jijia=t_ems1
end if
else
jijia=t_ems1
end if
end if
'算商品基價+浮動價=費用
feiyong=jijia+fudongjia
if request("zhifufangshi")=17 then
'得到預存款
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select yucun from Dv_User where username='"&username&"'",conn,1,1
yucunkuan=rs2("yucun")
rs2.close
set rs2=nothing
if yucunkuan<feiyong+zongji then
response.write "<script language=javascript>alert('您的預存款不足，請更換支付方式！');history.go(-1);</script>"
end if
end if
end if%>
<tr>
<td style="PADDING-right: 20px" align="right" bgcolor="ffffff">您的送貨費用計：<%=feiyong%> 元<br>
其中基價：<%=jijia%> 元<br>
浮動價：<%=fudongjia%> 元</td>
</tr>
<tr>
<td style="PADDING-right: 20px" align="right" bgcolor="ffffff"><font color=red>您的訂單總金額： <%=FormatNumber((feiyong+zongji),1)%> 元</font></td>
</tr>
<tr>
<td style="PADDING-right: 20px" align="right" bgcolor="ffffff"><a href="help.asp?action=feiyong" >查看送貨費用說明</a></td>
</tr>
</table></td>
</tr>
<form name="shouhuoxx" method="post" action="bjxcar.asp?action=ok">
<tr bgcolor="#ffffff" align="center">
<td colspan="2"><table width="95%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="20%"><input type="checkbox" name="fapiao" value="1">
是否要發票？
<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="zhifufangshi" type="hidden" value=<%=trim(request("zhifufangshi"))%>>
<input name="feiyong" type="hidden" value=<%=feiyong%>>
<input name="zongji" type="hidden" value=<%=zongji%>>
<input name=userid type=hidden value="<%=request("userid")%>" >
<input name="bjxbookname" type="hidden" value=<%=bjxbookname%>>
</td>
<td width="60%"><input class="wenbenkuang" type="text" name="liuyan" size="35" maxlength="30">
您對此訂單的特殊說明(30字內) </td>
<td width="20%" align="center" height="60"><input class="go-wenbenkuang" type="button" name="Submit22" value="上一步" onClick="javascript:history.go(-1)">
<input class="go-wenbenkuang" type="submit" name="Submit42" value="完 成">
</td>
</tr>
</table></td>
</tr>
</form>
</tr>
</table>
<%
case "ok"
'/////////////////////////////////////////////////
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function
'修改用戶的送貨信息
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -