手机致癌性或比香烟强 直板机袖珍机辐射最大
作者:edwin 日期:2010-03-31
手机辐射究竟对人体有没有害?对此，马拉松式的争论似乎从未停止过。前段时间，美国非营利组织“环境工作组(EWG)”测试了1000多款手机的SAR值(辐射被人类头部软组织吸收的比率)，排出了最新“十佳与十差手机辐射榜”。结果显示，摩托罗拉手机辐射最大，三星手机辐射最小。其中，黑莓的Bold 9700辐射值达到了1.55W/kg，获得辐射“冠军”手机的称号。
不久前，英国专家的最新研究又发现：手机的致癌性可能比香烟更强。这也成为迄今为止关于手机最新、最严重的警告，将人们对手机辐射的关注提到了前所未有的高度。
手机辐射争议持续不断
据统计，目前全球约30亿人用手机，是吸烟人数的3倍。中国13亿多人口，移动电话用户已经突破7亿，也就是说，平均两个人中至少有一个人拥有手机。作为使用频率最高的数字产品，很多人几乎24小时手机不离身。
摘录马克思对新闻审查的论述
作者:edwin 日期:2010-03-24
以下摘自我国的新闻传播学教材《马克思主义新闻思想概论》，
1。 书报检查是一种以当事人的思想为衡量标准的法律或制度
马克思：“书 报检查制度不是控告我违反了现行法律。
“合法的地位不应该由于个人的道德品质或者由于他们的政治观点和
2。书报检查实际上将所有的新闻出版作为怀疑对象，造成思想恐怖
3。书报检查使原告、辩护人和法官三位一体，破坏了法的基础
4。书报检查使得个别平庸的官员凌驾于众多记者、作者、
马克思：“既 然在普鲁士有这么一批政府所熟悉的万能天才（
5。书报检查是一种政府垄断了的非理性的批评
马克思认为，对新闻出版的真正的检查，应当是批评。
6。书报检查造成社会精神的普 遍虚伪
马克思：“政府只听见自己的声音，
7。书报检查是一种愚民政策，阻碍社会、民族和个人的精神发展
马克思把衽书报检查的时期称为“精神上的大斋期”，
8。书报 检查造成的人为安定潜藏着社会危机
保障社会的安定，这是当权者为书报检查辩护的一个重要理由。
塔西陀：“当你能够想你愿意想的东西，
恩格斯：“规定的自我检查制度，要比旧的官方检查制度坏1000
马克思：“整 治书报检查制度的真正而根本的办法，
书报检查的根本问题在于它凌驾于人的基本权力之上，
Asp过滤HTML特定代码的函数
作者:edwin 日期:2010-03-24
Asp过滤HTML的函数：过滤图片、链接.....
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹 配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
引用举例：
看网易有关Google新闻的跟帖
作者:edwin 日期:2010-03-24
搞笑的抹黑行动开始了
作者:edwin 日期:2010-03-23
Google今日凌晨退出中国 由google.com.hk继续为大陆网民服务
作者:edwin 日期:2010-03-23
【转载】地沟油养出了我等“温水青蛙”
作者:edwin 日期:2010-03-19
相信很多人看到这则新闻都会非常愤怒：武汉一教授称，目前我国每年返回餐桌的地沟油有200万~300万吨。而地沟油中的主要危害物之一黄曲霉素是一种强烈的致癌物质，其毒性是砒霜的100倍。
我却很平静，愤怒有什么用呢?用别人的过错伤害惩罚自己，不划算。对于地沟油、口水虾、毒奶粉之类的新闻，我早已被练成了一只“温水青蛙”，不急不缓地在温热的水里游弋，将恶劣环境当作风和日丽，任凭环境恶劣，我自岿然不动，假装悠然享受，反正一下子死不了。尽管这有点阿Q，也没有办法不是?只能接受熬煎!
想当初，在我等心理承受力还比较弱的时候，对于这类新闻无论如何是无法忍受的，批评职能部门的行政渎职，挞伐不良商人的厚颜无耻，揭穿幕后的丑恶利益链条等等。我就是一只刚放进汤水里的青蛙，正在做一个“奋勇跳出”的动作，试图为自己制造一个安全健康的社会环境。
可我发现，尽管事后有关部门口口声声要“严厉打击”，可这些打击多是一些治标不治本的措施，热闹过后，“地沟油”等卷土重来，继续变本加厉，制造更惊险恶劣的“食品炸弹”。因为相关人士早已将我们的批评当作了耳旁风，将我们的“愤怒”当作了一种“社会幼稚病”。最典型的就是三聚氰胺的重出江湖，将民族奶业一剑击垮，带来致命性打击后，仍然觉得不过瘾，继续出来祸害国人，心狠手黑啊!
Excel中怎样输入立方米的符号?
作者:edwin 日期:2010-03-19
地沟油毒性百倍于砒霜，你还敢在饭馆吃吗？
作者:edwin 日期:2010-03-18
国内地沟油一年的总利润能达到15亿-20亿元(资料图)
中国广播网3月18日报道 并非故意要倒胃口，但是亲爱的朋友，当你揣着几根油条，坐上清晨第一列地铁上班的时 候；当你站在街头大嚼羊肉串的时候；当你给孩子点上一盆香喷喷的水煮鱼的时候，你是否意识到自己正处在危险之中呢？
危险来自油。不知道从什么时候起，城市的下水道成了一些人发财致富的地方。他们每天从那里捞取大量暗淡浑浊、略呈红色的膏状物，仅仅经过一夜的过 滤、加热、沉淀、分离，就能让这些散发着恶臭的垃圾变身为清亮的“食用油”，最终通过低价销售，重返人们的餐桌。这种被称作“地沟油”的三无产品，其主要 成分仍然是甘油三酯，却又比真正的食用油多了许多致病、致癌的毒性物质。
“你一定也吃过地沟油。”武汉工业学院食品科学与工程学院教授何东平面对中国青年报记者这样说。他的另一个身份是全国粮油标准化委员会油料和油脂工 作组组长。据他估计，目前我国每年返回餐桌的地沟油有200万~300万吨。而中国人一年的动、植物油消费总量大约是2250万吨——也就是说，按照比 例，你吃10顿饭，可能有1顿碰上的就是地沟油。
在一个注重食品安全的时代，理想的状态是，你下馆子，随手掏出一张试纸浸到菜里，过一会儿拿出来跟谱表比比，然后大叫：“掌柜的，换油！”但现实 是，截至目前，科学家们还没有找到一种理想的检测和鉴别地沟油的手段。
ASP ACCESS备注字段最大长度限制
作者:edwin 日期:2010-03-18
ASP检测备注字段中英文字符串长度/大小/字节数
作者:edwin 日期:2010-03-18
根据字符串内容，可分为以下两种情况：
1.英文下,len(rs("field")),就行了.例如：len("中文abc")=7
2.中文下,会复杂一点,例如：len("中文abc")=5 而不是7，而lenB("中文abc")=10。所以需要自己写程序判断其长度.
函数如下：
function strLen(str)
dim i,l,t,c
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLen=t
end function
引用：strLen(rs("field"))
ASP判断字符串是否带有中文的函数
作者:edwin 日期:2010-03-16
坐车备忘录：南油大厦到观澜高新技术产业园
作者:edwin 日期:2010-03-01
ASP关键词自动分组实现智能搜索
作者:edwin 日期:2010-02-26
用ASP实现搜索引擎的功能是一件很方便的事，可是，如何实现类似3721的智能搜索呢？比如，当在搜索条件框内输入“中国人民”时，自动从中提取“中国”、“人民”等关键字并在数据库内进行搜索。看完本文后，你就可以发现，这个功能实现起来竟然是如此的简单。OK，Follow Me！
第一步，我们要建立一个名为db_sample.mdb的数据库（本文以Access2000数据库为例），并在其中建立表T_Sample。表 T_Sample包括如下字段：
ID 自动编号
U_Name 文本
U_Info 备注
第二步，我们开始设计搜索页面Search.asp。该页面包括一个表单（Frm_Search），表单内包括一个文本框和一个提交按钮。并将表单的 method属性设为“get” ，action属性设为“Search.asp"，即提交给网页自身。代码如下：
<!-- Search.asp -->
<form name="frm_Search" method="get" action="Search.asp">
请输入关键字：
<input type="text" name="key" size="10">
<input type="submit" value="搜索">
</form>
下面，就进入了实现智能搜索的关键部分。
首先，建立数据库连接。在Search.asp的开始处加入如下代码：
<%
Dim strProvider,CNN
strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strProvider=strProvider & Server.MapPath("\") & "\data\db_Sample.mdb" '假设数据库存放在主页根目录下的data目录下
Set CNN = Server.CreateObject("ADODB.connection")
CNN.Open strProvider '打开数据库连接
%>
接下来，判断 ASP页所接收到的数据，并在数据库中进行搜索。
<%
Dim S_Key,RST,StrSQL
S_Key = Trim(Request("key")) '得到搜索关键字的值
If S_Key <>"" then
Set RST=Server.CreateObject("ADODB.RecordSet")
StrSQL=AutoKey(S_Key) '此处使用自定义函数 AutoKey()，该函数为实现智能搜索的核心
RST.Open StrSQL,CNN,3,2 '得到搜索后的记录
If RST.BOF And RST.EOF Then
%>
<font color="#FF0000">未找到任何结果！！！</font>
<%
Else
%>
搜索名称为“<font color="#FF0000"><%= S_Key %></font>”的项，共找到 <font color="#FF0000"><%= RST.RecordCount %></font> 项：<p>
<%
While Not RST.EOF '遍历整个记录集，显示搜索到的信息并设置链接
%>
<!-- 此处可设为你所需要的链接目标 -->
<font style="font: 12pt 宋体"><a href="info.asp?ID=<%= RST("ID") %>" target="_blank"><%= RST("U_Name") %></a></font><br>
<!-- 显示部分详细内容 -->
<font style="font: 9pt 宋体"><%= Left(RST("U_Info"),150) %></font><p>
<%
RST.MoveNext
Wend
RST.Close
Set RST=Nothing
End If
End If
%>
在上面的代码中，有一个自定义函数 AutoKey ，该函数是实现智能搜索的核心所在。代码如下：
<%
Function AutoKey(strKey)
CONST lngSubKey=2
Dim lngLenKey, strNew1, strNew2, i, strSubKey
'检测字符串的合法性，若不合法则转到出错页。出错页你可以根据需要进行设定。
if InStr(strKey,"=")<>0 or InStr(strKey,"`")<>0 or InStr(strKey,"'")<>0 or InStr(strKey," ")<>0 or InStr(strKey," ")<>0 or InStr(strKey,"'")<>0 or InStr(strKey,chr(34))<>0 or InStr(strKey,"\")<>0 or InStr(strKey,",")<>0 or InStr(strKey,"<")<>0 or InStr(strKey,">")<>0 then
Response.Redirect "error.htm"
End If
lngLenKey=Len(strKey)
Select Case lngLenKey
Case 0 '若为空串，转到出错页
Response.Redirect "error.htm"
Case 1 '若长度为1，则不设任何值
strNew1=""
strNew2=""
Case Else '若长度大于1，则从字符串首字符开始，循环取长度为2的子字符串作为查询条件
For i=1 To lngLenKey-(lngSubKey-1)
strSubKey=Mid(strKey,i,lngSubKey)
strNew1=strNew1 & " or U_Name like '%" & strSubKey & "%'"
strNew2=strNew2 & " or U_Info like '%" & strSubKey & "%'"
Next
End Select
'得到完整的SQL语句
AutoKey="Select * from T_Sample where U_Name like '%" & strKey & "%' or U_Info like '%" & strKey & "%'" & strNew1 & strNew2
End Function
%>
要实现智能搜索，其核心就是将搜索关键字进行自动分组。在此处，我们使用了循环取长度为2的子串的方法。为什么不将子串长度定为1、3、4或其他呢？这是因为若子串长度小于2即为1时，会失去将关键字分组的功能，而若子串长度大于2，则会丢失一些词组。大家可以将 CONST lngSubKey=2改为其他数字试一试，孰优孰劣自见分晓。
最后，别忘了将数据连接关闭，以释放资源。
<%
CNN.Close
Set CNN=Nothing
%>
至此，这个智能搜索引擎已经完成了。你还可以将其继续完善，比如添加分页、突出显示等功能。好了，不耽误大家时间了，赶快去试一试吧。 ^_^
一位女生写的追MM秘计
作者:edwin 日期:2010-02-08
任何一个女孩子在被人追的时候，心理都是很复杂的。她也许很开心，但是又带着点惶恐，她对这个闯进自己平静的生活的男孩子，有着欲拒还迎的矛盾心理，她不是故意的。不要以为她在考验你，她其实也在和自己斗争，她怕受到伤害。
不要怕你的主动会带来她的反感，你不主动，她也不主动，也就慢慢淡下来了。如果你开始的表白被她拒绝，那也很正常呀。不要气馁，谁知道这个女孩子心里在想什么呢？
也许你再表白两次，她就会被你打动，一个心地善良的好女孩是很容易感动的。
如果你受到一次挫折，就立刻离开，再也不去答理这个女孩，把自己紧紧地保护起来，默默地舔舐伤口，在你痛苦的同时，殊不知，那个女孩子也许也正在心里遗憾、后悔呢！也许她会偷偷哭泣，后悔拒绝了你，再看到你漠然的眼神，她也很痛心，但是她却不会对你说，绝对不会请求你回来追她。你的过度的自尊心，可能会伤害了女孩子敏感的心。
Tags: 沟女
