[PHP] Highest common factor's function (HCF)
language use => php
function gcd($a ,$b){
while ($b != 0){
$r = $a % $b;
$a = $b;
$b = $r;
}
return $a;
}
print gcd($a,$b);
Post by wiki
大陸毛巾 檢出強烈致癌物
中國製毛巾近幾年大舉低價傾銷台灣,而大陸中央電視台報導指出,一項針對浙江市售毛巾的抽檢發現,不合格率高達八成,而一些沾水就易掉色的毛巾,更可能潛藏致癌的危機。
大陸中央電視台「每周質量報告」昨天報導,在浙江進行的毛巾產品抽查發現,在80個樣本中,只有16個合格,合格率只有兩成,值得注意的是,其中易掉色的問題特別嚴重,一些易掉色的毛巾被檢出超標幾百倍的強烈致癌物聯苯胺,這類致癌物會透過皮膚接觸溶解在人體,長期使用可致膀胱癌、輸尿管癌和腎盂癌,潛伏期可長達20年。
報導指出,紡織品使用的染料有活性染料、還原染料和直接染料三種, 使用前兩者染料的毛巾,色澤鮮艷牢固,不會對人體有害,但價格偏高;使用直接染料的毛巾則易掉色,且含致癌的聯苯胺和四氨基聯苯。一毛巾染色廠業者爆料,大陸約有一半的毛巾業者用直接染料染色,這種毛巾製品,潛伏致癌危機。
國家紡織產品質檢中心和浙江省質監局日前對浙江部分商場、超市銷售的毛巾產品進行抽查,合格率僅20%。在毛巾廠家集中的晉州,大部分業者都把毛巾外包給染色廠染色,以節省成本。而部分染色廠就用使用價廉、低品質的直接染料,成本只需正規染色廠的一半左右。
一家染廠老闆說,晉州三十多家毛巾廠和十幾家染廠,每天有幾十萬條毛巾發往全國各地,至少有一半是用直接染料毛巾染色。
央視記者從調查的兩家染廠取得11個最常用的直接染料樣品,送到國家染料質量監督檢驗中心進行檢驗。結果發現,有9個染料樣品不合格,不合格率也高達八成,主要是四氨基聯苯和聯苯胺這些強致癌物超標,有的樣品聯苯胺含量超過國家標準幾百倍。而聯苯胺系列染料因為會導致惡性腫瘤,而且潛伏期長達20年,早在1960年代就已被官方禁止生產和使用。
另據新京報報導,針對毛巾市場的諸多問題,國家質檢總局近期將針對全國範圍的毛巾產品,進行專項抽檢。
Lost Prophets - Rooftops
這首新專輯的歌蠻好聽的~~~~真~~~~的蠻好聽的~~~cool~~~
它們的歌都蠻震撼人心的~~嘿嘿~~~
世界十大惡犬
第十名:無聲斗犬
。
第九名:怪異殺手牛頭梗(這個小傢伙3分鐘之內就能咬死一頭德國黑背)
。
第八名:西班牙加納利犬
。
第七名:中亞牧羊犬
。
第六名:阿根廷杜高(Dogo Argentina)
台灣有人養,10多年前還用於獵山豬,那次電視有播出
。
第五名:法國波爾多
。
第四名:巴西非勒
。
第三名:義大利紐玻利頓,黑手黨的最愛
。
第二名:俄羅斯高加索,可以一對一單挑藏獒
。
第一名:西藏獒犬,圖片是正宗西藏獒犬,和台灣常見的不同,聽說3隻藏獒可以咬死一隻雄獅
。
轉貼自某網站~~XD
笑話~轉貼某網站
我說:裝我的機器里吧,
他說:好吧,
我說:怎么裝啊,
他說:放在機器里就自動運行了。
我回到家,想想這個光盤應該裝在電腦里啊,可是我也不知道放哪啊,
想了想,于是我就把機箱蓋打開了,里面全是電線啊,看到旁邊有個小縫,我想插在這里會夾的緊點吧,省得掉下來。
我開機后,可是也沒有什么游戲啊,我就給海靠打電話
我說:我放電腦里了,可是沒什么動靜啊
他說:那可能是你硬盤空間太小了吧,你刪去點文件吧。
我說:什么是硬盤啊?
他說:C盤就是硬盤
我想他說的有道理,看了一下C 盤,有一個名叫Windows的文件夾,很大,很占地方,
我學過英語,一看是窗戶的意思,一個窗戶干嘛要開這么大啊,
我就把這個文件刪除了,它還真不好刪,几次都沒成,可是我想玩游戲啊,就一點一點的刪了,終于把他全刪干淨了。
可是電腦卻一動不動,我按鍵盤還是鼠標,電腦都不動,我有點毛了,于是又給海靠打電話。
我說:我的電腦怎么都不動了。
他說:這是長有的事,是死機了。你重新開一下機就好了。
我照他的辦法干了,可是我熟悉的藍天白云沒了,一片黑暗。
沒辦法,還得求助于海靠,
他說:對,黑了就對了,暗黑破壞神,就是黑的。
我說:不行,一點動靜也沒有,這算什么破游戲。
他說:你等著,我現在就去你家看看。
還是海靠夠朋友,馬上打車就來了。他看過以后,信心足足的說:這是有病毒,你硬盤有毛病了。
我說:那怎么辦啊
他說:沒事,我給你清清就好了。
于是,他拆電腦,從機箱后蓋里擰下一個黑方的東西,對我說:這就是硬盤,你看,多硬。
我摸一摸,還真是挺硬,對海靠更加配服了。
他說:你打點水來。
我打來一盆水,進屋看到他正在把硬盤大卸八塊。從中間取出一些一疊一疊的片子,他也很驚奇的說:我也是頭一次看著,原來是這樣啊。
我們把這些片子放在水中,又刷又洗。
在陽光下晒了一會,因為海靠說,這樣有紫外線照著更殺菌。
我們又按原樣把電腦裝上。接通了電源。
這時,電腦,發出像牛一樣的哞哞聲,然后絲絲作響,最后從后面冒出縷縷的黑煙,□!的一聲巨響,我家的保險絲也斷了。
現在,我也有點明白了是怎么回事了。
“海靠,這是什么他媽的“暗黑破壞神”!!!”
[PHP] 使用PHP讀取資料庫產生EXCEL檔案
如果EXCEL編碼輸出中文是亂碼~~~
那$value的地方要改成
iconv("utf-8","big5",$value)
<?php
include "main.php";
$result = db_query('select * from investigate_organ');
$count = mysql_num_fields($result);
for ($i = 0; $i < $count; $i++){
$header .= mysql_field_name($result, $i)."\t";
}
while($row = mysql_fetch_row($result)){
$line = '';
foreach($row as $value){
if(!isset($value) || $value == ""){
$value = "\t";
}else{
# important to escape any quotes to preserve them in the data.
$value = str_replace('"', '""', $value);
# needed to encapsulate data in quotes because some data might be multi line.
# the good news is that numbers remain numbers in Excel even though quoted.
$value = '"' . $value . '"' . "\t";
}
$line .= $value;
}
$data .= trim($line)."\n";
}
# this line is needed because returns embedded in the data have "\r"
# and this looks like a "box character" in Excel
$data = str_replace("\r", "", $data);
# Nice to let someone know that the search came up empty.
# Otherwise only the column name headers will be output to Excel.
if ($data == "") {
$data = "\nno matching records found\n";
}
# This line will stream the file to the user rather than spray it across the screen
header("Content-type: application/octet-stream");
# replace excelfile.xls with whatever you want the filename to default to
header("Content-Disposition: attachment; filename=excelfile.xls");
header("Pragma: no-cache");
header("Expires: 0");
echo $header."\n".$data;
?>
轉貼自~~~http://www.stargeek.com/scripts.php?script=2&cat=sql
[Ruby] 一個很酷的Array寫法
然後把陣列分1~10,11~20,21~30......一共10次輸出~~
把這10個陣列的輸出放到一個 result陣列~~~所以答案要長這樣
[[1, 2, 3, 4, 5, 6, 7, 8, 9, 10],
[11, 12, 13, 14, 15, 16, 17, 18, 19, 20],
[21, 22, 23, 24, 25, 26, 27, 28, 29, 30],
[31, 32, 33, 34, 35, 36, 37, 38, 39, 40], ................]
ruby的寫法真的蠻酷的~~~只要這樣寫XD
a = []
for i in 1..100
a << i
end
result = Array.new
10.times{ |i|
start = i * 10
result << a[start, 10]
}
p result
只要寫a [ 開始位置, 長度]
他就會一個一個輸出放進去~~~只要簡單的敘述
真的蠻方便的~~~跟其他程式比起來真的省了不少功夫~~~XD
Windows Vista Manager
可是調整Vista的許多設定~~例如關閉不必要的服務~~關閉開機不必要執行的程式
進而提升VISTA的效能~~~
裡面也提供相當多的工具可以用~~~~蠻方便的XD
不過有使用限制........XD
下載點~
http://www.yamicsoft.com/vistamanager/index.html
Lamborghini Murcielago LP 640~屌!
超屌~~真的是太屌啦XDXDXDXDXD
配上金色塗裝感覺比黃色的更屌說~~~~真的是屌爆了@@"
美國Consumer Reports 2007年十大好車出爐
小型房車-Honda Civic
中型房車-Honda Accord
中型豪華房車-Infiniti G35
豪華房車-Infiniti M35
小型SUV-Toyota RAV4
中型SUV-Toyota Highlander Hybrid
Minivan-Toyota Sienna
小型掀背車-Honda Fit
環保車-Toyota Prius
都是日本車~~~XDDXDXXDXD
資料來源~http://news.u-car.com.tw/news-detail.asp?nid=5467