<!--#include virtual="/incs/config.asp" -->
<%
chk_log()
chk_newpwr 4,0,0
module=trim(SafeRequest("module"))
select case module
case "are_add" '产品类型添加


   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:are_add"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "f_tagid:" &trim(SafeRequest("f_tagid"))& Vend
   substrContent = substrContent & "f_nme:" &trim(SafeRequest("f_nme"))& Vend
   substrContent = substrContent & "f_usr:" &trim(SafeRequest("f_usr"))& Vend
   substrContent = substrContent & "a_tagid:" &trim(SafeRequest("a_tagid"))& Vend
   substrContent = substrContent & "." & Vend

case "are_edt" '产品类型添加
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:are_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_nme:" &trim(SafeRequest("f_nme"))& Vend
   substrContent = substrContent & "f_usr:" &trim(SafeRequest("f_usr"))& Vend
   substrContent = substrContent & "a_tagid:" &trim(SafeRequest("a_tagid"))& Vend
   substrContent = substrContent & "." & Vend
pageturn="/master/sysmng/are_mng/are_edt.asp?fid="&trim(SafeRequest("fid"))
case "are_del" '产品类型添加

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:are_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
pageturn="/master/sysmng/are_mng/are_lst.asp"

 
end select
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
     if module="are_add" then
	 pageturn="/master/sysmng/are_mng/are_edt.asp?fid="&getval(doresult,"fid")
	 end if
      call okpage(pageturn)
   Else
      call errorpage(-2,doresult)
   end if



%>
