%
' --------------------------- 创建连接数据库 ---------------------------
'注:以 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갈래의 눈길을 만들어 두었고 초급,중급,슈퍼로 나누었다.초급은 3갈래로써 길이가 580미터,470미터,300미터이고 평균너비는 30미터이고 경사도는 8도내지 10도로써 초학자들이 이용하게 만들었다. 중금은 길이가 1470미터 평균너비가 35미터,경사도가 15도 높낮이파가 80.6미터로써 스키에 일정한 기초가 있는 이용객들과 경기용으로 사용되고 있다. 만약 비교적 높은 전업수준을 가지고 있고 능숙한 기술을 가지고 있다면 2.5키로미터의 눈길에 도전해보는것이 좋을듯하다. 그외에도 2인용 공중 삭도등 시설이 있음으로 하여 초학자들이 산에 오르는데 편리를 도모해주고 있다. 이곳은 또한 기온이 적중하며 눈의 감각이 좋아 스키를 타기에 적합하다. 스키장의 질량을 보존하가 위하ㅕ 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
%>