<% ' --------------------------- 创建连接数据库 --------------------------- '注:以 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 %>