<%
'on error resume  next
%>
<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/present.asp" -->
<% chk_log()%>
<%
chk_newpwr 4,0,0

conn.open constr
mailname=trim(SafeRequestform("mailname"))
module=trim(SafeRequestform("module"))
mnme=mailname
if mailname="" then
call errorpage(-2,"对不起，请选择需要操作的邮局！")
end if
if module="" or  isnull(module) then
call errorpage(-2,"对不起，请选择需要操作的类型！")
end if
module=lcase(module)
query="select * from v_emllst  where m_dme='"&mailname&"'"
rs.open query,conn,1,1
if rs.recordcount<>1 then
call errorpage(-2,"对不起，该企业邮局不存在！")
end if
m_id=rs("m_id")
rs.close

turnurl="/master/pdtmng/eml_mng/eml_adm.asp?mnme="&mnme
select case module
case "eml_ctt"   
substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_ctt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "m_copnme_cn:" & trim(SafeRequestform("m_copnme_cn")) & Vend
   substrContent = substrContent & "m_ctt_cn:" & trim(SafeRequestform("m_ctt_cn")) & Vend
   substrContent = substrContent & "m_adr_cn:" & trim(SafeRequestform("m_adr_cn")) & Vend
   substrContent = substrContent & "m_prv_cn:" & trim(SafeRequestform("m_prv_cn")) & Vend
   substrContent = substrContent & "m_cde:" & trim(SafeRequestform("m_cde")) & Vend
   substrContent = substrContent & "m_tel:" & trim(SafeRequestform("m_tel")) & Vend
   substrContent = substrContent & "m_fax:" & trim(SafeRequestform("m_fax")) & Vend
   substrContent = substrContent & "m_eml:" & trim(SafeRequestform("m_eml")) & Vend
   substrContent = substrContent & "." & Vend
case "eml_edta"  
 substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_edta"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "m_prd:" & trim(SafeRequestform("m_prd")) & Vend
   substrContent = substrContent & "m_sst:" & trim(SafeRequestform("m_sst")) & Vend
   substrContent = substrContent & "m_regtpe:" & trim(SafeRequestform("m_regtpe")) & Vend
   substrContent = substrContent & "m_regstt:" & trim(SafeRequestform("m_regstt")) & Vend
   substrContent = substrContent & "m_yarcnt:" & trim(SafeRequestform("m_yarcnt")) & Vend
   substrContent = substrContent & "years:" & trim(SafeRequestform("years")) & Vend
   substrContent = substrContent & "m_prcstr:" & trim(SafeRequestform("m_prcstr")) & Vend
   substrContent = substrContent & "m_addtme:" & trim(SafeRequestform("m_addtme")) & Vend
   substrContent = substrContent & "m_exptme:" & trim(SafeRequestform("m_exptme")) & Vend
   substrContent = substrContent & "m_svrip:" & trim(SafeRequestform("m_svrip")) & Vend
   substrContent = substrContent & "m_cprnme:" & trim(SafeRequestform("m_cprnme")) & Vend
   substrContent = substrContent & "content:" & trim(SafeRequestform("content")) & Vend
   substrContent = substrContent & "." & Vend
'''''''''''''''''''''''''''''''
case "eml_edtb"   
substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_edtb"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "m_dme:" & trim(SafeRequestform("m_dme")) & Vend
   substrContent = substrContent & "m_sze:" & trim(SafeRequestform("m_sze")) & Vend
   substrContent = substrContent & "m_szeadd:" & trim(SafeRequestform("m_szeadd")) & Vend
   substrContent = substrContent & "m_usrcnt:" & trim(SafeRequestform("m_usrcnt")) & Vend
   substrContent = substrContent & "m_maxdns:" & trim(SafeRequestform("m_maxdns")) & Vend
   substrContent = substrContent & "m_usradd:" & trim(SafeRequestform("m_usradd")) & Vend
   substrContent = substrContent & "m_ifpay:" & trim(SafeRequestform("m_ifpay")) & Vend
   substrContent = substrContent & "." & Vend
'''''''''''''''''''''''''''''''

case "eml_edtc"   
substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_edtc"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "pstprd1:" & trim(SafeRequestform("pstprd1")) & Vend
   substrContent = substrContent & "pstprd2:" & trim(SafeRequestform("pstprd2")) & Vend
   substrContent = substrContent & "pstprd3:" & trim(SafeRequestform("pstprd3")) & Vend
   substrContent = substrContent & "pstnme1:" & trim(SafeRequestform("pstnme1")) & Vend
   substrContent = substrContent & "pstnme2:" & trim(SafeRequestform("pstnme2")) & Vend
   substrContent = substrContent & "pstnme3:" & trim(SafeRequestform("pstnme3")) & Vend
   substrContent = substrContent & "setnme:" & trim(SafeRequestform("setnme")) & Vend
   substrContent = substrContent & "pstrotprd:" & trim(SafeRequestform("pstrotprd")) & Vend
   substrContent = substrContent & "pstrotnme:" & trim(SafeRequestform("pstrotnme")) & Vend
   substrContent = substrContent & "." & Vend
'''''''''''''''''''''''''''''''
case "eml_sze"

'''''''''''''''''''''''''''''   
substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_sze"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "m_sze:" & trim(SafeRequestform("m_sze")) & Vend
   substrContent = substrContent & "m_szeadd:" & trim(SafeRequestform("m_szeadd")) & Vend
   substrContent = substrContent & "." & Vend
case "eml_maxmbx" 
'''''''''''''''''''''''''''''   
substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_maxmbx"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "m_usrcnt:" & trim(SafeRequestform("m_usrcnt")) & Vend
   substrContent = substrContent & "m_usradd:" & trim(SafeRequestform("m_usradd")) & Vend
   substrContent = substrContent & "." & Vend
case "eml_maxsze" 
'''''''''''''''''''''''''''''   
substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_maxsze"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "m_sze:" & trim(SafeRequestform("m_sze")) & Vend
   substrContent = substrContent & "m_szeadd:" & trim(SafeRequestform("m_szeadd")) & Vend
   substrContent = substrContent & "." & Vend
case "eml_dela"   
substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_dela"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "." & Vend
case "eml_delb"  
   substrContent = "entryclass:eml_mng"&Vend
   substrContent =substrContent& "entrytype:eml_delb"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "." & Vend
case "eml_delc"  
 substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_delc"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "." & Vend
    turnurl="/master/pdtmng/eml_mng/eml_lst.asp"
case "eml_buyfree"
   substrContent = "entryclass:eml_mng"&VEnd
   substrContent =substrContent& "entrytype:eml_buyfree"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent = substrContent & "mailname:" & mailname & VEnd
   substrcontent = substrcontent & "m_svrip:" & SafeRequest("m_svrip") & Vend
   substrcontent = substrcontent & "m_pss:" & SafeRequest("m_pss") & Vend
   substrcontent = substrcontent & "m_sze:" & SafeRequest("m_sze") & Vend
   substrcontent = substrcontent & "m_usrcnt:" & SafeRequest("m_usrcnt") & Vend
   substrContent = substrContent & "." & VEnd
   case "own"
          substrcontent = "entryclass:sys2_mng" & Vend
          substrcontent = substrcontent & "entrytype:own" & Vend
          substrcontent = substrcontent & "entryuser:" & entryuser & Vend
          substrcontent = substrcontent & "entrypass:" & entrypass & Vend
          substrcontent = substrcontent & "agentname:" & agentname & Vend
          substrcontent = substrcontent & "g_prd:" & SafeRequest("g_prd") & Vend
          substrcontent = substrcontent & "g_pnme:" & SafeRequest("g_pnme") & Vend
          substrcontent = substrcontent & "ifall:" & SafeRequest("ifall") & Vend
          substrcontent = substrcontent & "oldunme:" & SafeRequest("oldunme") & Vend
          substrcontent = substrcontent & "newunme:" & trim(SafeRequest("newunme")) & Vend
          substrcontent = substrcontent & "." & Vend
end select
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( turnurl)
   Else
      call errorpage(-2,doresult)
   end if

 ''''''''''''''''''''''''''''''''''''''''''''''''''''

%>

