<% ' --------------------------- 创建连接数据库 --------------------------- '注:以 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 %>
 관광시 팁은 어떻게 주는가
 10대관광 사례 소비자에게주는 경고
 관광광고에 식견을 두라
 외출시”구데기병”을 방지하라
 철도여행객이 반드시 알아야할것
 노인관광시 건강을 보호하라
 관광시 속지 않도록 주의하라
 관광시 여행경비는 어디에 두어야 안전한가
 고산 스키시 주의할점
 관광금기
 관광중의 날씨예측



   
 
여행중 날씨예측은 이렇게
  상세내용 >>
  현대인들은 왕왕 일기예보를 떠나서는 날씨를 알수가 없어하는데 아래에 몇가지 판단상식을 소개하도록 한다.
1、이른아침,해가 뜨기전 동방의 검은구름을 관찰하여 계두,룡두,기면,산봉우리,마차모양이거나 뭇별들이 물고기,뱀,령지,목단 모양으로 배렬되거나 혹은 자흑색 기체가 해우를 가로 지난경우 당일에 비가 있으며 대부분 13시내지 17시좌우에 있다.
2、밤에 달의 색상을 관찰하여 푸른빛 혹은 붉은빛을 띠면 다음날 소낙비가 온다.달주위에 흰구름이 원광모양으로 뭉쳐져 있거나 차바퀴만큼 할때에는 다음날 큰바람이 분다.갑자기 날씨가 물쿠는 겨우는 일이나 이일은 반드시 큰바람이 불것이며 수도도관에 물방울이 흘러나와 닦은후에도 흘러나올때는 하루이틀사이에 비가 있게 된다.
3、별이 빛나는 날이면 반드시 바람이 작간하게 된다.또한 여름에 물밑에 이끼가 끼고 물이 진청색을 띠면 폭우가 있게 된다.물에서 흙비린내가 나거나 향이 날때에는 비가 오기직전인데 비가 오면서 흙비린냄새가 더더욱 진해지면 하루,이틀내에 개이기 어렵다.
4、음력정월 초이레날,초여덟날에는 북풍이 불것이며 음력이월이초사흘,3월의 청명,4월말부터 6월12일까지는 주로 흐린날이거나 비오는 날일것이다.
5、구름이 동으로 향하면 황풍이 불것이고 구름이 남으로 향하면 보슬비가 내릴것이며 구름이 서로 향하면 비가 떨어질것이고 구름이 북으로 향할때에는 밀을 말려라고 한다.동풍이 불면 비가 올것이고 황매계절이 오면 잠복하고 있다가 동풍이 불면 날씨가 개일것이고 가을에 북풍이 불면 비가 자주올것인데 저녁에 북풍이 부는 경우에는 개인 날씨가 위주일것이다.지리적위치가 부동하고자연조건의 차이가 큰지라 이상의 내용은 참고로 하고 자신의 경험과 당지의 정황에 의하여 개관적인 판단을 내려야 한다
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 %>