dingdan.asp
来自「酷购网上商城~~ 完整的asp源代码.通过少许的改动就可以让你拥有自己的商城~~」· ASP 代码 · 共 289 行 · 第 1/2 页
ASP
289 行
<!--#include file="conn.asp"-->
<%if request.cookies("godbook")("username")="" then
response.write "<script language=javascript>alert('对不起，您还没有登陆！');history.go(-1);</script>"
response.End
end if%>
<!--#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">
<style type="text/css">
<!--
.style1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
<body leftmargin="0" rightmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%dim dingdan
dingdan=request.QueryString("dan")
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_books.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_action.actiondate,shop_action.shousex,shop_action.danjia,shop_action.feiyong,shop_action.fapiao,shop_action.userzhenshiname,shop_action.shouhuoname,shop_action.dingdan,shop_action.youbian,shop_action.liuyan,shop_action.zhifufangshi,shop_action.songhuofangshi,shop_action.zhuangtai,shop_action.zonger,shop_action.useremail,shop_action.usertel,shop_action.shouhuodizhi,shop_action.bookcount from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.Cookies("godbook")("username")&"' and dingdan='"&dingdan&"' ",conn,1,1
if rs.eof and rs.bof then
response.write "<p align=center>此订单中有商品已被管理员删除，无法进行正确计算!<br>订单取消，请通知管理员或重新下订单!</p>"
response.End
end if
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> <td height="10"></td></tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#cccccc" align="center">
<tr><td colspan="2"> <strong><font color="#ffffff">订购数量订单号为：<font color="#FF0000"><%=dingdan%></font>，详细资料如下：</font></strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">订单状态：</td>
<td width="85%">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<form name="form1" method="post" action="savedingdan.asp?dan=<%=dingdan%>&action=save">
<td>
<%zhuang()%>
<br>
<%if rs("zhuangtai")<>5 then %>
<input class="go-wenbenkuang" name="submit" value="修改订单状态" type="submit">
<%else
response.write "<font color=red><b>订单工作流程全部完成</b></font>"
end if%>
</td>
</form>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">商品列表：</td>
<td>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
<tr align="center">
<td><strong><font color="#ffffff">商品名称</font></strong></td>
<td><strong><font color="#ffffff">订购数量</font></strong></td>
<td><strong><font color="#ffffff">会员价格</font></strong></td>
<td><strong><font color="#ffffff">金额小计</font></strong></td>
</tr>
<%zongji=0
do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td style='PADDING-LEFT: 5px' height="22"><a href=list.asp?id=<%=rs("bookid")%> target=_blank><%=trim(rs("bookname"))%></a></td>
<td height="22">
<div align="center"><%=rs("bookcount")%></div>
</td>
<td height="22">
<div align="center"><%=rs("danjia")&"元"%></div>
</td>
<td height="22">
<div align="center"><%=rs("zonger")&"元"%></div>
</td>
</tr>
<%zongji=rs("zonger")+zongji
feiyong=rs("feiyong")
rs.movenext
loop
rs.movefirst%>
<tr bgcolor="#FFFFFF">
<td colspan="4" height="22">
<div align="right">订单总额：<%=zongji%>元＋费用：<%=feiyong%>元 共计：<%=zongji+feiyong%>元
</div>
</td>
</tr>
<tr align="right" bgcolor="#FFFFFF">
<td height="22" colspan="4"><table border="0" cellspacing="1" cellpadding="0" align="right" valign=absmiddle width=480>
<tr align="right">
<form name=pay88 action="http://www.pay88.com:1888/postorderinfor_check.asp" method="post" target=new>
<td width=75%>
<%
sql="select * from [User] where UserID="&Session("UserID")
set tmprs=conn.execute(sql)
if not tmprs.eof and not tmprs.bof then
Session("UserEmail")=tmprs("UserEmail")
Session("UserTel")=tmprs("UserTel")
end if
sql="select * from Pay88ID"
set tmprs=conn.execute(sql)
if not tmprs.eof and not tmprs.bof then
Pay88ID=tmprs("Pay88ID")
Flag=tmprs("Flag")
end if
tmprs.close
%>
<input type="hidden" name="shopname" value="<%=dingdan%>订单支付">
<input type="hidden" name="cash" value="<%=zongji+feiyong%>">
<input type="hidden" name="email" value="<%=Session("UserEmail")%>">
<input type="hidden" name="phono" value="<%=Session("UserTel")%>">
<input type="hidden" name="username" value="<%=Pay88ID%>">
<%if Flag="是" then%>
<input type=submit name=action value="PAY88在线支付">
<%end if%>
</td></form>
<form method="post" action="help.asp?action=feiyong" target=new>
<td width=25%>
<input type=submit value="查看其它付款方法">
</td></form></tr>
<tr align="right"><td colspan=2>
本站使用“Pay88.com在线支付平台”，支持国内绝大多数银行卡在线实时支付<br>
如果您在此处没有<span class="style1">在线支付</span>选项，请先前往后台 参数设置 -> 送货及支付方式设置</td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<%set godbook=server.CreateObject("adodb.recordset")
godbook.open "select * from shop_action_jp where username='"&request.cookies("godbook")("username")&"' and dingdan='"&dingdan&"'",conn,1,1
if godbook.recordcount>0 then%>
<tr bgcolor="#FFFFFF">
<td align="right">奖品列表：</td>
<td>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
<tr align="center">
<td><strong><font color="#ffffff">奖品名称</font></strong></td>
<td><strong><font color="#ffffff">所用积分</font></strong></td>
</tr>
<%
while not godbook.eof%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?