<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Recordset_news Dim Recordset_news_cmd Dim Recordset_news_numRows Set Recordset_news_cmd = Server.CreateObject ("ADODB.Command") Recordset_news_cmd.ActiveConnection = MM_tadata_STRING Recordset_news_cmd.CommandText = "SELECT * FROM data WHERE type='最新消息' order by pdate DESC" Recordset_news_cmd.Prepared = true Set Recordset_news = Recordset_news_cmd.Execute Recordset_news_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Recordset_news_numRows = Recordset_news_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 淘趣宝-男士频道 打造全国性价比最高的网店推广网站,我们的口号:"平民也能做广告,你的广告你做主" 高效 快捷 流量大 知名度 广告 免费推广 网店 产品推荐 二手闲置 手机数码 女士 女装 男人 男士配件 宝宝 母婴 婴童 运动 家居 影视新闻 书籍 游戏 网游 模特 明星 美女 时尚产品 特色产品 网页设计 网店管理 特别活动 合作">
 >> 热点文章
网友谈7大品牌奶粉使用体验
●结婚年龄与优生
●三,四个月的宝宝鼻塞怎么办?
●防辐射服 信息时代的保护神
●网上疯传的减重经验秘诀TOP7
●女人养血调经的最佳饮食方案
●198-98斤 胖妈妈减肥经
●美食帮你解决便秘 清扫体内垃圾
 
防辐射服 信息时代的保护神

人类的优生是一项社会目标,它是通过人类个体的优生,来提高人类群体的遗传素质。社会优生学的目的,即是通过周密,合理和有效的社会措施,使社会在群体水平上实现优生。

   人生活在环境中,环境对优生的影响,首先是通过环境中有害因素对父或母的生殖健康发生影响,然后经受精,妊娠而影响子代的发育和健康。由于胚胎和胎儿对有害因素的毒性作用较成年人敏感,因此,当有害因素的强度对父或母尚未引起明显的临床表现时,已对子代产生不良影响环境优生学专家指出:导致出和缺陷的原因中,70%是未知的,在已知的30%中有20%的是环境因素,可见不良环境因素对胎儿造成极大威胁。

   环境污染包括大气污染,水源污染,化学污染,噪声污染,电磁污染,而电磁污染目前尚未得到社会足够重视。现代生活离不开计算机,电视机,微波炉,无绳电脑等,这些科技产物为人们带了社会信息,科学教育,文化娱乐,同时也可能带给人们意想不到的危害。计算机和电视机的视屏显示终端VDT可产生多种低强度电磁辐射。这种电磁辐射包括电离辐射。虽然这些辐射的强度极微,但长时间接触可能对人们健康,特别是对胎儿造成一定影响。

   据我国对25个省,市,自治区的区用X线职业受辐射人员作调查,发现生育率,不孕率无明显差别,但自然流产率,多胎率,新生儿死亡明显高于对照组。世界卫生组织(WHO)最新修正意见认为在VDT工作环境中有些因素可能影响妊娠结局的因素是低频电磁场。

   动物实验证实各种不同的电磁辐射均可引起哺乳动物生殖细胞染色体畸变和基因调控失衡。如:受精的鸡蛋暴露锯齿脉冲电磁场,结果胎仔畸形率增高。

   联合国原子辐射效应科学委员会和国际放射防护委员会指出:胚胎胎儿组织特别容易受辐射损伤。一些观点认为大剂量胎内照射以死胎和畸胎为效应终点的,以孕齿6周以前的辐射敏感性最高,而小剂量照射造成胚胎功能发育致畸,以妊娠8-15周胎儿遭受电离辐射产生儿童智力低下的危险性最大。一些专家认为妊娠头3个月的危险比妊娠中,晚期危险大得多。

   专家提倡,日常生活中应尽量最大限度地减少或避免电磁辐射,孕妇尤其应该注意。你工作、生活的每一天,会更加的从容健康!  (谢晓桦 首都儿科研究所)

     
[ 1 ]
 
                     
关于我们 广告服务 合作伙伴 客户中心 联系我们 网站地图 推广联盟 客服部 点击这里给我发消息 设计部 点击这里给我发消息

Copyright 2008, 版权所有 TAOQUBAO.COM
  <% Recordset_news.Close() Set Recordset_news = Nothing %>