%
' --------------------------- 创建连接数据库 ---------------------------
'注:以 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
%>
长春净月潭
1.雪具的选择
雪板、雪鞋、脱离器、雪杖、雪服。
2.充分做好准备活动
滑雪是一项速度快、灵敏性强的全身运动,无论是初学者还是有高超技术的人,运动前必须做好准备活动,千万不能忽视。因为人体从静止到运动有个过程,这是符合生理规律的。一般准备活动内容有原地徒手操和行进间徒手操6至8节以及着板做各种压腿、弯腰、屈伸、俯卧、跳动等,对拉长肌肉、韧带,提高人体的力量、速度、灵敏、柔韧、平衡能力等都有着积极的作用。
3.伤害事故的预防
由于滑雪速度快、场地起伏大、地形复杂,所以容易发生事故。一般外伤的部位大多为人体下肢的各关节处,主要是扭伤、拉伤、摔伤、脱臼、骨折和冻伤等。
为了滑雪者的安全和避免外伤事故的发生,下面重点介绍一下造成外伤的原因和有效的预防措施。
A.要充分做好运动前的准备活动。
B.对场地充分熟悉了解,反复进行适应性练习。
C.注意天气的变化,在大风和大雪的天气能见度20米内禁滑,在零下30℃以上的天气禁滑。
D.避免超速滑行。
D.避免超速滑行。
2002@copy 长春净月潭旅游发展股份有限公司版权所有
邮箱: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
%>