#

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

장춘경월담

　　　경월담은 1934년에 세워졌는데 풍부한 관광자원과 우월한 생태환경으로 국내외에 명성을 떨쳤다.또한 1988년에는 국무원으로부터 국가중점풍경명승지로 비준되였고 1989년에는 림업부로부터 국가급삼림공원으로 비준되였다.2000년에는 국가AAAA급풍경관광구로 평의되였으며 이미 IS09002국제질량관리체계와인증과 IS014001환경관리체계국제인증을 통과하였다.주위는 뭇산들이 웅기중기 솟아있고 나무들이 하늘 높이 자라 푸른 바다를 령상케 하며 꽃들이 아름다운 자태를 뽐내는 풍경을 연출하고 있는 장춘경월담국가삼림공원은 장춘시의 동남부에 위치하였는데 시중심과 9.5키로 떨어져있고 그 면적은 82.23평방키로메터입니다.이처럼 록화도 잘되고 면적도 크며 도시의 중심과 가까운 공원은 아세아에서도 드문바 국내외관광객들로부터 <<록색명주>>로 불리워 지고 있습니다.장춘경월담삼림공원의 겨울철빙설특색관광,중국장춘경월담빙설관광절은 당신더러 천리빙설봉으로 둘러싸여지고 만리 눈이 흩날리는 아름다운 세계를 누비는 무한한 쾌락을 느끼게 할것이다.

<% If Request("radiobutton")<>"" then strsql2 = "update Book set Hits =hits+1 Where proname ='"&Request("radiobutton")&"'" conn.execute(strsql2) response.write"" End if %>