>简体   |    繁體   |   English


     意高诗飞(亚太)有限公司主要扩张亚太区的业务, 地区包括中国大陆, 港澳台, 星马泰等地。我们的主要产品Ecosphere(R) 生态球,乃是世界上第一个完全密封装在玻璃的生态系统,一个完整的,独立和自我维持的微型世界。踏进廿五周年的意高诗飞Ecosphere(R) 实验室内一直研制各款各式的生态球,供给各公司、教育机构、广告商、零售商、爱好者、更包括关心生态的人士收藏欣赏,同时也能为顾客要求而特别精心设计制造。顾客们要警惕劣质和低质量仿制品。意高诗飞Ecosphere(R)生态球的自然生态循环系统的运作非常简单,里面却有着生动活泼的动植物自由自在的生活着,它是世界上罕有不需花饲料费的宠物,是个全封闭的迷你水族馆,既美观又不需要照料。     

      意高诗飞Ecosphere(R) 生态球是美国太空总署NASA早期开展地球行星飞行任务中研发出来的成果。我们产品的基本目的是要迈向生态环境教育。我们感到很幸运,意高诗飞生态球正可以展现给任何年龄阶层收藏,从装饰办公室到家里娱乐欣赏都能提升大众的环保意识。我们为意高诗飞Ecosphere(R)是世界性的展视而骄傲,我们的顾客不分年龄,种族,教育背景及地理的界限。意高诗飞Ecosphere(R)生态球是最好的环境保护演绎代表!

      25年来我们不停生产给世界各地,如美国、 日本、德国、法国、西班牙、意大利、挪威、墨西哥及太平洋沿线等地,有的是展览馆、博物馆、科学馆、水族馆等教育机构,都是根据不同要求而设计的意高诗飞Ecosphere(R)生态球,有的直径达一米或以上,全部都能吸引访客认识生态循环系统的运作、息息相关的环境保护和艺术品的欣赏。生态球甚至用于企业机构的推广业务及回馈客人用途。可口可乐公司、法国巴黎银行、国家地理杂志National Geographic 和美国发现频道Discovery Channel 等等都是我们的客户。

新聞動態

<% //Set Conn = Server.CreateObject("ADODB.Connection") // Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/shop.mdb") // Conn.Open() // Set rs=conn.Execute("SELECT * FROM Client") // %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/shop.mdb") Conn.Open() // page = clng(request("page")) page = 1 request.querystring("page") sId = Trim(Request.QueryString("page")) If IsNumeric(sId) Then page = CLng(sId) Else Response.Write sId End If // if not isempty(request("page")) then // page=cint(request("page")) // else // page=1 // end if set rs = server.CreateObject("adodb.recordset") sql = "SELECT * FROM news order by op desc" page_n ="introduce.asp" num = 5 rs.Open sql,conn,1,1 if rs.eof or rs.bof then response.Write "没有查询到纪录!" else rs.pagesize = num pages = rs.pagecount if page <= 0 then page = 1 if page > pages then page = pages rs.AbsolutePage = page end if for i =1 to rs.pagesize %>

" class="imginleft" width="170" height="130"/>新聞標題:<%=rs(1)%>
内容:
             <%=rs(2)%>

發放日期:<%=rs(3)%>


<% rs.movenext if rs.eof then exit for next %>

<% if page < 2 then response.Write "首頁 上頁 " else response.Write "首頁 " response.Write "上頁 " end if if pages - page < 1 then response.Write "下頁 尾頁" else response.Write "" response.Write "下頁尾頁" end if response.Write " 頁次: "&page&" /"&rs.pagecount&"" response.Write " 共"&rs.recordcount&" 記錄"&rs.pagesize&"記錄/頁" response.Write "

" //response.Write(SId) %>

<% rs.Close Set rs=Nothing %> <% Conn.Close() Set Conn = nothing %>