%@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
%>
淘趣宝-男士频道 打造全国性价比最高的网店推广网站,我们的口号:"平民也能做广告,你的广告你做主" 高效 快捷 流量大 知名度 广告 免费推广 网店 产品推荐 二手闲置 手机数码 女士 女装 男人 男士配件 宝宝 母婴 婴童 运动 家居 影视新闻 书籍 游戏 网游 模特 明星 美女 时尚产品 特色产品 网页设计 网店管理 特别活动 合作">
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
防辐射服 信息时代的保护神
|
|
|
|
|
|
|
|
|
人类的优生是一项社会目标,它是通过人类个体的优生,来提高人类群体的遗传素质。社会优生学的目的,即是通过周密,合理和有效的社会措施,使社会在群体水平上实现优生。
人生活在环境中,环境对优生的影响,首先是通过环境中有害因素对父或母的生殖健康发生影响,然后经受精,妊娠而影响子代的发育和健康。由于胚胎和胎儿对有害因素的毒性作用较成年人敏感,因此,当有害因素的强度对父或母尚未引起明显的临床表现时,已对子代产生不良影响环境优生学专家指出:导致出和缺陷的原因中,70%是未知的,在已知的30%中有20%的是环境因素,可见不良环境因素对胎儿造成极大威胁。
环境污染包括大气污染,水源污染,化学污染,噪声污染,电磁污染,而电磁污染目前尚未得到社会足够重视。现代生活离不开计算机,电视机,微波炉,无绳电脑等,这些科技产物为人们带了社会信息,科学教育,文化娱乐,同时也可能带给人们意想不到的危害。计算机和电视机的视屏显示终端VDT可产生多种低强度电磁辐射。这种电磁辐射包括电离辐射。虽然这些辐射的强度极微,但长时间接触可能对人们健康,特别是对胎儿造成一定影响。
据我国对25个省,市,自治区的区用X线职业受辐射人员作调查,发现生育率,不孕率无明显差别,但自然流产率,多胎率,新生儿死亡明显高于对照组。世界卫生组织(WHO)最新修正意见认为在VDT工作环境中有些因素可能影响妊娠结局的因素是低频电磁场。
动物实验证实各种不同的电磁辐射均可引起哺乳动物生殖细胞染色体畸变和基因调控失衡。如:受精的鸡蛋暴露锯齿脉冲电磁场,结果胎仔畸形率增高。
联合国原子辐射效应科学委员会和国际放射防护委员会指出:胚胎胎儿组织特别容易受辐射损伤。一些观点认为大剂量胎内照射以死胎和畸胎为效应终点的,以孕齿6周以前的辐射敏感性最高,而小剂量照射造成胚胎功能发育致畸,以妊娠8-15周胎儿遭受电离辐射产生儿童智力低下的危险性最大。一些专家认为妊娠头3个月的危险比妊娠中,晚期危险大得多。
专家提倡,日常生活中应尽量最大限度地减少或避免电磁辐射,孕妇尤其应该注意。你工作、生活的每一天,会更加的从容健康! (谢晓桦 首都儿科研究所)
|
|
|
|
|
|
|
|
|
|
|
[ 1 ] |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
Copyright 2008, 版权所有 TAOQUBAO.COM |
|
| |