<%
' --------------------------- 创建连接数据库 ---------------------------
'注：以 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차업그레이드높이：5미터
제2차업그레이드높이：9미터
동력설비：380V 50KW
인원수：4인×10개배
물봄프길이：300미터
차지면적：54×25.2미터
<%
If Request("radiobutton")<>"" then
strsql2 = "update Book set Hits =hits+1 Where proname ='"&Request("radiobutton")&"'"
conn.execute(strsql2)
response.write""
End if
%>
