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