%
' --------------------------- 创建连接数据库 ---------------------------
'注:以 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
%>
长春净月潭
観光業の盛んな発展に伴って、ここ数年来観光者と旅行社との紛糾や旅行の従業員が観光者の権益を侵害する現象などは何度も目にして珍しくもありません。
我が国は世界の旅行の強国を目指して邁進し、旅行の業界は外来の競争のみならず、自身の挑戦にも直面しています。観光者はどのように効果的に自身の権益を保護するのか?旅行の従業者はどのようにサービスの質を高めて、紛糾 の発生を免れるのか?このために、記者は国家観光局の品質規格管理司の品質監督事務室を訪問しました。関係者は記者にここ数年来発生する10件の典型的な訴訟の実例を列挙し、しかも講評をしました。これらの訴訟の実例は観光者にも旅行の従業者にもとてもよい警示の作用を持つに違いません。
実例1:旅行社が請け負い 請け負い者は金をもって逃亡
実例2:権限を越えて海外旅行を営み 境界線の外で処分される
実例3:運送会社が旅行業を営み 観光客の遭難に弁償する人なし...
実例4:お寺の参拝者を騙し 私腹を肥やす
実例5:ショッピングは自らの意志が必要 アクセサリーを買うのに気をつける.
実例6:タイ旅行に別の問題が生じ 日程を変更して1千元多く収めさせられる
実例7:国内会社は何度も権限を越え 許可証が取り上げられる...
実例8:飛行機の延着で搭乗しない 日程の取り消しは誰のせいか
実例9:契約を結んで旅行に参加する 問題が起こっても証拠がある...
実例10:海外旅行には引率者を派遣する これは法定の義務である
記者: 王一寧
『北京晨报』より転載
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
%>