长春净月潭

<% ' --------------------------- 创建连接数据库 --------------------------- '注：以 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：旅行社承包挂靠　承包者卷款潜逃...

　　案例2：越权经营出境游　境外代办被查处...

　　案例3：运输公司搞旅游　游客遇险无人赔...

　　案例4：游山逛庙设陷阱　名为进香实敛财...

　　案例5：进店购物需自愿　慎买珠宝和首饰...

　　案例6：泰国游节外生枝　改行程多收一千...

　　案例7：国内社屡做出境　许可证终被吊销...

　　案例8：飞机晚点不登机　行程取消谁之过...

　　案例9：参团旅游签合同　发生纠纷有凭证...

　　案例10：出境旅游派领队　法定义务不可少... 　　　　　　　

　　　　　　　　记者　王一宁

　　转自 : 北京晨报

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