📄 corrsave.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim SubOrderID,Action,Info,ArriveLev,UserID,UserGPower
Action	=	trim(Request("Action"))
SubOrderID	=	Request("ID")
Info	=	Request("Info")
ArriveLev	=	Request("ArriveLev")
UserID	=	Request("UserID")
UserGPower = trim(Request("UserGPower"))

Sql="Select * from T_SubOrder where SubOrderID="&Cstr(SubOrderID)&""
Call sql_open(Rs,Sql,Conn,1,3)
if Rs.eof and Rs.bof then
	Call Msg("内容不存在",1,"")
else

	if Action="FH" then
		Rs("IsExpT_SubOrder")=1
	else
		if Rs("UserType")=0 then			'\\\\\\\\县级分销商\\\\\\\\
			if UserGPower = 99 then		'县级用户
				Rs("XUserID")	=GetUserID
				if Action="CheckList" then
					Rs("XIsCheck") = 1
					Rs("ArriveLev")=99
				elseif Action="RefuseList" then
					Rs("XIsCheck")	=2
					Rs("ArriveLev")=9
				end if
				Rs("XInfo")		=Info
				Rs("XCheckTime")=now()				
			elseif UserGPower=999 then		'市级用户
				Rs("SUserID")	=GetUserID
				if Action="CheckList" then
					Rs("SIsCheck") = 1
					Rs("ArriveLev")=999
				elseif Action="RefuseList" then
					Rs("SIsCheck")	=2
					Rs("ArriveLev")=99
				end if
				Rs("SInfo")		=Info
				Rs("SCheckTime")=now()			
			elseif UserGPower=9999 then		'省级用户
				Rs("PUserID")	=GetUserID
				if Action="CheckList" then
					Rs("PIsCheck") = 1
					Rs("ArriveLev")=9999
				elseif Action="RefuseList" then
					Rs("PIsCheck")	=2
					Rs("ArriveLev")=999
				end if
				Rs("PInfo")		=Info
				Rs("PCheckTime")=now()			
			end if

		else					'\\\\\\\\市级分销商\\\\\\\\
			if UserGPower=999 then		'市级用户
				Rs("SUserID")	=GetUserID
				if Action="CheckList" then
					Rs("SIsCheck") = 1
					Rs("ArriveLev")=999
				elseif Action="RefuseList" then
					Rs("SIsCheck")	=2
					Rs("ArriveLev")=99
				end if
				
				Rs("SInfo")		=Info
				Rs("SCheckTime")=now()			
			elseif UserGPower=9999 then		'省级用户
				Rs("PUserID")	=GetUserID
				if Action="CheckList" then
					Rs("PIsCheck") = 1
					Rs("ArriveLev")=9999
				elseif Action="RefuseList" then
					Rs("PIsCheck")	=2
					Rs("ArriveLev")=999
				end if
				
				Rs("PInfo")		=Info
				Rs("PCheckTime")=now()			
			end if
		end if
	end if
	Rs.Update
end if
Call Rs_End(Rs)

if Action="CheckList" then
	Call Msg("保存成功",5,"SubOrder.asp?Check=2")
elseif Action="RefuseList" then
	Call Msg("保存成功",5,"SubOrder.asp?Check=3")
else
	Call Msg("保存成功",5,"SubOrder.asp?Check=1")
end if

%>
<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 + -