<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/md5.asp" -->

<%
chk_log_usr()
entryuser=session("usrname")
entrypass=session("usrpass")
agentname=session("agentname")
module=trim(SafeRequest("module"))



select case module
case "usr_inv" '产品类型添加

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:usr_inv"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "i_copnme_cn:" &trim(SafeRequest("i_copnme_cn"))& Vend
   substrContent = substrContent & "i_mny:" &trim(SafeRequest("i_mny"))& Vend
   substrContent = substrContent & "i_cnt:" &trim(SafeRequest("i_cnt"))& Vend
   substrContent = substrContent & "i_adr_cn:" &trim(SafeRequest("i_adr_cn"))& Vend
   substrContent = substrContent & "i_cde:" &trim(SafeRequest("i_cde"))& Vend
   substrContent = substrContent & "i_tel:" &trim(SafeRequest("i_tel"))& Vend
   substrContent = substrContent & "i_ctt_cn:" &trim(SafeRequest("i_ctt_cn"))& Vend
   substrContent = substrContent & "." & Vend

   
pageturn="/control/usr_chg/usr_inv.asp"
   doresult = hzsocket(substrContent)
    left5=left(doresult,5)
   If left5= "10000" Then
      call okpage(pageturn)
   Else
      call errorpage(-2,doresult)
   end if
case "usr_pss" '产品类型添加

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:usr_pss"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "oldpass:" &trim(SafeRequest("oldpass"))& Vend
   substrContent = substrContent & "newpass1:" &trim(SafeRequest("newpass1"))& Vend
   substrContent = substrContent & "newpass2:" &trim(SafeRequest("newpass2"))& Vend
   substrContent = substrContent & "." & Vend
pageturn="/control/usr_chg/usr_pss.asp"
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      session("usrpass")=md5(trim(SafeRequest("newpass1")))
      call okpage(pageturn)
   Else
      call errorpage(-2,doresult)
   end if


case "usr_inf"
pageturn="/control/usr_chg/usr_inf.asp"
   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:usr_inf"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "u_copnme_cn:" &trim(SafeRequest("u_copnme_cn"))& Vend
   substrContent = substrContent & "u_copnme_en:" &trim(SafeRequest("u_copnme_en"))& Vend
   substrContent = substrContent & "u_surnme_cn:" &trim(SafeRequest("u_surnme_cn"))& Vend
   substrContent = substrContent & "u_nomin_cn:" &trim(SafeRequest("u_nomin_cn"))& Vend
   substrContent = substrContent & "u_surnme:" &trim(SafeRequest("u_surnme"))& Vend
   substrContent = substrContent & "u_nomin:" &trim(SafeRequest("u_nomin"))& Vend
   substrContent = substrContent & "u_con_cn:" &trim(SafeRequest("u_con_cn"))& Vend
   substrContent = substrContent & "u_con_en:" &trim(SafeRequest("u_con_en"))& Vend
   substrContent = substrContent & "u_prv_cn:" &trim(SafeRequest("u_prv_cn"))& Vend
   substrContent = substrContent & "u_prv_en:" &trim(SafeRequest("u_prv_en"))& Vend
   substrContent = substrContent & "u_cty_cn:" &trim(SafeRequest("u_cty_cn"))& Vend
   substrContent = substrContent & "u_cty_en:" &trim(SafeRequest("u_cty_en"))& Vend
   substrContent = substrContent & "u_adr_cn:" &trim(SafeRequest("u_adr_cn"))& Vend
   substrContent = substrContent & "u_adr_en:" &trim(SafeRequest("u_adr_en"))& Vend
   substrContent = substrContent & "u_cde:" &trim(SafeRequest("u_cde"))& Vend
   substrContent = substrContent & "u_tel:" &trim(SafeRequest("u_tel"))& Vend
   substrContent = substrContent & "u_mbl:" &trim(SafeRequest("u_mbl"))& Vend
   substrContent = substrContent & "u_fax:" &trim(SafeRequest("u_fax"))& Vend
   substrContent = substrContent & "u_oicq:" &trim(SafeRequest("u_oicq"))& Vend
   substrContent = substrContent & "u_url:" &trim(SafeRequest("u_url"))& Vend
   substrContent = substrContent & "u_eml:" &trim(SafeRequest("u_eml"))& Vend
   substrContent = substrContent & "u_ctt_cn:" &trim(SafeRequest("u_ctt_cn"))& Vend
   substrContent = substrContent & "." & Vend

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

end select


%>
  