<!--#include virtual="/incs/config.asp" -->
<% chk_log()%>
<%
chk_newpwr 4,0,0
module=trim(SafeRequest("module"))
uid=SafeRequest("uid")
pageturn="/master/memmng/mem_dtl.asp?uid="&uid
select case module
case "mem_pss" '产品类型添加

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:mem_pss"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "newpss:" &trim(SafeRequest("newpss"))& Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend

case "mem_lck" '状态初始化

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:mem_lck"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "newlck:" &trim(SafeRequest("newlck"))& Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend

case "mem_prc" '价格等级
''''''''''''表单处理

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:mem_prc"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "newprc:" &trim(SafeRequest("newprc"))& Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend
   
case "mem_pwr" '管理等级
''''''''''''表单处理

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:mem_pwr"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "newpwr:" &trim(SafeRequest("newpwr"))& Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend

case "mem_are" '管理等级
''''''''''''表单处理

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:mem_are"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "neware:" &trim(SafeRequest("neware"))& Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend

case "mem_rotnme" '管理等级
''''''''''''表单处理

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:mem_rotnme"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "newrotnme:" &trim(SafeRequest("newrotnme"))& Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend
 case "mem_hstip" '管理等级
''''''''''''表单处理

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:mem_hstip"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "u_hstip:" &trim(SafeRequest("u_hstip"))& Vend
   substrContent = substrContent & "u_emlip:" &trim(SafeRequest("u_emlip"))& Vend
   substrContent = substrContent & "u_ftpip:" &trim(SafeRequest("u_ftpip"))& Vend
   substrContent = substrContent & "u_sqlip:" &trim(SafeRequest("u_sqlip"))& Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend

case "mem_tstcnt" '试用产品个数
''''''''''''表单处理
 u_tstcnt_hst=right("00"&trim(SafeRequest("u_tstcnt_hst")),2)
 u_tstcnt_ftp=right("00"&trim(SafeRequest("u_tstcnt_ftp")),2)
 u_tstcnt_eml=right("00"&trim(SafeRequest("u_tstcnt_eml")),2)
 u_tstcnt_sql=right("00"&trim(SafeRequest("u_tstcnt_sql")),2)
u_tstcnt=u_tstcnt_hst&u_tstcnt_ftp&u_tstcnt_eml&u_tstcnt_sql

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:mem_tstcnt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "newtstcnt:" &u_tstcnt& Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend


case "mem_mny" '帐户初始化

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:mem_mny"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "u_mnyavl:" &trim(SafeRequest("u_mnyavl"))& Vend
   substrContent = substrContent & "u_mnyusd:" &trim(SafeRequest("u_mnyusd"))& Vend
   substrContent = substrContent & "u_mnyall:" &trim(SafeRequest("u_mnyall"))& Vend
   substrContent = substrContent & "u_mnyprz:" &trim(SafeRequest("u_mnyprz"))& Vend
   substrContent = substrContent & "u_mnytmp:" &trim(SafeRequest("u_mnytmp"))& Vend
   substrContent = substrContent & "u_mnyrmn:" &trim(SafeRequest("u_mnyrmn"))& Vend
   substrContent = substrContent & "u_mnybrw:" &trim(SafeRequest("u_mnybrw"))& Vend
   substrContent = substrContent & "u_mnylck:" &trim(SafeRequest("u_mnylck"))& Vend
   substrContent = substrContent & "u_mnyinv:" &trim(SafeRequest("u_mnyinv"))& Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend
   
 case "usrdel" '价格等级
''''''''''''表单处理

   substrContent = "entryclass:usr_mng"&Vend
   substrContent =substrContent& "entrytype:usrdel"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "uid:" &trim(SafeRequest("uid"))& Vend
   substrContent = substrContent & "."& Vend
pageturn="/master/memmng/mem_lst.asp"
  
end select

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

%>