We ship to ChinaTaiwanSingaporeJapanRepublic of Korea BUY NOW accept: 简体   |    繁體   |   English

Custom-design exhibition Ecosphere

   We invite you to view photos of Custom-design Ecospheres from displays around the world. The Custom-design ecospheres are the greatest environmental exhibits any museum, science center, zoo, or aquarium can have. While they illustrate both science and art they draw the visitor to think about the environment and how it works.
<% //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 Oproduct order by op desc" page_n ="showroom.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 %>
" width="170" /><%=rs(1)%>
<%=rs(2)%>
<% rs.movenext if rs.eof then exit for next %> <% if page < 2 then response.Write "first previous " else response.Write "first " response.Write "previous " end if if pages - page < 1 then response.Write "next last" else response.Write "" response.Write "nextlast" end if %>       <% response.Write " page: "&page&" /"&rs.pagecount&"page" response.Write " total"&rs.recordcount&" item" response.Write "

" //response.Write(SId) %> <% rs.Close Set rs=Nothing %> <% Conn.Close() Set Conn = nothing %>