order2.asp
来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 206 行
ASP
206 行
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY style="font-size: 9pt">
<%
order_id=Request.Form("order_id")
set con=server.createobject("ADODB.Connection")
con.open Application("str_con")
set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con
set res_main=server.createobject("ADODB.Recordset")
set res_main.ActiveConnection = con
set res1=server.createobject("ADODB.Recordset")
set res1.ActiveConnection = con
res.source="select XHBID from order_detail where order_id='"&order_id&"'"
res.cursorlocation=3
res_main.source="select passwrd,name,comaddr,zipcode,tel,e_mail,detaddr,othercom,send_method,send_time,leave_word,pay_method,lack_goods,spare_money,packaging,invoice,faster,order_time,book_exes,zkj,zk_level,send_exes,packaging_exes,faster_exes,total_exes,书店名称 from order_main where order_id='"&order_id&"'"
res_main.cursorlocation=3
res.open ,,adOpenDaynamic
if res.recordcount<1 then
Response.Write "该订单中没有书籍！"
Res.close
con.Close
else
%>
<% res_main.Open() %>
<p align="center"><B><FONT color=#003399 size=3>订单号：<%=order_id%></p>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=1 CELLPADDING=1 style="FONT-SIZE: 9pt">
<TR>
<TD width="10%">订单密码：</TD>
<TD width="10%" align=left><%=res_main("passwrd")%></TD>
<TD width="5%">书店：</TD>
<TD width="40%" align=left><%=res_main("书店名称")%></TD>
<TD width="10%">
<div align="right">订购日期：</div>
</TD>
<TD>
<div align="right"><%=res_main("order_time")%> </div>
</TD>
</TR>
</TABLE>
<div align="center"><center>
<table border="0" width="100%" style="font-size: 9pt">
<tr align="center">
<td bgcolor="yellow"><strong>书名</strong></td>
<td bgcolor="yellow"><strong>数量</strong></td>
<td bgcolor="yellow"><strong>单价(元)</strong></td>
<td bgcolor="yellow"><strong>折扣</strong></td>
<td bgcolor="yellow"><strong>ISBN</strong></td>
<td bgcolor="yellow"><strong>备注</strong></td>
</tr>
<%
res1.source="select number, 正书名,ISBN,定价,折扣,备注 from order_detail where order_id='"&order_id&"'"
res1.cursorlocation=3
res1.open ,,adOpenDaynamic
if res1.recordcount>0 then
For j = 1 to res1.recordcount
%>
<tr align="left">
<td bgcolor="#e8e8ec"><%=res1("正书名")%></td>
<td bgcolor="#e8e8ec" align="right"> <%=res1("number")%> </td>
<td bgcolor="#e8e8ec" align="right"> <%=res1("定价")%> </td>
<td bgcolor="#e8e8ec" align="right"> <font color="#FF0000"> <%=res1("折扣")%> </font> </td>
<td bgcolor="#e8e8ec" align="right"> <%=res1("ISBN")%> </td>
<td bgcolor="#e8e8ec" align="right"> <font color="#FF0000"> <%=res1("备注")%> </font> </td>
</tr>
<%
res1.movenext
Next
end if 'res1.recordcount>0
res1.close
%>
</table><p></p>
合计：<%=res_main("book_exes")%>元，
打折后价格为<font color="#FF0000"><%=res_main("zkj")%>元</font>，您共节省了<font color="#FF0000"><%=res_main("book_exes")-res_main("zkj")%>元</font>
<p></p><p></p>
<TABLE WIDTH="75%" BORDERCOLOR=#CCCC00 BORDER=1 CELLSPACING=1 CELLPADDING=1 style="font-size: 9pt">
<TR>
<TD ALIGN=left>收货人姓名</TD>
<TD ALIGN=left><%=res_main("name")%></TD> </TR>
<TR> <TD ALIGN=left>收货人通信地址</TD> <TD ALIGN=left><%=res_main("comaddr")%></TD> </TR>
<TR> <TD ALIGN=left>收货人邮编</TD> <TD ALIGN=left><%=res_main("zipcode")%></TD> </TR>
<TR> <TD ALIGN=left>收货人联系电话</TD> <TD ALIGN=left><%=res_main("tel")%></TD> </TR>
<TR> <TD ALIGN=left>收货人E-mail</TD> <TD ALIGN=left><%=res_main("e_mail")%></TD> </TR>
<TR> <TD ALIGN=left>收货人详细地址</TD> <TD ALIGN=left><%=res_main("detaddr")%> </TD> </TR>
<TR> <TD ALIGN=left>收货人其他联系方式</TD> <TD ALIGN=left><%=res_main("othercom")%> </TD> </TR>
</TABLE>
<p></p>
<TABLE WIDTH=75% BORDER=0 CELLSPACING=1 CELLPADDING=1 style="font-size: 9pt">
<TR>
<TD width="15%"><FONT color=#003399>送货方式： </TD>
<TD aling=left width="34%"><%=res_main("send_method")%></TD>
<TD width="15%"><FONT color=#003399>付款方式： </TD>
<TD aling=left width="40%"><%=res_main("pay_method")%></TD>
</TR>
</TABLE>
<p></p>
<TABLE WIDTH=75% BORDER=0 CELLSPACING=1 CELLPADDING=1 style="font-size: 9pt">
<TR>
<TD width="10%"><FONT color=#003399>
<div align="left">书费：</div>
</TD>
<TD width="9%">
<div align="left"><font color="#FF0000"><%=res_main("zkj")%></font></div>
</TD>
<TD width="12%"><FONT color=#003399>
<div align="right">送书费：</div>
</TD>
<TD width="9%">
<div align="left"><font color="#FF0000"><%=res_main("send_exes")%></font></div>
</TD>
<TD width="10%"><FONT color=#003399>
<div align="right">共计：</div>
</TD>
<TD width="15%">
<div align="right"><font color="#FF0000"><%=res_main("total_exes")%>元</font></div>
</TD>
</TR>
</TABLE>
<p></p>
<TABLE WIDTH=75% BORDER=0 CELLSPACING=1 CELLPADDING=1 style="font-size: 9pt">
<TR>
<TD width="30%" bgcolor="#CCCC00"><FONT color=#003399>其他<BR>
</TD>
<TD width="70%" bgcolor="#CCCC00"></TD>
</TR>
<TR>
<TD width="30%"><FONT color=#003399>方便的收货时间：</TD>
<TD width="70%"><%=res_main("send_time")%></TD>
</TR>
<TR>
<TD width="30%"><FONT color=#003399>留言：</TD>
<TD width="70%"><%=res_main("leave_word")%></TD>
</TR>
</TABLE>
<%
Res.close
res_main.Close()
con.Close
end if 'Response.Write "该订单中没有书籍！"
%></center></div></FONT></B>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?