#

<% ' --------------------------- 创建连接数据库 --------------------------- '注：以 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성급표준에 의해 디자인하고 지은 모던하고 종합적인 관광호텔이다. 풍경이 수려한 남호호수가에 자리하였는데 시내의 문화구에 속함으로서 조용하고 교통이 편리하고 환경이 우아하다.영업면적이 만평방이고 총 7층으로 되여있고 표준객실,호화객실, 중식레스토랑, 노랫방,사우나,나이트 상업중심,쇼핑몰,회의실 등 시설이 구전하게 갖춰져있다. 장성의 전체 일군들은 당신에게 세심하고도 살뜰한 봉사를 제공함으로서 당신의 으늑한 기분으로 잊지 못할 추억을 만들어드릴것을 약속하는바이다.
　　　주   소：길림성자춘공농대거리38번지
　　　전   화：0431-5634788
　　　우편번호：130021 　
　　　팩     스：0431-5634688

오락

　유람선관광......

　슈퍼그네......

　개구리점프......

　특색스키장......

호텔

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