suborder_showsave.asp

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

<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->

<%
Dim IsChk,ChkInfo,ID,Sel
Dim UserGPower,UserType
Dim Pro_ID,InChk_UserID
ID=Request("SubOrderID")
IsChk=Request("IsChk")
ChkInfo = request("ChkInfo")
Sel = Trim(Request("Sel"))
If ID = "" then
	Call Msg("非法参数",1,"")
end if

If Sel = "" then
	Call Msg("非法参数",1,"")
end if


select case Sel
	case 1
		Sql = "Select * from T_SubOrder where UserGPower=9 and CountyID="&GetCountyID&" and UserType=0 and SubOrderID="&Cstr(ID)&""
	case 2
		Sql = "Select * from T_SubOrder where UserGPower=9 and CityID="&GetCityID&" and UserType=1 and SubOrderID="&Cstr(ID)&""
	case 3
		Sql = "Select * from T_SubOrder where UserGPower=99 and CityID="&GetCityID&" and SubOrderID="&Cstr(ID)&""
	case 4
		Sql = "Select * from T_SubOrder where UserGPower=999 and SubOrderID="&Cstr(ID)&""
	case 5
		Sql = "Select * from T_SubOrder where UserID="&cstr(GetUserID)&" and SubOrderID="&Cstr(ID)&""
	case 6
		Sql = "Select * from T_SubOrder where SubOrderID="&Cstr(ID)&""		
end select
Call sql_open(Rs,Sql,conn,1,3)
Response.write Sql
'SupChk_UserGPower
UserGPower	=	rs("UserGPower")
UserType	=	rs("UserType")
InChk_UserID	=	rs("UserID")
Pro_ID			=	rs("Pro_ID")
if sel=3 then			'审核县公司订单
	if IsChk=1 then
		rs("SupChk_UserGPower")=9999
		rs("IsChk") = 0
	elseif IsChk=2 then
		rs("SupChk_UserGPower")=999
		rs("IsChk") = 2
	end if
else				'市分销点订单
	rs("IsChk") = IsChk
end if	


rs("SupChk_UserID")=GetUserID
rs("SupChk_UserName")=GetUserName


rs("ChkInfo")=ChkInfo
rs("ChkTime")=Now()
rs.update()



Response.write "<br>IsChk:"&IsChk&"<br>"
Response.write "<br>UserType:"&UserType&"<br>"

if sel=3 then			'市公司审核县公司订单，由省公司发货。
	Call Msg("已经保存",5,"SubOrder_Show.asp?ID="&ID&"&Sel="&Sel&"")
else				

	if IsChk=1 then
		if UserGPower=9 then
			if UserType=1 or UserType=True then
				response.write "市分销点"
				Response.Redirect "../SubOutOrder/S_SubOutOrder_wrt.asp?Action=Thi&Area=1&SubOrderID="&ID&"&InChk_UserID="&InChk_UserID&"&Pro_ID="&Pro_ID&""
			elseif UserType=0 or UserType=False then
				response.write "县分销点"
				Response.Redirect "../SubOutOrder/X_SubOutOrder_wrt.asp?Action=Thi&Area=1&SubOrderID="&ID&"&InChk_UserID="&InChk_UserID&"&Pro_ID="&Pro_ID&""
			end if
		end if
	else				'如果是拒绝。
		Call Msg("已经保存",5,"SubOrder_Show.asp?ID="&ID&"&Sel="&Sel&"")
	end if

end if	



%>