?? jszx.asp
字號:
<!--
┌─9911.com.cn────────────┐
│ 動感購物 WWW.9911.com.cn 版權所有 │
│ 動感購物2005Vb 聯系：web@snsn.net │
└───────────9911.com.cn──┘
-->
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="pay_md5.asp" -->
<!--#include file="fuction.asp"-->
<!--#include file="pay.asp" -->
<%if session("username")="" then
response.write "<script language=javascript>alert('對不起，您還沒有登陸！');history.go(-1);</script>"
response.End
end if%>
<html>
<head>
<title><%=webname%>--我要下訂單</title>
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜歡本站,別忘了把本站介紹給您的好友哦！：）';return true">
<!--#include file="webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您現在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="b14"> 提交訂單： <font color="#FF0000">在最后結算前您還可以修改購物車內容</font> </span></span></td>
<td valign="bottom">
</td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<%
action=request("action")
set rs=server.CreateObject("adodb.recordset")
rs.open "select count(*) as rec_count from shop_action where username='"&nosql(session("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.shopid,shop_action.shopcount,shop_action.zonger,shop_snsn.shopname,shop_snsn.shichangjia,shop_snsn.huiyuanjia,shop_snsn.vipjia,shop_snsn.pifajia 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
%>
<form name='shouhuoxx' method='post' action=jszx.asp?action=a> <table width=96% border=0 align=center cellpadding=0 cellspacing=1 bgcolor="73D1E9">
<tr bgcolor="#C0E9F5" class="a1">
<td height="24" bgcolor="#C0E9F5" > 商品名稱</td>
<td height="22" bgcolor="#C0E9F5" >
<div align=center>市場價</div></td>
<td height="22" bgcolor="#C0E9F5" >
<div align=center>單價
<%if session("reglx")=2 then %>
(VIP)
<%elseif session("reglx")=3 then %>
(批發)
<%elseif session("reglx")=1 then %>
(會員)
<%end if%>
</div></td>
<td height="22" bgcolor="#C0E9F5" >
<div align=center>數量</div></td>
<td height="22" bgcolor="#C0E9F5" >
<div align=center>總價</div></td>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td height="24" style='PADDING-LEFT: 5px' >
<div align=left><a href="research.asp?searchkey=<%=rs("shopname")%>" target="_blank"><%=rs("shopname")%></a>
<input name=shopid2 type=hidden value="<%=rs("shopid")%>" >
<input name=actionid2 type=hidden value="<%=rs("actionid")%>" >
</div></td>
<td bgcolor="#FFFFFF" ><div align="center">
<%=rs("shichangjia")%>
</div></td>
<td bgcolor="#FFFFFF" >
<div align=center>
<%
if session("reglx")=2 then
response.write rs("vipjia")
elseif session("reglx")=3 then
response.write rs("pifajia")
elseif session("reglx")=1 then
response.write rs("huiyuanjia")
else
response.write rs("shichangjia")
end if%>
元</div></td>
<td bgcolor="#FFFFFF" >
<div align=center> <%=rs("shopcount")%> </div></td>
<td bgcolor="#FFFFFF" >
<div align=center><%=rs("zonger")%>元</div></td>
</tr>
<%
jianshu=jianshu+rs("shopcount")
zongji=zongji+rs("zonger")
rs.movenext
loop
rs.close
set rs=nothing%>
<tr bgcolor="#FFFFFF">
<td height=36 colspan=6 >
<div align=center> 您的購物車里有商品：<%=shuliang%>件 總數量：<%=jianshu%>件 共計：<%=zongji%>元 您有預存款：<%=request.cookies("snsn")("yucun")%>元 </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="81%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="73D1E9">
<tr align="center" bgcolor="#C0E9F5" class="a1">
<td height="24" bgcolor="#FFFFFF" >獎品名稱</td>
<td >使用積分</td>
</tr>
<%
while not snsn.eof%>
<tr>
<td height="24" 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" bgcolor="#FFFFFF" ><%=snsn("jifen")%></td>
</tr>
<%
snsn.movenext
wend%>
</table>
<%end if
snsn.close
set snsn=nothing
id=nosql(request.QueryString("id"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_user] where username='"&nosql(session("username"))&"'",conn,1,1
userid=rs("userid")
if id<>"" then
set shhr=server.CreateObject("adodb.recordset")
shhr.open "select * from [shop_myshouhuoren] where id="&id,conn,1,1
shhrname=shhr("shhrname")
shhrdz=shhr("shhrdz")
shhrsex=shhr("shhrsex")
shhryb=shhr("shhryb")
shhrtel=shhr("shhrtel")
shhremail=shhr("shhremail")
shhr.close
set shhr=nothing
else
shhrname=rs("userzhenshiname")
shhrdz=rs("shouhuodizhi")
shhrsex=rs("sex")
shhryb=rs("youbian")
shhrtel=rs("usertel")
shhremail=rs("useremail")
end if
%><br>
<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" >
<input name=userid type=hidden value="<%=userid%>" >
<input name="userzhenshiname" type="text" class="wenbenkuang" id="userzhenshiname" value="<%=shhrname%>" maxlength="20">
性 別：
<select name="shousex" id="shousex" class="wenbenkuang">
<option value="1" <%if shhrsex=1 then%>selected<%end if%> >男</option>
<option value="2" <%if shhrsex=2 then%>selected<%end if%>>女</option>
<option value="0" <%if shhrsex=0 then%>selected<%end if%>>保密</option>
</select>
<a href="user.asp?action=myshhr">請點擊選擇收貨人，如不選默認為自己。</a> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="199" bgcolor="#E6F7FB" style='PADDING-LEFT: 20px'>收貨詳細地址：</td>
<td height="28" width="771" > <b>
<input name="shouhuodizhi" type="text" class="wenbenkuang" id="shouhuodizhi" value="<%=shhrdz%>" size="50" maxlength="50">
</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="199" bgcolor="#E6F7FB" style='PADDING-LEFT: 20px'>收貨真實郵編：</td>
<td height="28" width="771" >
<p>
<input name="youbian" type="text" class="wenbenkuang" id="youbian" size="12" value="<%=shhryb%>" onKeyPress="event.returnValue=IsDigit();">
（我們將按郵政編碼劃分送貨區域，請您正確填寫！）</p></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="199" bgcolor="#E6F7FB" style='PADDING-LEFT: 20px'>收貨聯系電話：</td>
<td height="28" width="771" > <b>
<input name="usertel" type="text" class="wenbenkuang" id="usertel" value="<%=shhrtel%>" size="40" maxlength="15">
</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="199" bgcolor="#E6F7FB" style='PADDING-LEFT: 20px'>聯系電子郵件：</td>
<td height="28" width="771" > <b>
<input name="useremail" size="40" type="text" class="wenbenkuang" id="useremail" value="<%=shhremail%>">
</b></td>
</tr>
<b><%=trim(request("useremail"))%> </b> </table>
<%
rs.close
set rs=nothing
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" class="table-zuoshang">
<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 rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * From shop_youbian where youbian like '"&nosql(left(shhryb,4))&"%'",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_sys order by px",conn,1,1
do while not rs3.EOF
if not(shangmen=0 and trim(rs3("songid"))=1) then '顯示不顯示“送貨上門”
response.Write "<input name=songhuofangshi type=radio value="&rs3("songid")
if int(rs("songhuofangshi"))=int(rs3("songid")) then
response.Write " checked>"
else
response.Write ">"
end if
response.Write trim(rs3("fsh"))
end if
rs3.MoveNext
loop
rs3.Close
set rs3=nothing
%>
(必需選擇)</td>
</tr>
</table>
<%
rs.close
set rs=nothing
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -