?? jszx.asp
字號:
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_user] where username='"&nosql(session("username"))&"'",conn,1,1
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="73D1E9">
<tr bgcolor="#C0E9F5" class="a1">
<td height="25" colspan="2" style='PADDING-LEFT: 20px'><b>請正確選擇付款方式</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="199" bgcolor="#E6F7FB" style='PADDING-LEFT: 20px'>付款方式選擇：</td>
<td width="771" height="28" style='PADDING-LEFT: 20px' >
<%
'//////////判斷支付方式
set rs4=server.CreateObject("adodb.recordset")
rs4.open "select * from shop_songhuo order by songidorder",conn,1,1
do while not rs4.eof
'顯示不顯示“貨到付款”
response.Write "<input name=zhifufangshi type=radio value="&rs4("songid")
if rs4("songid")=int(rs("zhifufangshi")) then
response.Write " checked>"
else
response.Write ">"
end if
response.Write trim(rs4("subject"))
rs4.movenext
loop
rs4.close
set rs4=nothing
%>
<input name=userid type=hidden value="<%=request("userid")%>" >
(必需選擇) </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="32" colspan="2" align=center >
<input name="Submit232" type="button" class="go-wenbenkuang" value="修改購物車" onClick="javascript:window.history.go(-1)">
<input type="button" name="Submit24" class="go-wenbenkuang" value="上一步" onClick="javascript:history.go(-1)">
<input type="submit" name="Submit4233" class="go-wenbenkuang" value="下一步" onClick="return ssxx();">
</td>
</tr>
</table></form>
<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();
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><%
rs.close
set rs=nothing
case "a"
if request("songhuofangshi")="" then
response.write "<script language=javascript>alert('請填寫送貨方式！');window.history.go(-1);</script>"
response.end
end if
if request("zhifufangshi")="" then
response.write "<script language=javascript>alert('請填寫支付方式！');window.history.go(-1);</script>"
response.end
end if
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<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="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td align="center" valign="top" height=50 colspan=2>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select sum(shopcount) as Sum_jianshu,sum(zonger) as Sum_zonger from shop_action where username='"&nosql(session("username"))&"' and zhuangtai=7",conn,1,1
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.shopid,shop_action.shopcount,shop_action.zonger,shop_snsn.shopname,shop_snsn.anclassid,shop_snsn.banci,shop_snsn.shichangjia,shop_snsn.huiyuanjia,shop_snsn.vipjia from shop_snsn inner join shop_action on shop_snsn.shopid=shop_action.shopid where shop_action.username='"&nosql(session("username"))&"' and shop_action.zhuangtai=7",conn,1,1
%>
<table width=100% border=0 align=center cellpadding=0 cellspacing=1 bgcolor="73D1E9" class="table-zuoshang">
<tr bgcolor="#C0E9F5" class="a1">
<td height="22" >
商品名稱</td>
<td height="22" >
<div align=center>市場價</div></td>
<td height="22" >
<div align=center>單價
<%if session("reglx")=2 then %>
(VIP)
<%else%>
<%if tmpPIFA=1 then %>
(批發)
<%else%>
(會員)
<%end if%>
<%end if%>
</div></td>
<td height="22" >
<div align=center>數量</div></td>
<td height="22" >
<div align=center>郵寄浮動
(單價)</div></td>
<td height="22" >
<div align=center>總價</div></td>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
fudongjia=0
do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td height="24" bgcolor="#FFFFFF" style='PADDING-LEFT: 5px' >
<div align=left><a href="research.asp?searchkey=<%=rs("shopname")%>" target="_blank"><%=rs("shopname")%></a>
<input name=shopid type=hidden value="<%=rs("shopid")%>" >
<%shopname=rs("shopname")%>
<input name=actionid type=hidden value="<%=rs("actionid")%>" >
</div></td>
<td align="center" ><s><%=rs("shichangjia")%></s> 元</td>
<td >
<div align=center>
<%
if (session("reglx")=2) or (tmpPIFA=1) then
response.write rs("vipjia")
else
response.write rs("huiyuanjia")
end if%>
元</div></td>
<td >
<div align=center> <%=rs("shopcount")%> </div></td>
<td >
<div align=center>
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_fudong where id="&rs("banci"),conn,1,1
if cint(request("songhuofangshi"))=3 then '看是不是“送貨上門”
if session("reglx")=2 then
fudongjia_dj=rs_s("smvip")
else
fudongjia_dj=rs_s("smhy")
end if
elseif cint(request("songhuofangshi"))=1 then '看是不是“平郵”
if session("reglx")=2 then
fudongjia_dj=rs_s("pyvip")
else
fudongjia_dj=rs_s("pyhy")
end if
else
if session("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
%>
</div></td>
<td >
<div align=center>
<%if tmpPIFA=1 then%>
<%=rs("vipjia")*rs("shopcount")%>
<%else%>
<%=rs("zonger")%>
<%end if%>
元</div></td>
</tr>
<%
jianshu=jianshu+rs("shopcount")
if tmpPIFA=1 then
zongji=zongji+rs("vipjia")*rs("shopcount")
else
zongji=zongji+rs("zonger")
end if
'算每件商品的浮動價
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_fudong where id="&rs("banci"),conn,1,1
fudongjia=fudongjia+rs("shopcount")*fudongjia_dj
rs_s.close
set rs_s=nothing
rs.movenext
loop
rs.close
set rs=nothing%>
<tr bgcolor="#FFFFFF">
<td height=36 colspan=7 >
<div align=center> 貨款總計：<%=zongji%>元</div></td>
</tr>
</table>
<%set snsn=server.CreateObject("adodb.recordset")
snsn.open "select * from shop_action_jp where username='"&nosql(session("username"))&"' and zhuangtai=7",conn,1,1
if snsn.recordcount>0 then%><table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="73D1E9" class="table-zuoshang">
<tr>
<td height="1" background="images/xian_001.gif"></td>
<td height="1" background="images/xian_001.gif"></td>
</tr>
<tr align="center" bgcolor="f1f1f1" >
<td height="22" bgcolor="#C0E9F5" class="a1">獎品名稱</td>
<td height="22" bgcolor="#C0E9F5" class="a1">使用積分</td>
</tr>
<%
while not snsn.eof%>
<tr bgcolor="#FFFFFF" >
<td align="center" bgcolor="#FFFFFF">
<%
set snsn1=server.CreateObject("adodb.recordset")
snsn1.open "select * from shop_jiangpin where shopid="&snsn("shopid"),conn,1,1
if snsn1.recordcount=1 then
response.write "<font color=blue>"&snsn1("shopname")&"</font>"
end if
snsn1.close
set snsn1=nothing%>
</td>
<td align="center"><%=snsn("jifen")%></td>
</tr>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -