长春净月潭

<% ' --------------------------- 创建连接数据库 --------------------------- '注：以 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月中旬到翌年3月中旬是最理想的滑雪时间。为了满足不同层次，不同熟练程度旅游滑雪者的需求，现设有5条雪道。分为初级、中级和越野雪道。初级雪道三条各长580米、470米、300米，平均宽度30米，坡度8-10度，可供初学者使用。中级雪道一条，长1470米，平均宽度35米，坡度15度，高差80.6米，可供有一定滑雪基础的熟练者和开展各类趣味滑雪比赛使用。如果您有较高的专业水平，和较强的技术熟练程度，你可以在2.5公里长的越野滑雪道一展英姿。还有一条双人循环彩色吊椅式空中缆车和三条进口托牵机供滑雪者上山使用。建筑面积为2800平方米欧式风格的多功能雪具大楼，上千套进口滑雪器材供滑雪者出租。这里气温适中，雪质松软，易于滑雪。为保证雪量，另备有2台进口造雪机，6台进口雪地摩托。净月潭滑雪场距长春机场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 %>