suborder_showsave.asp

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

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

<%
Dim IsChk,ChkInfo,ID,Sel
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)
'SupChk_UserGPower
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
elseif sel=2 then	'市分销点订单
	rs("IsChk") = 1
elseif sel=1 then	'市分销点订单
	rs("IsChk") = 1
end if	


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


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

Call Msg("已经保存",5,"SubOrder_Show.asp?ID="&ID&"&Sel="&Sel&"")

%>