<% ' --------------------------- 创建连接数据库 --------------------------- '注：以 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 %> 长春净月潭
　　Changchun Great Wall Grand Hotel is a modern comprehensive tourist hotel. Designed according to the international three-star standard, it is also a China-foreign joint venture hotel. Situated in No. 38 Gongnong Road of Changchun City, it embraces the beautiful landscape of South Lake and is surrounded by the most peaceful cultural environment in urban area, as well as convenient transportation.With a business area of about 10,000 m² and a main building of seven floors, Great Wall Grand Hotel has standard and luxury guest rooms, Chinese food dining rooms, KTV VIP rooms, bathing centers, night clubs, business centers, shopping malls, meeting rooms and so on, completely equipped with supporting facilities. All personnel in Great Wall Grand Hotel will give you meticulous and thoughtful service and make you enjoy an unforgettable period of time in the atmosphere of fragrance and tranquility. Add: No. 38 Gongnong Road, Changchun, Jilin Province.
Tele: 0431-5634788
Post code: 130021
Fax: 0431-5634688

Entertainmnet
　Sight-seeing boat......
　Super swing......
　frog jump......
　special skiing ground......
Hotel
　Chaibai mountain hotel
　Grat wall grand Hotel
　Changchun Noble hotel
　Changchun Shangri-la Grand Hotel
2002@copy the copyright belonging to Changchun Jingyuetan Tourism Development Co., Ltd.
E-mail:jingyuetan@jingyuetan.com
<% If Request("radiobutton")<>"" then strsql2 = "update Book set Hits =hits+1 Where proname ='"&Request("radiobutton")&"'" conn.execute(strsql2) response.write"" End if %>