<!--#include virtual="/incs/config.asp" -->
<%chk_log()%>
<%Chk_newpwr 4,0,0

module=SafeRequest("module")
   turnurl="/master/artmng/art_edt.asp?nid="&SafeRequest("nid")
select case module
   case "art_add"
substrContent = "entryclass:sys_mng"&VEnd
   substrContent =substrContent &"entrytype:art_add"&VEnd
   substrContent =substrContent &"entryuser:"&entryuser&VEnd
   substrContent =substrContent &"entrypass:"&entrypass&VEnd
   substrContent =substrContent &"agentname:"&agentname&VEnd
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent  &"n_ttl:" & trim(request("n_ttl")) & VEnd
   substrContent = substrContent  &"n_cnt:" & trim(request("n_cnt")) & VEnd
   substrContent = substrContent  &"n_ifshw:" & trim(SafeRequest("n_ifshw")) & VEnd
   substrContent = substrContent  &"." & VEnd
   turnurl="/master/artmng/art_lst.asp"
   case "art_edt"
   substrContent = "entryclass:sys_mng"&VEnd
   substrContent =substrContent &"entrytype:art_edt"&VEnd
   substrContent =substrContent &"entryuser:"&entryuser&VEnd
   substrContent =substrContent &"entrypass:"&entrypass&VEnd
   substrContent =substrContent &"agentname:"&agentname&VEnd
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent  &"nid:" & trim(SafeRequest("nid")) & VEnd
   substrContent = substrContent  &"n_ttl:" & trim(request("n_ttl")) & VEnd
   substrContent = substrContent  &"n_cnt:" & trim(request("n_cnt")) & VEnd
   substrContent = substrContent  &"n_ifshw:" & trim(SafeRequest("n_ifshw")) & VEnd
   substrContent = substrContent  &"." & VEnd
   case "art_del"
substrContent = "entryclass:sys_mng"&VEnd
   substrContent =substrContent &"entrytype:art_del"&VEnd
   substrContent =substrContent &"entryuser:"&entryuser&VEnd
   substrContent =substrContent &"entrypass:"&entrypass&VEnd
   substrContent =substrContent &"agentname:"&agentname&VEnd
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent  &"nid:" & trim(SafeRequest("nid")) & VEnd
   substrContent = substrContent  &"." & VEnd
   turnurl="/master/artmng/art_lst.asp"
end select
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( turnurl)
   Else
      call errorpage(-2,doresult)
   end if
%>
