<% CountFile = Server.MapPath("count_indexf.txt") Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Out= FileObject.OpenTextFile (CountFile, 1, FALSE, FALSE) counter = Out.ReadLine Out.Close SET FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Out= FileObject.CreateTextFile (CountFile, TRUE, FALSE) Application.lock counter= counter + 1 Out.WriteLine(counter) Application.unlock Out.Close Length=Len(counter) ImgStr="" for i=1 to 7 - Length ' 計數器預設 7 位數 , 不滿以 0 補足 ImgStr1=""+ImgStr1 next do while Length>=1 ' 將數字轉成對應的圖檔名稱 ImgStr2=""+ImgStr2 Length=Length-1 loop ImgStr=ImgStr1+ImgStr2 %> 種原普查

<% =ImgStr %>

　

種原普查

yl_ball.gif (967 個位元組)畜產生物出生登記庫
yl_ball.gif (967 個位元組)畜產生物品種名冊
yl_ball.gif (967 個位元組)小型豬出生登記庫
yl_ball.gif (967 個位元組)畜產試驗所遺傳物質與保存技術引入與交換紀錄
yl_ball.gif (967 個位元組)種原物種統計查詢
yl_ball.gif (967 個位元組)種原縣市統計查詢
yl_ball.gif (967 個位元組)種畜禽生產場所之設備標準
yl_ball.gif (967 個位元組)畜業領域遺傳資源之管理現況
yl_ball.gif (967 個位元組)澎湖地區種豬群改良成果
yl_ball.gif (967 個位元組)李金龍：發展優質農業 強化國際行銷
yl_ball.gif (967 個位元組)加強農業科技國際合作，提昇永續競爭力

豬言豬語

蘭嶼豬跟達悟族人親蜜關係

桃園豬是客家庄全民健保工具

　

畜產生物品種登記

物種編號 畜產物種 Species
1 豬 Pig
2 雞 Chicken
3 火雞 Turkey
4 鴨 Duck
5 番鴨 Muscovy
6 鵝 Goose
7 天鵝 Swan
8 牛 Cattle
9 水牛 Buffalo
10 山羊 Goat
11 綿羊 Sheep
12 鴕鳥 Ostrich
13 鹿 Deer
14 馬 Horse
15 兔 Rabbit
16 犬 Dog
17 畜產植物 Forage
18 畜產微生物 Farm Microbe
19 鵪鶉 Quail

　

更新前網頁2011/6/18