#

<% ' --------------------------- 创建连接数据库 --------------------------- '注：以 Access 数据库为连接对象，连接对象名为：Conn。 Set ProduConn = Server.CreateObject("ADODB.Connection") cnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("Database/Produ.mdb") ProduConn.Open cnnStr Set Conngao = Server.CreateObject("ADODB.Connection") cnnStrgao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("Database/Other.mdb") Conngao.Open cnnStrgao Set ConnNews = Server.CreateObject("ADODB.Connection") cnnStrNews = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("Database/News.mdb") ConnNews.Open cnnStrNews Set Conn = Server.CreateObject("ADODB.Connection") cnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("Database/Book.mdb") Conn.Open cnnStr ' --------------------------- 创建记录集 --------------------------- '注：记录集名 "Rs" 应与表名相加。并以 3, 2 方式打开。 Set ContentRs = Server.CreateObject("ADODB.RecordSet") ContentSQL = "Select * From Content" ContentRs.Open ContentSQL, Conngao, 3, 2 Set ProduRs = Server.CreateObject("ADODB.RecordSet") ProduSQL = "Select * From Produ Order By ID DESC" ProduRs.Open ProduSQL, ProduConn, 3, 2 Set HomeNewsRs = Server.CreateObject("ADODB.RecordSet") HomeNewsSQL = "Select top 8 * From HomeNews Order by ID Desc" HomeNewsRs.Open HomeNewsSQL, ConnNews, 3, 2 Set Produtype = Server.CreateObject("ADODB.RecordSet") Produtype1 = "Select * From Produtype Order By ID DESC" Produtype.Open Produtype1, ProduConn, 3, 2 set Bookrs = Server.CreateObject("ADODB.Recordset") Booksql = "select * from Book" Bookrs.open Booksql,conn,3,2 Dim j j = Produtype.RecordCount Dim Produ_type(30),imaetype(30) For i = 0 to Produtype.RecordCount - 1 Produ_type(i) = Produtype("produtype") imaetype(i)=Produtype("produimage") Produtype.Movenext Next %> #

　　장백산호텔은 길림성에서 제일 크고 제일 이른 3성급섭외호텔로써 풍경이 수려한 남호호수가에 위치하고 있는데 주변환경이 우아하고 교통이 편리하다.호텔은 객방,레스토랑,사우나,오락,관광이 일체로 된 곳으로써 269칸의 호화객방과 중,서,일,한식의 레스토랑 및 호화방이 있다.또한 이곳에서는 장백산의 특산으로 만들어진 진귀한 요리들을 맛볼수 있고 스탠드바,음악다방은 품위가 높은 당신한테 알맞을것이다.이외에도 상무중심,다공능실,테니스,당구,미장원,헬스,사우나 쇼핑몰등 시설이 갖추어짐으로써 고객의 각종 수요를 만족 시킬수 있다.장백산호텔의 전체인원들은 일류의 서비스로 당신을 왕으로 모실것이다.
　　　주    소：중국장춘시신민거리16번지
　　　전    화：（0431）5669911 5643550-9
　　　팩    스：（0431）5643194 5642003
　　　예약전화：（0431）5666540 5642006

오락

　유람선관광......

　슈퍼그네......

　개구리점프......

　특색스키장......

호텔

<% If Request("radiobutton")<>"" then strsql2 = "update Book set Hits =hits+1 Where proname ='"&Request("radiobutton")&"'" conn.execute(strsql2) response.write"" End if %>