<%
dim ip
ip = Request.ServerVariables("REMOTE_ADDR")
lei=ip
dim sel(50)
p=1
for i=1 to 50
n=instr(lei,".")
if n=0 then
sel(p)=lei
exit for
else
l=len(lei)
sel(p)=mid(lei,1,n-1)
lei=mid(lei,n+1,l)
p=p+1
end if
next
thirdip=sel(3)
'response.write ip
'response.end
if (thirdip<>32 and thirdip<>33 and thirdip<>34) then
response.Write ""
'response.end
end if
%>
管理体系
郑州新力电力有限公司
有效记录清单
一、
总经理办公室
二、
企业管理部
三、
生产部
四、
安全环保部
五、
设备材料部
六、
保卫部
七、
信息中心
八、
人力资源部
九、
培训部
十、
燃料部
十一、
质量检验中心
十二、
供热所
十三、
值长室
十四、
纪检监察审计部
十五、
财务部