<% ' --------------------------- 创建连接数据库 --------------------------- '注:以 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 %> 长春净月潭
 How to pay tips when traveling abroad
 Ten cases sound the alarm
 Be wary of travel advertisements
 Look out for “maggot's illness”
 Railway passengers' notice
 Elders do not forget keep health during traveling
 Look out for travel trap
 How to Hold on to Your Money While Traveling
 Notice of skiing
 Travel taboos
 Travel air forecast



   
 
How to Hold on to Your Money While Traveling
  Details >>
       What we worry about most when we travel is preventing our money from being lost or stolen. So how can you hold on to your money ? 
    First, try to find a good place to keep your money. The money should be kept in small notes; and those that have a higher value should be kept in the pockets of your underclothing, and at least in two different places. Yuan and Jiao notes are the most frequently used during traveling and therefore should be put separately in coat and pant pockets—in each place no more than 3 or 5 yuan. Second, try to grasp the skill of taking money out. Remember always to keep in mind the hierarchy of your money. It's better not to pull out a 5-Yuan note for a 5-Jiao purchase. It is not a bad idea to pull out small notes casually. If you pull out several small notes at once in a mess, the thief, even if he is looking on, may be reluctant to take action for that 3 or 5 yuan. When shopping or eating in a restaurant where we need to use notes of medium amounts to pay the bill, we'd better pick out the exact large notes that we need. Once the small notes are out, we should remove a large note at a secluded place, and change it into medium or small notes the next time we make a purchase. Furthermore, we should keep these large notes in several different pockets.  
  

   From : 新华网



2002@copy the copyright belonging to Changchun Jingyuetan Tourism Development Co., Ltd.
E-mail: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 %>