长春净月潭

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

　　スキー場が長春市南東側に位置している淨月淵国家風景名称区以内にある。こちらから都市中心まで18キロメートルで、18平方メートルの面積を持つ三面で山に囲まれ、一面で水に向かう優れた環境に恵まれている旅行資源である。多くのスキー場と違い、こちらは「都市の中のスキー場」でありながら、都市と違い、湖と山がマッチしている、新鮮な空気が満ちているところでもある。このスキー場は雪詰る期間が150日で、スキーできる期間が120日である。毎年11月中旬から翌年３月中旬まで一番適当な運動期間だそうだ。各階層の意欲また各技術の段階の人に満足するように、初級、中級、越野道と五つの雪道が作られている。初級道は三つ、それぞれ580メートル、470メートル、300メートルで、広さが平均30メートル、勾配８－10度で、習い始める人に適用である。中級道が一つ、1470メートルの長さ、平均で35メートルの広さ、80.6メートルの高差のある15度の勾配で、やや基礎のある練習にくる人、趣味スキー試合の催しに適用である。プロのようなレベルの人が25キロメートルの長さの越野雪道に駆け回るのが羨ましくてならない。さらにスキーする人のために彩色循環の吊り下げる二人空中ケーブルカーと輸入してきた牽引機械が三つ用意してある。2800平方メートル建築面積の様式、効能的な雪道具ビールには千件以上の器具もある。適当な気温、柔らかい雪質なので、スキーにいい。雪質を保つために、輸入してきた造雪機会が２台、輸入してきたの雪上モーターバイクが６台が備えている。淨月淵スキー場から長春空港まで23キロメートル、駅まで19キロメートル、都市中心まで18キロメートル、市内の高級ホテルまでただ30分しかないである。

娯楽

　観光する遊覧船......

　スーパーぶらんこ......

　トノサマガエル跳び......

　特色のスキー場......

ホテル

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