📄 subsaleorder.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
Dim Action,crs,csql,Pro_Name
Dim CountyID
Action = Trim(request("Action"))
CountyID = Trim(request("CountyID"))
%>
<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">
<script language="JavaScript">
<!--
function ShowPro(id) {
var url = "../product/ShowProInfo.asp?ID=" + id ;
window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
}
function ShowUser(id) {
var url = "../User/ShowUserInfo.asp?ID=" + id ;
window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
}
function ShowSubOutOrder(id) {
var url = "ShowSubOutOrderInfo.asp?ID=" + id ;
window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
}
//-->
</script>
</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">销售记录</td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<%
Response.write "<a href=""mySubSaleOrder.asp"">我的销售记录</a>"
Response.write " | <a href=""SubSaleOrder_add.asp"">添加销售记录</a>"
if GetUserGPower=9999 then
Response.write " | <a href=""P_SubSaleOrder_s.asp"">(省)销售统计</a>"
elseif GetUserGPower=999 then
Response.write " | <a href=""S_SubSaleOrder_s.asp"">(市)销售统计</a>"
elseif GetUserGPower=99 then
Response.write " | <a href=""X_SubSaleOrder_s.asp"">(县)销售统计</a>"
end if
%>
</td>
</tr>
</table>
<%
if Action="Del" then '删除
call DelAdmin()
else
call main()
end if
Call Conn_End(Conn)
sub main()
'/////////////////////////////////////////////
if GetUserGPower=9 then '分销点能看到自己的
Sql = "Select * from T_SubSaleOrder where UserID = "&cstr(GetUserID)&" Order by InTime desc;"
elseif GetUserGPower=99 then
Sql = "Select * from T_SubSaleOrder where CountyID = "&GetCountyID&" Order by InTime desc;"
elseif GetUserGPower=999 then
Sql = "Select * from T_SubSaleOrder where CityID = "&GetCityID&" Order by InTime desc;"
elseif GetUserGPower=9999 then
Sql = "Select * from T_SubSaleOrder Order by InTime desc;"
end if
'查看自己的
'Sql = "Select * from T_SubSaleOrder where UserID = "&GetUserID&" Order by InTime desc;"
Call sql_open(Rs,Sql,Conn,1,1)
Call page_code(Rs,20)
If Not Rs.Eof Then
IsFor=True
Else
IsFor=False
Response.write "<center><b><font color=red>暂无内容！</font></b></center>"
End IF
%>
<br>
<table width='100%' border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="title">
<td>产品名称/型号</td>
<td>颜色</td>
<td>单价</td>
<td>销售数量</td>
<td>出售单价</td>
<td>总销售额</td>
<td>回款数</td>
<td>回款金额</td>
<td>填报时间</td>
<td>填报人</td>
<td>审核</td>
<td width="120" height="22"> 操 作</td>
</tr>
<%
For i= 1 to Rs.PageSize
If Rs.Eof Then Exit For
%>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td><a href="javascript:ShowPro('<%=Rs("Pro_ID")%>')" title="查看产品信息"><font color="#0000FF"><%=Rs("Pro_Name")%></font></a></td>
<td align="center"><%=Rs("Pro_Col")%></td>
<td align="center"><%=Rs("Pro_Price")%></td>
<td align="center"><%=Rs("Sale_Num")%></td>
<td align="center"><%=Rs("Sale_Price")%></td>
<td align="center"><%=Rs("Sale_Money")%></td>
<td align="center"><%=Rs("Fund_Num")%></td>
<td align="center"><%=Rs("BackFundMoney")%></td>
<td align="center"><%=Format_Time(Rs("Intime"),8)%></td>
<td align="center">
<%
Dim CityName,CountyName
Dim crs,csql
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)
Response.write CityName
'县级收货
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)
Response.write " "&CountyName
csql = "Select * from T_User where UserID="&Cstr(Rs("UserID"))&""
call sql_open(crs,csql,Conn,1,1)
if crs.eof and crs.bof then
Response.write " <font color='#FF0000'> </font>"
else
Response.write " <a href=""javascript:ShowUser('"&Rs("UserID")&"')"" title='查看用户信息'><font color='#0000FF'>"&crs("UserName")&"</font></a>"
end if
call rs_end(crs)
%>
</td>
<td align="center">
<%
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 align="center">
<%
response.write "<a href='SubSaleOrder_show.asp?ID="&Rs("SaleID")&"'>查看</a>"
if Rs("UserID") = GetUserID then
if Rs("IsChk")=0 then
response.write " | <a href='SubSaleOrder_edit.asp?ID="&Rs("SaleID")&"'>修改</a>"
end if
response.write " | <a href='SubSaleOrder.asp?Action=Del&ID=" &Rs("SaleID")& "' onClick=""return confirm('确定要删除吗？');"">删除</a>"
end if
%>
</td>
</tr>
<%
Rs.MoveNext
Next
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" height="30"> </td>
<td width="300"><%If IsFor Then Call page_code_down(Rs,"","条记录") %></td>
</tr>
</table>
</td>
</tr></table><br>
<br>
<%
end sub
sub DelAdmin()
dim SaleID
SaleID=trim(Request("ID"))
if SaleID="" then
Call Msg("请指定删除的内容", 1,"")
exit sub
end if
if instr(SaleID,",")>0 then
SaleID=replace(SaleID," ","")
Sql="Select * from T_SubSaleOrder where UserID = "&GetUserID&" and SaleID in (" & SaleID & ")"
else
SaleID=clng(SaleID)
sql="select * from T_SubSaleOrder where UserID = "&GetUserID&" and SaleID=" & SaleID
end if
Call sql_open(Rs,Sql,Conn,1,3)
do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
Call Rs_End(Rs)
call main()
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -