[PHP] Highest common factor's function (HCF)

Highest common factor's function
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

Pikachu's dub~so cute~

Pikachu's dub~~the sound was so cute unlike herself~~~~XD

舒馬克的Ferrari FXX~~超屌的XD

Ferrari Enzo Ferrari FXX Schumacher




可能會有點慢= =

大陸毛巾 檢出強烈致癌物



中國製毛巾近幾年大舉低價傾銷台灣,而大陸中央電視台報導指出,一項針對浙江市售毛巾的抽檢發現,不合格率高達八成,而一些沾水就易掉色的毛巾,更可能潛藏致癌的危機。


大陸中央電視台「每周質量報告」昨天報導,在浙江進行的毛巾產品抽查發現,在80個樣本中,只有16個合格,合格率只有兩成,值得注意的是,其中易掉色的問題特別嚴重,一些易掉色的毛巾被檢出超標幾百倍的強烈致癌物聯苯胺,這類致癌物會透過皮膚接觸溶解在人體,長期使用可致膀胱癌、輸尿管癌和腎盂癌,潛伏期可長達20年。

報導指出,紡織品使用的染料有活性染料、還原染料和直接染料三種, 使用前兩者染料的毛巾,色澤鮮艷牢固,不會對人體有害,但價格偏高;使用直接染料的毛巾則易掉色,且含致癌的聯苯胺和四氨基聯苯。一毛巾染色廠業者爆料,大陸約有一半的毛巾業者用直接染料染色,這種毛巾製品,潛伏致癌危機。

國家紡織產品質檢中心和浙江省質監局日前對浙江部分商場、超市銷售的毛巾產品進行抽查,合格率僅20%。在毛巾廠家集中的晉州,大部分業者都把毛巾外包給染色廠染色,以節省成本。而部分染色廠就用使用價廉、低品質的直接染料,成本只需正規染色廠的一半左右。

一家染廠老闆說,晉州三十多家毛巾廠和十幾家染廠,每天有幾十萬條毛巾發往全國各地,至少有一半是用直接染料毛巾染色。

央視記者從調查的兩家染廠取得11個最常用的直接染料樣品,送到國家染料質量監督檢驗中心進行檢驗。結果發現,有9個染料樣品不合格,不合格率也高達八成,主要是四氨基聯苯和聯苯胺這些強致癌物超標,有的樣品聯苯胺含量超過國家標準幾百倍。而聯苯胺系列染料因為會導致惡性腫瘤,而且潛伏期長達20年,早在1960年代就已被官方禁止生產和使用。

另據新京報報導,針對毛巾市場的諸多問題,國家質檢總局近期將針對全國範圍的毛巾產品,進行專項抽檢。

Lost Prophets - Rooftops

Lost Prophets 出新專輯了~~~~不知道甚麼時候出的~~~~@"@
這首新專輯的歌蠻好聽的~~~~真~~~~的蠻好聽的~~~cool~~~

它們的歌都蠻震撼人心的~~嘿嘿~~~

世界十大惡犬

世界公定的十種最危險犬種

第十名:無聲斗犬



第九名:怪異殺手牛頭梗(這個小傢伙3分鐘之內就能咬死一頭德國黑背)



第八名:西班牙加納利犬



第七名:中亞牧羊犬



第六名:阿根廷杜高(Dogo Argentina)

台灣有人養,10多年前還用於獵山豬,那次電視有播出



第五名:法國波爾多



第四名:巴西非勒



第三名:義大利紐玻利頓,黑手黨的最愛



第二名:俄羅斯高加索,可以一對一單挑藏獒



第一名:西藏獒犬,圖片是正宗西藏獒犬,和台灣常見的不同,聽說3隻藏獒可以咬死一隻雄獅



轉貼自某網站~~XD

笑話~轉貼某網站

前几天,我從朋友海靠那借來一張游戲光盤,名叫“暗黑破壞神”他說很好玩的,
我說:裝我的機器里吧,
他說:好吧,
我說:怎么裝啊,
他說:放在機器里就自動運行了。
我回到家,想想這個光盤應該裝在電腦里啊,可是我也不知道放哪啊,
想了想,于是我就把機箱蓋打開了,里面全是電線啊,看到旁邊有個小縫,我想插在這里會夾的緊點吧,省得掉下來。
我開機后,可是也沒有什么游戲啊,我就給海靠打電話
我說:我放電腦里了,可是沒什么動靜啊
他說:那可能是你硬盤空間太小了吧,你刪去點文件吧。
我說:什么是硬盤啊?
他說:C盤就是硬盤
我想他說的有道理,看了一下C 盤,有一個名叫Windows的文件夾,很大,很占地方,
我學過英語,一看是窗戶的意思,一個窗戶干嘛要開這么大啊,
我就把這個文件刪除了,它還真不好刪,几次都沒成,可是我想玩游戲啊,就一點一點的刪了,終于把他全刪干淨了。
可是電腦卻一動不動,我按鍵盤還是鼠標,電腦都不動,我有點毛了,于是又給海靠打電話。
我說:我的電腦怎么都不動了。
他說:這是長有的事,是死機了。你重新開一下機就好了。
我照他的辦法干了,可是我熟悉的藍天白云沒了,一片黑暗。
沒辦法,還得求助于海靠,
他說:對,黑了就對了,暗黑破壞神,就是黑的。
我說:不行,一點動靜也沒有,這算什么破游戲。
他說:你等著,我現在就去你家看看。
還是海靠夠朋友,馬上打車就來了。他看過以后,信心足足的說:這是有病毒,你硬盤有毛病了。
我說:那怎么辦啊
他說:沒事,我給你清清就好了。
于是,他拆電腦,從機箱后蓋里擰下一個黑方的東西,對我說:這就是硬盤,你看,多硬。
我摸一摸,還真是挺硬,對海靠更加配服了。
他說:你打點水來。
我打來一盆水,進屋看到他正在把硬盤大卸八塊。從中間取出一些一疊一疊的片子,他也很驚奇的說:我也是頭一次看著,原來是這樣啊。
我們把這些片子放在水中,又刷又洗。
在陽光下晒了一會,因為海靠說,這樣有紫外線照著更殺菌。
我們又按原樣把電腦裝上。接通了電源。
這時,電腦,發出像牛一樣的哞哞聲,然后絲絲作響,最后從后面冒出縷縷的黑煙,□!的一聲巨響,我家的保險絲也斷了。
現在,我也有點明白了是怎么回事了。
“海靠,這是什么他媽的“暗黑破壞神”!!!”

[PHP] 使用PHP讀取資料庫產生EXCEL檔案

以下是使用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~100的陣列
然後把陣列分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

真.三國無雙之天線寶寶

有玩過真三國無雙的應該都知道吧~~~哈哈哈哈哈







波羅周報~看了不要笑死掉XDXDXDDXXD

真的超爆笑的XDDXDXDX






轉貼自http://blog.xuite.net/big.max/Polo/9890544?p=1~M

Lamborghini Murcielago LP 640~屌!

Top Gear的節目介紹 Lamborghini Murcielago LP 640
超屌~~真的是太屌啦XDXDXDXDXD

配上金色塗裝感覺比黃色的更屌說~~~~真的是屌爆了@@"

大衛白爛魔術

那兩個老外超追的~~拼命鬼叫XDDXDXXDXD

超屌香蕉球!!!!!!!

簡直是屌爆了XDDXDXXDDX
看了大概就知道甚麼叫子蛋會轉彎了吧XD

美國Consumer Reports 2007年十大好車出爐

最具樂趣車款-Mazda MX-5 Miata


小型房車-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