" 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再确认 全国高健委孟昭锐主任与全国人大副委 员长王汉斌（中）、彭偑云（左）合影 左起：王海澎、刘如、孟昭锐、谢建军 左起：谷惠敏、王悟铭、刘如、 孟昭锐、刘存祥 刘如与卫生部副部长殷大奎（左） 刘如与原国家医药管理局局长齐谋甲（左） 刘如与民政部副部长徐瑞新（左） 健康促进专业委员会主任刘如 健康促进专业委员会常务付主任王海澎 [管理规程下一页]     全国高健委健康促进专业委员会管理规程 数码美中国立体软件网-立体光栅网-立体广告网-立体印刷网(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 %>