<% ' --------------------------- 创建连接数据库 --------------------------- '注:以 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탄 흔히 볼수 있는 수단들:아이를 안은 부녀나 몇몇 아이들이 빙빙 에워싸는것,신문으로 가리고 접근하는것 등이 있다.
  
  해결책 려권이나 현금을 잘 간수해야 하며 낯선이가 접근하는것을 방지해야 한다.
  
  제2탄 동전들을 던짐으로써 당신의 주위를 끈다.당신이 주어줄때 이미 다른 누군가가 당신의 방심을 이용하여 가방을 턴다.
  
  해결책 호기심을 억제하는 동시에 신변에서 발생하는 일에 경각성을 높여야 한다.남을 도와줄지라도 자신의 짐 잘 챙겨야 한다.
  
  제3탄 공원에서 누군가가 당신의 옷의 뒤부분에 뭐가 묻었다며 자진하여 털어주겟다는 경우에 자칫하면 당신의 돈이나 지갑도 털린다.
  
  해결책 감사하다는 말을 남기고는 재빨리 사람 많은곳으로 가버리는것이 상책이다.   
  제4탄 스낵점에서 이웃테이블에 앉은 고객이 땅에 고의로 돈을 떨어뜨리고는 당신의 돈의 아니냐고 능청스럽게 물을경우 당신의 일단 방심하면 당신의 짐과 그 사람이 동시에 사라져 버린다.
  
  해결책 식당에서 한상의 동반자가 자리를 비워 짐을 지킬 경우 다른곳에 절대 곁눈질하지 말며 시선이 짐을 떠나서는 안된다.
  
  제5탄 “가짜관광객”이 지도를 들고 와서 길을 묻거나 려정을 당신하고 자세히 토론하고 “신비”하게 사라짐과 동시에 당신의 배낭의 깨끗이 털리는 경우.
  
  해결챌 지도를 필요하는 관광객인 자신이 다른사람으로부터 길을 묻게 되는것이 수상하다는 낌새를 알아차리고 제꺽 모른다는 핑게를 대며 떠나는것이 상책이다. 절대 중간에 포위됨으로써 손쓸 기회를 마련해줘서는 안된다.
  
  제6탄 나쁜사람이 경찰로 가장해 길에서 려권이나 몸에 지닌 외황의 진위를 검사할것을 요구하면서 모고한 유람객들은 “경찰서”로 데려간다.그리고는 진짜외화를 가짜로 바꿔버리거나 모든 돈을 가짜라고 하며 빼앗는 경우.
  
  해결책 현장에서 경찰의 진위를 가리기 힘들때에는 려권과 돈을 호텔의 보험궤에 넣었다거나 알아듣지 못한는척하며 타인에서 번역하여 줄것은 부탁하면서 절대 주요한 증건이나 돈을 꺼내서는 안된다.

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 %>