📄 orderview.asp
字号:
<% Option Explicit %>
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
' 功能：订单处理查看页
' OriAuthor: 邓健
' @Language=VBscript
' Create: 2002-10-14
' Modify:
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
%>
<!--#include file="_ccwlib/orderform_lib.asp"-->
<%
Dim RS,Sql,sAdminid,sunGrade,prors,receiverRS,subrs
Dim sStartPage,sPageNum,sRecordNum,i,sOrderid,sim
Dim sorderlimtnum,sordernownum
DB_Connect(strconn)
sAdminid=Session("admid")
'Call IsValidUser(sAdminid,3,1,"../error.htm",oConn) '验证管理员用户
'sunGrade=OrderPowerGrade(sAdminid,sOrder_Level,oConn) '获得管理员在订单管理子系统中的权限
sOrderid=getForm("orderid")
sim=getForm("im")
sStartPage=request("stp")
Set RS=oConn.Execute("select * from order_detail_view where odr_id="&sOrderid)
if rs.eof and rs.bof then
rs.close
%>
<script language="JavaScript">
window.history.go(-1);
</script>
<%
response.end
elseif not rs.eof and not rs.bof then
%>
<HTML>
<HEAD>
<title>诺基亚网络在线订购</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="../../inc/css/pub.css" TYPE="TEXT/CSS">
</HEAD>
<BODY BGCOLOR=#ffffff TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!--#include file="../../inc/all_top.asp" -->
<!--#include file="../../inc/all_first_top.asp" -->
<!--#include file="../../inc/all_second_top.asp" -->
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=710>
<TR>
<TD COLSPAN=3><IMG SRC="../images/dot.gif" WIDTH="1" HEIGHT="10" BORDER=0 ALT=""></TD>
</TR>
<TR>
<TD WIDTH=170 ALIGN=right VALIGN=top>
<!--#include file="../../inc/default_left.asp"-->
</TD>
<TD WIDTH=20><IMG SRC="../images/dot.gif" WIDTH="20" HEIGHT="1" BORDER=0 ALT=""></TD>
<TD WIDTH=520 VALIGN=top CLASS=txt >
1、最大订购数不能超过当前剩余库存数；<BR>
2、当订购数超过订购线时，将由Nokia进行确认。<BR>
<div align="right"> </div>
<HR SIZE=1>
<%
set prors=oConn.execute("select * from orderproduct where odr_id="&sOrderid)
if not prors.eof and not prors.bof then%>
<FORM name="frmoderfather" METHOD=POST ACTION="oderdetails.asp">
<input type="hidden" name="odrid" value="<% response.write sOrderid%>">
<TABLE CELLSPACING=1 CELLPADDING=1 BORDER=0 WIDTH=100%>
<TR BGCOLOR=#558BFF>
<TD ALIGN=center CLASS=txt width="7%"><FONT COLOR=#ffffff>序号</FONT></TD>
<TD ALIGN=center CLASS=txt width="21%"><FONT COLOR=#ffffff>订购物品名称</FONT></TD>
<TD ALIGN=center CLASS=txt width="15%"><FONT COLOR=#ffffff>订购数量</FONT></TD>
<TD ALIGN=center CLASS=txt width="13%"><font color="#FFFFFF">发送次数</font></TD>
<TD ALIGN=center CLASS=txt width="13%"><font color="#FFFFFF">实际发送量</font></TD>
<TD ALIGN=center CLASS=txt width="12%"><font color=#ffffff>订购线</font></TD>
<TD ALIGN=center CLASS=txt width="19%"><FONT COLOR=#ffffff>库存剩余</FONT></TD>
</TR>
<%
i=1
do while not prors.eof
set subrs=oConn.execute("select Ste_nownum,Ste_orderlimit from storeproduct where ste_id="&prors("ste_id"))
if not subrs.eof and not subrs.bof then
sorderlimtnum=subrs(1)
sordernownum=subrs(0)
else
sorderlimtnum="物品已删除"
sordernownum="物品已删除"
end if
subrs.close
%>
<TR BGCOLOR=#E1E1E1>
<TD ALIGN=center CLASS=txt width="7%"><% response.write i%></TD>
<TD ALIGN=center CLASS=txt width="21%"><% response.write prors("ste_name")%></TD>
<TD ALIGN=center CLASS=txt width="15%"><% response.write prors("List_num")%></TD>
<TD ALIGN=center CLASS=txt width="13%"><% response.write rs("ordrr_sendnum")%></TD>
<TD ALIGN=center CLASS=txt width="13%"><%response.write cint( prors("List_num"))*cint( rs("ordrr_sendnum"))%></TD>
<TD ALIGN=center CLASS=txt width="12%"><% response.write sorderlimtnum%></TD>
<TD ALIGN=center CLASS=txt width="19%"><%response.write sordernownum%></TD>
</TR>
<%
prors.movenext
i=i+1
loop
prors.close %>
</TABLE>
<HR SIZE=1>
<% end if %>
<TABLE WIDTH=100% BORDER=1 cellspacing="0" cellpadding="3" bordercolordark="#ffffff" bordercolorlight="#666666">
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">订单人真实姓名：</font></TD>
<TD width="77%"><%response.write RS("Usr_realname")%></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" height="20" bgcolor="#E1E1E1"><font color="#000000">订单用户名：</font></TD>
<TD width="77%" height="20"><%response.write RS("Usr_name")%></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">用户名Email：</font></TD>
<TD width="77%"><%response.write RS("Usr_email")%></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">是否多人发送：</font></TD>
<TD width="77%">
<% if RS("Odr_mul")="y" then response.write "是" %>
<% if RS("Odr_mul")<>"y" then response.write "否" %></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">订单发送次数：</font></TD>
<TD width="77%"><%response.write RS("ordrr_sendnum")%></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">订单发送状态：</font></TD>
<TD width="77%"><% select case cint(RS("Odr_sendstate"))
Case 1 response.write "全部"
Case 2 response.write "部分"
Case 3 response.write "未发送"
case else response.write "未知"
End select %></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">订购单确认：</font></TD>
<TD width="77%"><% if RS("Odr_ispass")<>"y" then
response.write "Y"
else
response.write "N"
End if
%>
</TD>
</TR>
</TABLE>
<HR SIZE=1>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"> </td>
</tr>
</table>
<BR>
</FORM>
<%
End if
rs.close
%>
<%
Set RS=oConn.Execute("select * from orderreceiverdetail where odr_id="&sOrderid)
if not rs.eof and not rs.bof then
%>
<form name="frmodrsub" method="post" action="oderdetails3.asp">
<input type="hidden" name="odrid" value="<% response.write sOrderid%>">
<table width=100% border=0 cellspacing=1 cellpadding=5>
<tr bgcolor="#558BFF" valign="middle">
<td class=ttable width="11%" nowrap align="center">接收人</td>
<td class=ttable align=center width="30%" nowrap>接收地址</td>
<td class=ttable align=center width="13%" nowrap>接收邮编</td>
<td class=ttable align="center" width="17%" nowrap>发送状态</td>
<td class=ttable align=center nowrap>成功状态</td>
<td class=ttable align=center width="10%" nowrap>删除</td>
</tr>
<% do while not rs.eof %>
<tr>
<td class=ko width="11%" nowrap bgcolor="#e1e1e1">
<%response.write RS("odrr_name")%>
</td>
<td class=ko align=center nowrap width="30%" bgcolor="#e1e1e1">
<%response.write RS("odrr_add")%>
</td>
<td class=ko align=center nowrap width="13%" bgcolor="#e1e1e1">
<%response.write RS("odrr_zip")%>
</td>
<td class=ko nowrap width="17%" bgcolor="#e1e1e1" align=center>
<%if RS("odrr_ifsend")="y" then
response.write "已发送"
Elseif RS("odrr_ifsend")="n" then
response.write "未发送"
End if
%>
</td>
<td class=ko align=center nowrap bgcolor="#e1e1e1">
<%
if RS("odrr_sused")="y" then
response.write "Y"
else
response.write "N"
end if
%>
</td>
<td class=ko align=center nowrap width="10%" bgcolor="#e1e1e1"> 否
</td>
</tr>
<%
rs.movenext
loop
%>
</table>
</form>
</TD>
</TR>
</TABLE>
<%end if %>
<BR>
<!--#include file="../../inc/default_end.asp"-->
<BR>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -