📄 showsuborder.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim UserID,Pro_ID,stime
Dim j
Dim crs,csql
UserID = Trim(Request("UID"))
Pro_ID = Trim(Request("PID"))
stime = Trim(Request("stime"))
if Pro_ID="" or isnull(Pro_ID) then
Call Msg("非法参数",1,"")
end if
%>
<html>
<head>
<title>订单查看</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>订单管理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><%
if GetUserGPower <> 9999 then
Response.write "<a href=""SubOrder.asp"">我的订单</a>"
Response.write " | <a href=""SubOrder_wrt.asp?Action=Add"">添加订单</a>"
end if
if GetUserGPower = 99 then
Response.write " | <a href=""FX_SubOrder.asp"">县分销点订单</a>"
Response.write " | <a href=""FX_SubOrder.asp?Chk=0"">未审核订单</a>"
end if
if GetUserGPower = 999 then
Response.write " | <a href=""FS_SubOrder.asp"">市分销点订单</a>"
Response.write " | <a href=""X_SubOrder.asp"">县级订单</a>"
Response.write " | <a href=""X_SubOrder.asp?Chk=0"">未审核订单</a>"
end if
if GetUserGPower = 9999 then
Response.write "<a href=""S_SubOrder.asp"">订单列表</a>"
Response.write " | <a href=""S_SubOrder.asp?Chk=0"">订单审核</a>"
end if
%></td>
</tr>
</table><br>
<%
sql ="Select * from T_SubOrder where UserID = "&Cstr(UserID)&" and Pro_ID = "&Cstr(Pro_ID)&" and convert(varchar(10),Intime,120)='"&Stime&"'"
Call sql_open(rs,sql,conn,1,1)
if rs.eof and rs.bof then
response.write "没有任何订单"
else
for j=0 to rs.recordcount
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="topbg">
<td height="22" colspan="6"><%=rs("SubOrderTitle")%> [<%=Rs("InTime")%>]</td>
</tr>
<tr class="tdbg">
<td width="75"><strong>产品型号</strong></td>
<td><%
csql = "Select Pro_ID,Pro_MC,Pro_DJ from T_Product where Pro_ID="&Cstr(rs("Pro_ID"))&";"
Call sql_open(crs,csql,Conn,1,1)
if crs.eof and crs.bof then
Response.write "<font color=""#FF0000""><b>没有此产品</b></font>"
else
Response.write crs("Pro_MC")
end if
Response.write " <font color=""#0000FF""> "&rs("Pro_col")&" </font>"
%></td>
<td width="80"><strong>申购数量</strong></td>
<td><%=rs("SubOrderTotal")%></td>
<td width="120"><strong> 要求到货日期</strong></td>
<td><%=Rs("ToTime")%></td>
</tr>
<tr class="tdbg">
<td><strong>现款现货</strong></td>
<td><%
if Rs("IsMoney")=true then
response.write "<font color='#FF0000'>是</font>"
else
response.write "<font color='#0000FF'>否</font>"
end if
%></td>
<td><strong>金额</strong></td>
<td><%=Rs("SubMoney")%></td>
<td><strong>申请人</strong></td>
<td>
<%'UserID,UserName,CityID,CountyID,UserGPower,UserType,
Dim CityName,CountyName
csql = "select * from City where CityID="&cstr(Rs("CityID"))&""
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
CityName = "市名不存在"
else
CityName = crs("CityName")
end if
call rs_end(crs)
if Rs("CountyID")=0 then
CountyName = " "
else
csql = "select * from County where CountyID="&cstr(Rs("CountyID"))&""
call sql_open(crs,csql,conn,1,1)
if crs.eof and crs.bof then
CountyName = "县名不存在"
else
CountyName = crs("CountyName")
end if
call rs_end(crs)
end if
response.write CityName&"-"&CountyName&"-"&Rs("UserName")
if rs("userGPower")=999 then
response.write "<font color='#0000FF'>(市级用户)</font>"
elseif rs("userGPower")=99 then
response.write "<font color='#0000FF'>(县级用户)</font>"
elseif rs("userGPower")=9 then
if Rs("Usertype")=1 then
response.write "<font color='#0000FF'>(市分销点用户)</font>"
else
response.write "<font color='#0000FF'>(县分销点用户)</font>"
end if
end if
%> </td>
</tr>
<tr class="tdbg">
<td><strong>其它说明</strong></td>
<td colspan="5"><%=rs("SubOrderInfo")%></td>
</tr>
<tr class="tdbg">
<td>订单状态</td>
<td>
<%
if Rs("IsChk")=0 then
Response.write "<font color='#0000FF'>未审核</font>"
elseif rs("IsChk")=1 then
Response.write "审核"
elseif rs("IsChk")=2 then
Response.write "<font color='#FF0000'>拒绝</font>"
end if
%>
</td>
<td>
<%
if Rs("IsOutOrder")=0 then
Response.write "<font color='#0000FF'>未发货</font>"
else
Response.write "<font color='#0000FF'>已发货</font>"
Response.write Rs("OutNum")&"次 "
Response.Write "【<a href=""../SubOutOrder/ShowSubOutOrderList.asp?ID="&Rs("SubOrderID")&""">查看发货记录</a>】"
end if
if Rs("IsChk")=1 then
if Rs("UserGPower")=999 then
response.Write " | <a href=""../SubOutOrder/P_SubOutOrder_wrt.asp?Action=Thi&Area=1&SubOrderID="&Rs("SubOrderID")&"&CCityID="&Rs("CityID")&"&CountyID="&Rs("CountyID")&"&Pro_ID="&Rs("Pro_ID")&""">发货</a>"
elseif Rs("UserGPower")=99 then
response.Write " | <a href=""../SubOutOrder/P_SubOutOrder_wrt.asp?Action=Thi&Area=2&SubOrderID="&Rs("SubOrderID")&"&CityID="&Rs("CityID")&"&CountyID="&Rs("CountyID")&"&Pro_ID="&Rs("Pro_ID")&""">发货</a>"
end if
end if
%></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%if Rs("IsChk")=1 then%>
<tr class="tdbg">
<td>审核日期</td>
<td colspan="5"><%=Rs("ChkTime")%></td>
</tr>
<tr class="tdbg">
<td>审核内容</td>
<td colspan="5"><%=Rs("ChkInfo")%></td>
</tr>
<%
end if
if Rs("IsChk")<>1 or isnull(Rs("IsChk")) then
%>
<form name="form1" method="post" action="SubOrder_Showsave.asp">
<tr class="tdbg">
<td>操作</td>
<td colspan="5"><input name="IsChk" type="radio" value="1" checked <%if rs("IsChk")=1 then response.Write("checked")%>>
审核
<input type="radio" name="IsChk" value="2" <%if rs("IsChk")=2 then response.Write("checked")%>>
拒绝</td>
</tr>
<tr class="tdbg">
<td>内容</td>
<td colspan="5"><textarea name="ChkInfo" cols="50" rows="4" id="ChkInfo"><%=Rs("ChkInfo")%></textarea>
<input name="SubOrderID" type="hidden" id="SubOrderID" value="<%=Rs("SubOrderID")%>">
<input name="Sel" type="hidden" id="Sel" value="6">
</td>
</tr>
<tr class="tdbg">
<td> </td>
<td colspan="5"><input type="submit" name="Submit" value="提交"></td>
</tr>
</form>
<%
end if
if Rs("IsChk")=1 then
%>
<tr class="tdbg">
<td> </td>
<td colspan="5">
<%
if Rs("OutNum")<>0 then%>
<input name="B1" type="button" id="B1" value="查看发货记录" onClick="window.location.href='../SubOutOrder/ShowSubOutOrderList.asp?ID=<%=Rs("SubOrderID")%>'" style="cursor:hand;">
<%
end if
if Rs("IsOutOrder")<>2 then
if Rs("UserGPower")=999 then
response.Write "<input name=""B2"" type=""button"" id=""B2"" value=""发货"" onClick=""window.location.href='../SubOutOrder/P_SubOutOrder_wrt.asp?Action=Thi&Area=1&SubOrderID="&Rs("SubOrderID")&"&CCityID="&Rs("CityID")&"&CountyID="&Rs("CountyID")&"&Pro_ID="&Rs("Pro_ID")&"'"" style=""cursor:hand;"">"
elseif Rs("UserGPower")=99 then
response.Write "<input name=""B2"" type=""button"" id=""B2"" value=""发货"" onClick=""window.location.href='../SubOutOrder/P_SubOutOrder_wrt.asp?Action=Thi&Area=2&SubOrderID="&Rs("SubOrderID")&"&CityID="&Rs("CityID")&"&CountyID="&Rs("CountyID")&"&Pro_ID="&Rs("Pro_ID")&"'"" style=""cursor:hand;"">"
end if
' if Rs("UserGPower")=99 then
' response.Write " | <a href=""../SubOutOrder/P_SubOutOrder_wrt.asp?Action=Thi&Area=1&SubOrderID="&Rs("SubOrderID")&"&CCityID="&Rs("CityID")&"&CountyID="&Rs("CountyID")&"&Pro_ID="&Rs("Pro_ID")&""">发货</a>"
' elseif Rs("UserGPower")=99 then
' response.Write " | <a href=""../SubOutOrder/P_SubOutOrder_wrt.asp?Action=Thi&Area=2&SubOrderID="&Rs("SubOrderID")&"&CityID="&Rs("CityID")&"&CountyID="&Rs("CountyID")&"&Pro_ID="&Rs("Pro_ID")&""">发货</a>"
' end if
%>
</td>
<%end if%>
</tr>
<%end if%>
</table>
<br>
<%
rs.movenext
If rs.eof then Exit for
Next
end if
call rs_end(rs)
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -