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

   Our company is a leading large enterprise in Jingyuetan Tourist and Economic Development Zone, taking the overall responsibility of management and operation of Jingyuetan National Forest Park. We pursue a policy of seeking development from reformation and persist on the principle of high starting point, high standard, high speed and high profit. By the means of joint management, amalgamation, holding a controlling number of the shares, purchasing shares in businesses, we have constantly extended the range of operation and increased economic strength. we put the focus of our work on building Jingyuetan into a resort of international standard (i.e. the quality of comprehension and multi function) for tourists and holiday makers with tasteful ecological tour and ice and snow tour. Our company put developing tourist industry of JiLin as its task, and create a special and magnificent sight for ChangChun tourist market.
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 %>