<% ' --------------------------- 创建连接数据库 --------------------------- '注:以 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 %> 长春净月潭
 海外旅行でチップの払い方
 十大旅行案例から消費者への敬示
 旅行広告を見る時注意が必要だ
 外出旅行に「蚕の蛆蝿病」を予防すること
 鉄道で旅行者のご注意
 老人旅行保健をお大事に
 旅行でお詐欺を堤防すること
 旅行途中お金がどこに置くか
 高山でスキーのご注意
 旅行タブー
 旅行中の天気予報



   
 
旅行中騙すことを防ぐ
  詳しい内容>>

  第一  最もよく見えるのはジプシー式の盗人、婦人は子供を抱えていながら幾つの子供と一緒に人を回して。或いは新聞を持っている、人の傍に近く。このような場合、ただ何秒だけで、人の物を盗まれる。

解ける方  人に見える鞄を使わないように、パスポートとお金は裏のポケットに入る。外のポケットの中にはただ細かいお金を入る、知らない人は自分に近身しないようにしてください。

第二  わざとお金を落とす、人の目を掛ける。あなたはお手伝ってお金を拾う時、油断に乗ずて、お金は盗人に盗まれる。

解ける方  何の事があっても、好奇心を持たないで、近身の事によく警備して。例えば、人を手伝っても、自分の荷物をよく注意してください。

第三  公園では優しいお爺さんは人の背中の汚れを見つけた、親しくて片付けてあげる。ぐさくだに、あなたのお金を盗む。

解ける方  人の好意を感謝を言ったら、早く現場に離れる、人の多い所に行ってください。

第四  スナックで隣の人はわざとお金を落とす「あなたのお金ですか」と聞いて。あなたが俯いてお金を拾う時に、相手はあなたの鞄と一緒になくす。

解ける方  スナックで、友達はお手洗いに行く時。自分が荷物を守る時、隣の人を無視して視線を荷物だけ集まってください。

第五  観光客ぶりをして、地図を持って、道を尋ねる方。或いは、行程を議論しったら、感謝を言って行ってしまう方。だが、その時、リュックサックと盗まれた観光客だけ残る。

解ける方  旅行する時、自分が観光客なので地図が必要である、道を尋ねられるのも当然である。最も適当な言い方は「私も分からない」そして、まっすぐ現場を離れ、危険を避けるために人に包囲しなようにしてください。

第六  警察に変装して、道でパスポートを検査する。お客さんが持っている外貨の真偽を確かめる要求が提出する、どさくさにお客さんのお金を偽物に換えて、全部奪われてしまう。

解ける方  現場で真偽を確かめることができない場合、パスポートとお金を旅館に預けた方がいい。或いは、話が分からないぶりをして、道行く人にお手伝いを頼む。どうしても、パスポートとお金を出さないでください。
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 %>