📄 suborder_wrt.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
dim Action,crs,csql,Pro_Name
Action = Trim(request("Action"))
%>
<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 src="../js/ListOp.js " language=javascript></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"><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>
<%
if Action="Add" then '添加
call AddAdmin()
elseif Action="SaveAdd" then '保存添加
call SaveAdd()
elseif Action="Modify" then '修改
call Modify()
elseif Action="SaveModify" then '保存修改
call SaveModify()
end if
Call Conn_End(Conn)
sub AddAdmin()
%>
<form method="post" action="SubOrder_wrt.asp" name="Myfrom">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="topbg">
<td height="22" colspan="2"> <div align="center">填写订单</div></td>
</tr>
<tr class="tdbg">
<td width="160" class="tdbg">订单主题</td>
<td width="829" class="tdbg"><input name="SubOrderTitle" type="text" id="SubOrderTitle" size="40" maxlength="30"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">申购产品/型号</td>
<TD class=tablebody2 valign=top>产品名称/型号
<select name="Pro_ID" id="Pro_ID">
<%Call Opt_N("T_Product","Pro_ID","Pro_MC","",0)%>
</select>
产品颜色
<input name="Pro_col" type="text" id="Pro_col" size="8" maxlength="5">
申购数量
<input name="SubOrderTotal" type="text" id="SubOrderTotal" size="10" maxlength="2"> </td>
</TD>
</tr>
<tr class="tdbg">
<td class="tdbg">要求到货日期</td>
<td class="tdbg"><input name=toTime size=22 readonly> <img align=absMiddle alt="date picker" border=0 id=toDivPos name=toDivPos onMouseUp="toggleDatePicker('toDiv','Myfrom.toTime')" src="../images/calendaricon.gif" width="34" height="21">之间
<div id=toDiv style="POSITION: absolute; width: 50; left: 534px; top: 150px"></div> </td>
</tr>
<tr class="tdbg">
<td class="tdbg">说明</td>
<td class="tdbg"><textarea name="SubOrderInfo" cols="60" rows="6" id="SubOrderInfo"></textarea></td>
</tr>
<tr class="tdbg">
<td class="tdbg">是否现款现货</td>
<td class="tdbg"><input type="radio" name="IsMoney" value="1">
是
<input name="IsMoney" type="radio" value="0" checked>
否</td>
</tr>
<tr class="tdbg">
<td class="tdbg">款货金额</td>
<td class="tdbg"><input name="SubMoney" type="text" id="SubMoney" value="0" size="15" maxlength="20">
元</td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg">
<input name="UserID" type="hidden" id="UserID" value="<%=GetUserID%>">
<input name="UserName" type="hidden" id="UserName" value="<%=GetUserName%>">
<input name="CityID" type="hidden" id="CityID" value="<%=GetCityID%>">
<input name="CountyID" type="hidden" id="CountyID" value="<%=GetCountyID%>">
<input name="UserGPower" type="hidden" id="UserGPower" value="<%=GetUserGPower%>">
<input name="UserType" type="hidden" id="UserType" value="<%=GetUserType%>">
<input name="Action" type="hidden" id="Action" value="SaveAdd">
<input type="submit" name="Submit" value=" 添 加 " style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='SubOrder.asp'" style="cursor:hand;"></td>
</tr>
</table>
</form>
<%
end sub
sub Modify()
Dim SubOrderID
SubOrderID=trim(Request("ID"))
if SubOrderID="" then
Call Msg("请指定要修改的内容", 1,"")
exit sub
else
SubOrderID=Clng(SubOrderID)
end if
Sql="Select * from T_SubOrder where SubOrderID=" & SubOrderID
Call sql_open(Rs,Sql,Conn,1,3)
If Rs.Bof And Rs.EOF Then
Call Msg("不存在此内容",1,"")
Else
if Rs("IsChk")=1 then
Call Msg("订单已经确认,请不要修改",1,"")
end if
%>
<form method="post" action="SubOrder_wrt.asp" name="Myfrom" onsubmit="javascript:return CheckModify();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="topbg">
<td height="22" colspan="2"> <div align="center">修改订单</div></td>
</tr>
<tr>
<td class="tdbg">主题</td>
<td class="tdbg"><input name="SubOrderTitle" type="text" id="SubOrderTitle" value="<%=Rs("SubOrderTitle")%>" size="40" maxlength="30"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">申购产品/型号</td>
<TD class=tablebody2 valign=top>产品名称/型号
<select name="Pro_ID" id="Pro_ID">
<%Call Opt_N("T_Product","Pro_ID","Pro_MC",Rs("Pro_ID"),0)%>
</select>
产品颜色
<input name="Pro_col" type="text" id="Pro_col" size="8" maxlength="5" value="<%=Rs("Pro_col")%>">
申购数量
<input name="SubOrderTotal" type="text" id="SubOrderTotal" value="<%=Rs("SubOrderTotal")%>"> </td>
</TD>
</tr>
<tr class="tdbg">
<td class="tdbg">要求到货日期</td>
<td class="tdbg"><input name=toTime size=22 readonly value="<%=Rs("toTime")%>"> <img align=absMiddle alt="date picker" border=0 id=toDivPos name=toDivPos onMouseUp="toggleDatePicker('toDiv','Myfrom.toTime')" src="../images/calendaricon.gif" width="34" height="21">之间
<div id=toDiv style="POSITION: absolute; width: 50; left: 534px; top: 150px"></div> </td>
</tr>
<tr class="tdbg">
<td class="tdbg">说明</td>
<td class="tdbg"><textarea name="SubOrderInfo" cols="60" rows="6" id="SubOrderInfo"><%=Rs("SubOrderInfo")%></textarea>
</td>
</tr>
<tr class="tdbg">
<td class="tdbg">是否现款现货</td>
<td class="tdbg"><input type="radio" name="IsMoney" value="1" <%if Rs("IsMoney")=true then Response.Write("checked")%>>
是
<input name="IsMoney" type="radio" value="0" <%if Rs("IsMoney")=false then Response.Write("checked")%>>
否</td>
</tr>
<tr class="tdbg">
<td class="tdbg">款货金额</td>
<td class="tdbg"><input name="SubMoney" type="text" id="SubMoney" value="<%=Rs("SubMoney")%>" size="15" maxlength="20">
元</td>
</tr>
<tr>
<td colspan="2" align="center" class="tdbg">
<input name="UserID" type="hidden" id="UserID" value="<%=Rs("UserID")%>">
<input name="UserName" type="hidden" id="UserName" value="<%=Rs("UserName")%>">
<input name="CityID" type="hidden" id="CityID" value="<%=Rs("CityID")%>">
<input name="CountyID" type="hidden" id="CountyID" value="<%=Rs("CountyID")%>">
<input name="UserGPower" type="hidden" id="UserGPower" value="<%=Rs("UserGPower")%>">
<input name="UserType" type="hidden" id="UserType" value="<%=Rs("UserType")%>">
<input name="SubOrderID" type="hidden" id="SubOrderID" value="<%=Rs("SubOrderID")%>">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input type="submit" name="Submit" value="保存修改结果" style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='SubOrder.asp'" style="cursor:hand;"></td>
</tr>
</table>
</form>
<%
End If
Call Rs_End(Rs)
End Sub
%>
</body>
</html>
<%
'增加新组
Sub SaveAdd()
Dim DDNo
Dim Pro_col
Dim Pro_ID,SubOrderTitle,SubOrderTotal,toTime,SubOrderInfo,IsMoney,SubMoney
Dim UserID,UserName,CityID,CountyID,UserGPower,UserType
Dim SupChk_UserGPower
DDNo = trim("DD"&Format_Time(Now(),7)&RndNum(4))
Pro_ID=trim(Request("Pro_ID"))
SubOrderTitle=trim(Request("SubOrderTitle"))
SubOrderTotal=trim(Request("SubOrderTotal"))
Pro_col = trim(Request("Pro_col"))
toTime=trim(Request("toTime"))
SubOrderInfo=trim(Request("SubOrderInfo"))
IsMoney=trim(Request("IsMoney"))
SubMoney=trim(Request("SubMoney"))
UserID = trim(Request("UserID"))
UserName = trim(Request("UserName"))
CityID = trim(Request("CityID"))
CountyID = trim(Request("CountyID"))
UserGPower = trim(Request("UserGPower"))
UserType = trim(Request("UserType"))
if UserGPower = 9999 then
SupChk_UserGPower = 9999
elseif UserGPower = 999 then
SupChk_UserGPower = 9999
elseif UserGPower = 99 then
SupChk_UserGPower = 999
elseif UserGPower = 9 then
if GetUserType = 1 then
SupChk_UserGPower = 999
else
SupChk_UserGPower = 99
end if
end if
Sql="Select * from T_SubOrder"
Call sql_open(Rs,Sql,Conn,1,3)
rs.addnew
rs("DDNo")=DDNo '流水号：DD+年月日时分秒+4位随机数
rs("Pro_ID")=Pro_ID
rs("SubOrderTitle")=SubOrderTitle
rs("SubOrderTotal")=SubOrderTotal
rs("Pro_col") = Pro_col
rs("toTime")=toTime
rs("SubOrderInfo")=SubOrderInfo
if IsMoney=1 then
rs("IsMoney")=true
rs("SubMoney")=SubMoney
else
rs("IsMoney")=false
rs("SubMoney")=0
end if
' rs("SubMoney")=SubMoney
rs("UserID")=UserID
rs("UserName")=UserName
rs("CityID")=CityID
rs("CountyID")=CountyID
rs("UserGPower")=UserGPower
rs("SupChk_UserGPower") = SupChk_UserGPower
rs("UserType")=UserType
rs.update
Call Rs_End(Rs)
Call Msg("添加成功", 5,"SubOrder.asp?sel=0")
end sub
'修改
sub SaveModify()
Dim SubOrderID
Dim Pro_col
Dim Pro_ID,SubOrderTitle,SubOrderTotal,toTime,SubOrderInfo,IsMoney,SubMoney
Dim UserID,UserName,CityID,CountyID,UserGPower,UserType
SubOrderID=trim(Request("SubOrderID"))
if SubOrderID="" then
Call Msg("请指定要修改的内容", 1,"")
else
SubOrderID=Clng(SubOrderID)
end if
Pro_ID=trim(Request("Pro_ID"))
SubOrderTitle=trim(Request("SubOrderTitle"))
SubOrderTotal=trim(Request("SubOrderTotal"))
Pro_col = trim(Request("Pro_col"))
toTime=trim(Request("toTime"))
SubOrderInfo=trim(Request("SubOrderInfo"))
IsMoney=trim(Request("IsMoney"))
SubMoney=trim(Request("SubMoney"))
if SubOrderInfo="" then
Call Msg("主题不能为空", 1,"")
end if
UserID = trim(Request("UserID"))
UserName = trim(Request("UserName"))
CityID = trim(Request("CityID"))
CountyID = trim(Request("CountyID"))
UserGPower = trim(Request("UserGPower"))
UserType = trim(Request("UserType"))
Sql="Select * from T_SubOrder where SubOrderID=" & SubOrderID
Call sql_open(Rs,Sql,Conn,1,3)
if Rs.Bof and Rs.EOF then
Call Msg("不存在此内容", 1,"")
Call Rs_End(Rs)
exit sub
end if
rs("IsChk") = 0 '如果上级拒绝，重写IsChk
rs("Pro_ID")=Pro_ID
rs("SubOrderTitle")=SubOrderTitle
rs("SubOrderTotal")=SubOrderTotal
rs("Pro_col") = Pro_col
rs("toTime")=toTime
rs("SubOrderInfo")=SubOrderInfo
if IsMoney=1 then
rs("IsMoney")=true
rs("SubMoney")=SubMoney
else
rs("IsMoney")=false
end if
rs("UserID")=UserID
rs("UserName")=UserName
rs("CityID")=CityID
rs("CountyID")=CountyID
rs("UserGPower")=UserGPower
rs("UserType")=UserType
Rs.update
Call Rs_End(Rs)
Call Msg("修改成功", 5,"SubOrder.asp?sel=0")
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -