<% ' --------------------------- 创建连接数据库 --------------------------- '注：以 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 %> 长春净月潭

　　 Changbai Mountain HotelSituated on the bank of South Lake and with its elegant environment and convenient transportation, Changbai Mountain Hotel is the biggest and earliest three-star foreign-related hotel in Jilin Province. The hotel combines the functions of guest rooms, dining, bathing, entertainment and tourism, equipped with 269 luxury guest rooms and Chinese, Western, Japanese and Korean dining rooms and VIP rooms. “Fine Changbai Mountain Delicacies” are refined deliberately from Changbai Mountain’s delicacies with strong sense of the customs of northeast China. There are special bars and tasteful music salons, as well as business centers, multifunctional halls, tennis courts, billiard tables, beauty salons, bodybuilding rooms, saunas, shopping centers and other supporting facilities, which can meet the needs of business, tourism, meeting and sightseeing. All personnel in Changbai Mountain Hotel will whole-heartedly provide you with the best service, and we are taking on a brand new vigorous look to recreate the splendor of Changbai Mountain! Changbai Mountain is our happy land!Add: No. 16 Xinmin Street, Changchun City, China.
Tele: (0431) 5669911 5643550-9
Fax: (0431) 5643194 5642003
Room reservation: (0431) 5666540 5642006

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 %>