<!--#include virtual="/incs/config.asp" -->
<% chk_log()
chk_newpwr 4,0,0
%>
<%
module=trim(SafeRequest("module"))
unme=trim(SafeRequest("unme"))
gnme=trim(SafeRequest("gnme"))
grd=trim(SafeRequest("grd"))
gid=trim(SafeRequest("gid"))
 pageturn="/master/fncmng/fnc_lst.asp?unme="&unme&"&grd="&grd&"&gnme="&gnme&"&gid="&gid
select case module
case "fnc_ruk"
if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_ruk"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& Vend
   substrContent = substrContent & "f_ttl:" &trim(SafeRequest("f_ttl"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_ok:" &trim(SafeRequest("f_ok"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "f_cid:" &trim(SafeRequest("f_cid"))& Vend
   substrContent = substrContent & "." & Vend

case "fnc_tui"
 if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
  substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_tui"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& Vend
   substrContent = substrContent & "f_ttl:" &trim(SafeRequest("f_ttl"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "f_cid:" &trim(SafeRequest("f_cid"))& Vend
   substrContent = substrContent & "." & Vend
case "fnc_tui_ruk"
if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_tui_ruk"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& Vend
   substrContent = substrContent & "f_prd:" &trim(SafeRequest("f_prd"))& Vend
   substrContent = substrContent & "f_ttl2:" &trim(SafeRequest("f_ttl2"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "f_cst:" &trim(SafeRequest("f_cst"))& Vend
   substrContent = substrContent & "f_gid:" &trim(SafeRequest("f_gid"))& Vend
   substrContent = substrContent & "f_yarcnt:" &trim(SafeRequest("f_yarcnt"))& Vend
   substrContent = substrContent & "." & Vend
case "ruk_cfm"
if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:ruk_cfm"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "fid:" &trim(SafeRequest("fid"))& Vend
   substrContent = substrContent & "." & Vend
case "fnc_kou"
 if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
  substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_kou"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& Vend
   substrContent = substrContent & "f_prd:" &trim(SafeRequest("f_prd"))& Vend
   substrContent = substrContent & "f_cst:" &trim(SafeRequest("f_cst"))& Vend
   substrContent = substrContent & "f_ttl2:" &trim(SafeRequest("f_ttl2"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_gid:" &trim(SafeRequest("f_gid"))& Vend
   substrContent = substrContent & "f_yarcnt:" &trim(SafeRequest("f_yarcnt"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "." & Vend
case "fnc_fan"
 if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
  substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_fan"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& Vend
   substrContent = substrContent & "f_ttl:" &trim(SafeRequest("f_ttl"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_prd:" &trim(SafeRequest("f_prd"))& Vend
   substrContent = substrContent & "f_gid:" &trim(SafeRequest("f_gid"))& Vend
   substrContent = substrContent & "f_ttl2:" &trim(SafeRequest("f_ttl2"))& Vend
   substrContent = substrContent & "f_yarcnt:" &trim(SafeRequest("f_yarcnt"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "." & Vend
case "fnc_brw"
  if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
 substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_brw"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& Vend
   substrContent = substrContent & "f_ttl:" &trim(SafeRequest("f_ttl"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "." & Vend
case "fnc_hua"
 if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
  substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_hua"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& Vend
   substrContent = substrContent & "f_ttl:" &trim(SafeRequest("f_ttl"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "." & Vend
case "fnc_don"
if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_don"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& Vend
   substrContent = substrContent & "f_ttl:" &trim(SafeRequest("f_ttl"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "." & Vend
case "fnc_jie"
if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_jie"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& Vend
   substrContent = substrContent & "f_ttl:" &trim(SafeRequest("f_ttl"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "." & Vend
case "fnc_cfm"
   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_cfm"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "fid:" &trim(SafeRequest("fid"))& Vend
   substrContent = substrContent & "." & Vend
case "fnc_edt"
 if session("fnctag")<>"YES" then
doresult="对不起，请勿重复提交以避免重复操作！"
      call errorpage(-2,doresult)
end if
  substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "fid:" &trim(SafeRequest("fid"))& Vend
   substrContent = substrContent & "f_unme:" &trim(SafeRequest("f_unme"))& Vend
   substrContent = substrContent & "f_pay:" &trim(SafeRequest("f_pay"))& Vend
   substrContent = substrContent & "f_cst:" &trim(SafeRequest("f_cst"))& Vend
   substrContent = substrContent & "f_tpe:" &trim(SafeRequest("f_tpe"))& Vend
   substrContent = substrContent & "f_cid:" &trim(SafeRequest("f_cid"))& Vend
   substrContent = substrContent & "f_ttl:" &trim(SafeRequest("f_ttl"))& Vend
   substrContent = substrContent & "f_cnt:" &trim(SafeRequest("f_cnt"))& Vend
   substrContent = substrContent & "f_prd:" &trim(SafeRequest("f_prd"))& Vend
   substrContent = substrContent & "f_rmn:" &trim(SafeRequest("f_rmn"))& Vend
   substrContent = substrContent & "f_all:" &trim(SafeRequest("f_all"))& Vend
   substrContent = substrContent & "f_prz:" &trim(SafeRequest("f_prz"))& Vend
   substrContent = substrContent & "f_brw:" &trim(SafeRequest("f_brw"))& Vend
   substrContent = substrContent & "f_lck:" &trim(SafeRequest("f_lck"))& Vend
   substrContent = substrContent & "f_tmp:" &trim(SafeRequest("f_tmp"))& Vend
   substrContent = substrContent & "f_avl:" &trim(SafeRequest("f_avl"))& Vend
   substrContent = substrContent & "f_usd:" &trim(SafeRequest("f_usd"))& Vend
   substrContent = substrContent & "f_yarcnt:" &trim(SafeRequest("f_yarcnt"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/fncmng/fnc_edt.asp?fid="&trim(SafeRequest("fid"))

case "fnc_del"

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:fnc_del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "fid:" &trim(SafeRequest("fid"))& Vend
   substrContent = substrContent & "." & Vend
case "inv_adm"

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:inv_adm"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
    substrContent =substrContent &"agentpass:"&agentpass&VEnd
  substrContent = substrContent & "iid:" &trim(SafeRequest("iid"))& Vend
   substrContent = substrContent & "i_tpe:" &trim(SafeRequest("i_tpe"))& Vend
   substrContent = substrContent & "." & Vend
 pageturn="/master/fncmng/inv_edt.asp?iid="&trim(SafeRequest("iid"))
case "inv_del"

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:inv_del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "iid:" &trim(SafeRequest("iid"))& Vend
   substrContent = substrContent & "." & Vend
 pageturn="/master/fncmng/inv_lst.asp"
case "inv_snd"

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:inv_snd"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "iid:" &trim(SafeRequest("iid"))& Vend
   substrContent = substrContent & "i_stt:" &trim(SafeRequest("i_stt"))& Vend
   substrContent = substrContent & "i_sndtme:" &trim(SafeRequest("i_sndtme"))& Vend
   substrContent = substrContent & "i_cmt:" &trim(SafeRequest("i_cmt"))& Vend
   substrContent = substrContent & "." & Vend
 
 pageturn="/master/fncmng/inv_edt.asp?iid="&trim(SafeRequest("iid"))
end select


   doresult = hzsocket(substrContent)
   session("fnctag")=""
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage(pageturn)
   Else
      call errorpage(-2,doresult)
	  session("fnctag")=""
   end if

%>
  