%
' --------------------------- 创建连接数据库 ---------------------------
'注:以 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
%>
长春净月潭
Our company is a leading large enterprise in Jingyuetan Tourist and Economic Development Zone, taking the overall responsibility of management and operation of Jingyuetan National Forest Park. We pursue a policy of seeking development from reformation and persist on the principle of high starting point, high standard, high speed and high profit. By the means of joint management, amalgamation, holding a controlling number of the shares, purchasing shares in businesses, we have constantly extended the range of operation and increased economic strength. we put the focus of our work on building Jingyuetan into a resort of international standard (i.e. the quality of comprehension and multi function) for tourists and holiday makers with tasteful ecological tour and ice and snow tour. Our company put developing tourist industry of JiLin as its task, and create a special and magnificent sight for ChangChun tourist market.
2002@copy the copyright belonging to Changchun Jingyuetan Tourism Development Co., Ltd.
E-mail: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
%>