<% ' --------------------------- 创建连接数据库 --------------------------- '注:以 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、明け方に、太陽が出る前に、東方の黒雲を見ます。まるでオニバス、蛇口、旗幟、山の峰、車馬、星のルーマニアのように、魚、蛇のように、レイシ、ボタンのように、雲が紫で暗い息が貫いて、あるいは日の上下にあったら、これは雨があって、多くは13~17時にあります。
2、夜に、月の色を見ます。青、あるいは赤だったら、翌日に雷雨が降ります。月の周囲に白い雲が円形のものを結び、あるいは大きい車輪者(月の暈)があったら、翌日に大風が吹きます。いわゆる"日暈であれば雨になり、月の暈であれば風になる。どこが欠けると、どこに風がある。"というのです。また"月の暈であれば風になり、礎が潤せば雨になる"ともいいます。礎が潤すというのは、柱の足の石に水のしずくがしみ出すことです。これは遠からず雨がある前兆です。近代的な情況結び付けてある人は"ひどく暑くなると風、管が潤すと雨"と総括しました。つまり、突然に暑くなる数日間のあと、必ず大風があり、元来水道管のパイプの上にしみ出す水のしずくがあって、拭いた後依然としてしみ出すと、近日中に雨があります。
3、星明かりがきらめいたら、きっと風作になります。白い雲が北斗星を遮る2~4時間に、"神さまが変わると、水面は天然あい"になります。夏の日の水底にコケが生じると、水は藍青色になり、暴雨が近いです。水に香りがあり、あるいは土壌の生臭い匂いがあったら、雨が降ります。雨が降る時、生臭さは非常に濃けば、一日か二日には晴れません。
4、陰暦の正月の初七、初八は、北風がきっと吹きます。陰暦の二月の初三、三月の清明、四月の夏至、六月十二日は曇り空あるいは雨が降ります。
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 %>