%
' --------------------------- 创建连接数据库 ---------------------------
'注:以 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
%>
长春净月潭
Located in the Jingyuetan National Scenic and Historical Interest Area in the southeast of Changchun City, 18km from the city center, taking up the area of 18 square kilometers, the special skiing ground possesses unrivalled locational advantages and tourist resources, surrounded by the forests on three sides and water on one side. Different from most other skiing grounds, the special skiing ground is the “skiing ground in the city”, and what is different from the city is that there is natural beauty of lakes and mountains and fresh air here. The period for snow-accumulation is 150 days and the period for skiing is 120 days. The ideal time for skiing is from November of to March . In order to meet the needs of ski tourists of different levels and different proficiency, we built five snow tracks, including primary level, intermediate level and the cross-country snow track. There are three snow tracks of primary level at the length of 580m, 470m and 300m respectively, with the average width of 30m and a slop of 8-1 0° , which could be available for the beginners. There is only one snow track for the intermediate level, which is 1470m long, 35m wide on average, 1 5° of an incline, and at a margin of 80.6 m in height. It is for the skier with a certain base knowledge of skiing and having various kinds of fun skiing races. If you have high professional level and proficiency, you can have a try on the cross-country track which is 2.5km long. There is also a double circulating hanging-chair air cable car and three import hauling machines for users. The multi functional skiing equipments building with a floor area of 2800 square kilometers has thousands of import skiing equipments for renting. The temperature here is mild and the snow is soft, which is easy for skiing. In order to keep the proper snowfall, there are another two snow machines and six import snow mobiles. The Jingyuetan skiing ground is 23 km away from the Changchun Airport, 19 km from the city center and it takes less than 30 minutes from the big hotels in the city to the skiing ground.
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
%>