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

if session("agentname")<>"" and  mid(session("oldpower"),7,1)<>"1" then
call errorpage(-2,"对不起，您没有产品管理权限")
end if

conn.open constr
module=trim(SafeRequest("module"))
if module="" or  isnull(module) then
call errorpage(-2,"对不起，请选择需要操作的类型！")
end if
module=lcase(module)
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
if module="geticpdata" then
   substrContent = "entryclass:sys2_mng"&Vend
   substrContent =substrContent& "entrytype:geticpdata"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "qaddtme_f:" & trim(SafeRequestform("qaddtme_f")) & Vend
   substrContent = substrContent & "qaddtme_b:" & trim(SafeRequestform("qaddtme_b")) & Vend
   substrContent = substrContent & "." & Vend
turnurl= "/master/pdtmng/hst_mng/hst_icp.asp"

    doresult = hzsocket(substrContent)
     left5=left(doresult,5)
   If left5= "10000" Then
	call infpage( "<a href='myicp.xls' target=_blank><u>ICP备案信息导出成功，请点击该处进行下载，下载完后请返回及时删除，以免信息泄露！</u></a>",turnurl)
   Else
      call errorpage(-2,doresult)
   end if
elseif module="delicpdata" then
   substrContent = "entryclass:sys2_mng"&Vend
   substrContent =substrContent& "entrytype:delicpdata"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "." & Vend
turnurl= "/master/pdtmng/hst_mng/hst_icp.asp"

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

end if
%>

