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



   
 
여행중 돈보관은 어떻게
  상세내용 >>
  외출여행시 돈을 분실하거나 도적맞힐가 하는 걱정이 없지 않아 있다.그러면 여행중 돈은 어떻게 보관해야만 하는가?
  
  우선, 돈을 잘 “감추”어야 한다. 큰 액수의 돈은 타이어트한 팬티밖에 달린 몇개 주머니에 나누어 넣어야 한다. 빈번히 쓰게 되는 각전이나 작은 액수의 지전은 상의와 하의의 밖의 여러개 주머니에 넣되 매 주머니에 넣은수가 3,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 %>