📄 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 + -