" else response.write "" do response.write "" rs.movenext if not rs.eof then response.write "" loop until rs.eof response.write "" end if response.write "" rs.close set rs=nothing end function function SearchForm() response.write "

<%=HeadNavigation()%> 诚征行业中心/指导中心专题首页   全国高健委健康专业委员会简介   组织机构   管理规程   核心成员（九部委）   国家部委机关CHC再确认 全国高健委孟昭锐主任与全国人大副委 员长王汉斌（中）、彭偑云（左）合影 左起：王海澎、刘如、孟昭锐、谢建军 左起：谷惠敏、王悟铭、刘如、 孟昭锐、刘存祥 刘如与卫生部副部长殷大奎（左） 全国高健委健康促进专业委员会简介 刘如与原国家医药管理局局长齐谋甲（左） 刘如与民政部副部长徐瑞新（左） 健康促进专业委员会主任刘如 健康促进专业委员会常务付主任王海澎     为贯彻落实党中央、国务院“科技兴国”的战略方针和邓小平同志“发展高科技，实现产业化”的指示，1996年由国家科委、国家教委、建设部、信息产业部、中国科学院等国家九部委组建了全国高技术产业化协作组织，后扩大为公安部、卫生部、农业部等十五个核心成员。全国高科技健康产业工作委员会（简称全国高健委、英文缩写CHHIC）是负责在全国范围内协调、促进健康产业实现高技术产业化的工作委员会，是目前全国健康领域中唯一的以“政府行为推动，市场行为实施”的管理机构。     健康促进专业委员会是在全国高健委领导下，负责协调指导健康产业向高科技产业化发展，起到沟通政府与企业的桥梁作用，加快建设健康促进工程。运用现代理念和科学技术帮助人们健康长寿。本着促进发展、友好合作的原则，团结全国从事医药卫生、康复保健、饮食营养、养生休闲、体育健身等健康产业的团体及个人，共同努力促进健康产业向高技术产业化发展。     专业委员会聘请资深顾问，设立专家委员会、秘书处、事业发展部、科技产业部、信息宣传部（中国健康促进网、《健康促进资讯》、《健康促进简报》）。拟设分支机构：护理培训中心、商务培训中心、健康教育中心、医院管理中心、养生保健中心、营养健康中心、生殖健康中心、健康美容中心及科研生产基地、养生休闲基地及各省（市、区）、特别行政区、计划单列市指导中心等机构。以及工商局注册的北京中纳德健康科学研究院作为业务执行机构。认真遵纪守法，贯彻执行国家有关法律和法令，以及上级委员会的各项规章制度，对同行和所属机构进行民主交流，诚信合作，建造和谐的氛围，促进我国健康科技产业化，为全民健康做出贡献。     本委主要开展以下工作：     一、为健康产业的单位和个人提供政策指导，科技信息，科研成果和技术扶植，协调促进健康产业发展。接受政府职能部门委托，鉴定、开发、推广健康产业科技成果，促进健康成果产业化。     二、组织医疗卫生、医药保健、养生康复、饮食营养、体育健身等健康行业开展国内、国际文化交流、学术论坛、科技研讨、技术培训、信息咨询、科普宣传、编辑书刊、产品展示等，不断提高健康科技水平。     三、发展成员单位、委员、常委单位和专家委员，对健康促进有突出贡献的团体和个人进行总结表彰。依法保护本委成员的合法权益，为本委提供帮助和服务。     专业委员会实行主任负责制，另任命副主任、秘书长、副秘书长若干人。下设办事机构负责日常工作和直属业务中心、省级指导中心开展工作。     主  任：刘 如     常务副主任：王海澎     副主任：王悟铭、谢建军     秘书长：     秘书处：北京市石景山区杨庄路110号华信大厦711 （100043） 数码美中国立体软件网-立体光栅网-立体广告网-立体印刷网(www.518cc.com) ©2000-2009 版权所有 All Rights Resverved. 北京数码美住所：北京八大处高科技园区西井路3号 电话：010-86868509 68881365 传真：010-68881365 68863313 中国健康促进网秘书处：北京市石景山区杨庄路110号华信大厦711# 询问QQ：501877168 学员QQ：99101529 中国健康促进网备案号：京ICP备09042758号 <% function HeadNavigation() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Navigation where ViewFlag order by Sequence asc" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "
暂无导航链接
"&rs("NavName")&"

" &_ "" &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ "" &_ "

关键字：
范　围：	" &_ " " &_ " -请选择-" &_ " 产品" &_ " 新闻" &_ " 下载" &_ " " &_ "

" end function function MemberLogin() if session("MemName")="" or session("GroupID")="" or session("MemLogin")<>"Succeed" then response.write "" &_ "" &_ " " &_ " " &_ " " &_ "" &_ "

" &_ " 会员：　　　" &_ " 密码：　　　" &_ " 　" &_ " 　" &_ "

" else response.write "" &_ ""&session("MemName")&"
" &_ " ["&MemGroup(session("GroupID"))&"] " &_ "帐户管理 " &_ "" end if end function function MemGroup(GroupID) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_MemGroup where GroupID='"&GroupID&"'" rs.open sql,conn,1,1 MemGroup=rs("GroupName") rs.close set rs=nothing end function function TopFriendSite() dim rs,sql dim i,SiteFace response.write "" set rs = server.createobject("adodb.recordset") sql="select * from Ameav_FriendSite where ViewFlag order by id desc" rs.open sql,conn,1,1 i=1 do while not rs.eof if (i mod 12)=1 then response.write "" end if SiteFace=rs("SiteName") if len(SiteFace)>6 then SiteFace=left(SiteFace,6) response.write "" if (i mod 12)=0 then response.write "" end if i=i+1 rs.movenext loop response.write "

" &_ ""&SiteFace&"

" rs.Close set rs=nothing end function function leftnews() dim rs,sql,i,NewsName,NewFlag set rs = server.createobject("adodb.recordset") sql="select ID,NewsName,SortID,AddTime,SortPath,ClickNumber from Ameav_News where ViewFlag order by ClickNumber desc" rs.open sql,conn,1,1 response.write"" response.write "" if rs.bof and rs.eof then response.write "" else for i=1 to 10 if rs.eof then exit for if StrLen(rs("NewsName"))<=26 then NewsName=rs("NewsName") else NewsName=StrLeft(rs("NewsName"),24) end if if now()-rs("AddTime")<=2 then NewFlag=" " else NewFlag="" end if response.write"" rs.movenext next end if response.write "" response.write"

暂无相关信息

"&NewsName&""&NewFlag&"

" rs.close set rs=nothing end function function adv(adid) dim rs,sql,i,NewFlag set rs = server.createobject("adodb.recordset") sql="select * from Ameav_ADs where ViewFlag and id="&adid&" order by id desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then Adv="../images/banner-1.jpg" else Adv=rs("BigPic") end if rs.close set rs=nothing end function %>