📄 fh_save.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家

💻 ASP

字号:

<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim SubOrderID,Pro_ID,Pro_Name,UserType,OutOrder_Num,OutOrder_dj,OutOrder_Info,toLev,atLev
Dim Sub_UserID,Sub_XUserID,Sub_SUserID
SubOrderID	= trim(Request("SubOrderID"))
Pro_ID		= trim(Request("Pro_ID"))
Pro_Name	= trim(Request("Pro_Name"))
UserType	= trim(Request("UserType"))
Sub_UserID	= Trim(Request("Sub_UserID"))
Sub_XUserID	= Trim(Request("Sub_XUserID"))
Sub_SUserID	= Trim(Request("Sub_SUserID"))
OutOrder_Num	= trim(Request("OutOrder_Num"))
OutOrder_dj		= trim(Request("OutOrder_dj"))
OutOrder_Info	= trim(Request("OutOrder_Info"))
toLev			= trim(Request("toLev"))
atLev			= trim(Request("atLev"))
Sql = "Select * from T_SubOutOrder"
Call sql_open(Rs,Sql,Conn,1,3)
Rs.addnew

Rs("SubOrder_ID")		= SubOrderID
Rs("OutOrder_UserID")	= GetUserID				'发货人ID号
Rs("OutOrder_Lev")		= GetUserGPower			'用户所在组级别(9999,999,99)
Rs("Pro_ID")			= Pro_ID
Rs("Pro_Name")			= Pro_Name
Rs("OutOrder_Num")		= OutOrder_Num
Rs("OutOrder_dj")		= OutOrder_dj
Rs("OutOrder_Info")		= OutOrder_Info
Rs("OutOrder_Time")		= now()
Rs("Sub_UserID")		= Sub_UserID				'下订单的用户ID号
if UserType = 0 then
	Rs("Sub_XUserID")		= Sub_XUserID
else
	Rs("Sub_SUserID")		= Sub_SUserID
end if
Rs("Sub_UserType")		= UserType			'下订单用户类型（0县级分销商；1市级分销商）
Rs.update

Dim Rst,sqlt
'''//////////////////////////////////////////////////////////////////////////////////////////
Sqlt="Select * from T_SubOrder where SubOrderID="&Cstr(SubOrderID)&""
Call sql_open(Rst,Sqlt,Conn,1,3)
if Rst.eof and Rst.bof then
	Call Msg("内容不存在",1,"")
else
	Rst("ArriveLev_FH")=toLev
	If atLev=9999 then
		Rst("P_FH")=1
		Rst("P_FH_Time")=now()
	Elseif atLev=999 then
		Rst("S_FH")=1
		Rst("S_FH_Time")=now()
	Elseif atLev=99 then
		Rst("X_FH")=1
		Rst("X_FH_Time")=now()
	end if
	Rst.Update()
end if
Call Rs_End(Rs)

Call Rs_End(Rst)
Call Conn_End(Conn)
Call Msg("已经发货成功",5,"SubOrder.asp?Check=2")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>保存</title>
</head>

<body>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -