%
' --------------------------- 创建连接数据库 ---------------------------
'注:以 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
%>
长春净月潭
旅行する最盛期に、各大都市の旅行社の広告は多くて、天地を覆い隠す勢いを呈します。関係者は旅行好きに、旅行の広告に注意したほうがいいと指摘しました。
フライト 旅行社の広告は型が明記しますが、離陸時間は明記しません。普通は、時間がよくないフライトの価格は低くて、もし旅行社のチャーター機ならば、価格は更に低いです。ある旅行社がお金を節約するために、フライトを夜に手配するから、旅行者は翌日体力不足で気分が大幅に減少します。
ホテル 旅行社の広告はいずれもホテルの星ランクを明記します。同じ星ランクの価格の相違のいわくはホテルの地域にあります。観光地区に位置しない、あるいは観光地区から遠く離れるホテルの値段はもちろん比較的に低いです。しかし観光客が毎日ホテルと観光地区の長距離を往復すれば、時間と体力のコストがとても大きくなります。
飲食 旅行社の広告はどれだけの食事を包んで、いくらの食事があるかをすべて明記します。しかし具体的に提供する食品は正真正銘かどうか、その中の含みはとても大きくて、もしかしたら“内緒事”があるかもしれません。
旅行列車 旅行者は目的地まで、旅行列車に乗るのは遊ぶためです。性能がよい車があるし、性能が悪い車もあります。例えば、暑い日にエアコンが涼しくないことがあります。そして、ある旅行列車は保険を買うが、あるものは買いません。
入場券 多くの旅行社は団費が入場券を含むと公言しますが、観光地はいつも“大きい切符”と“小さい切符”に分けます。“大きい切符”はただ観光地区の表門だけに案内して、“景中景”、“園の中園”はすべて単独で料金を徴収します。
名所 広告の中の名所の明細書が長くて刺し連ねて、人に“日程が豊かだ”という仮相をもたらします。実は、あれらの明細書はおそらく“分解”した後のものかもしれません。一つの名所の後ろにいくつかの出張所の名前を並べて、あるいは無料や安い名所を選んで書きます。お金を払うときは、細かに事実を確かめたほうがいいです。“金の純度”を見ないで、オファーだけを見るのは損になりかねません。
ショッピング 旅行の総括的な時間は同じですが、しかし旅行社はわりに多くのショッピングの番組を手配しますとたとえガイドは観光客にショッピングするように強制しないとしても、そのために貴重な時間が無駄にされたり、遊覧の番組が圧縮されたりして、観光客の損失は少なくないです。
王展
『生活时报』より転載
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
%>