%
' --------------------------- 创建连接数据库 ---------------------------
'注:以 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
%>
长春净月潭
近年来,出国旅游的人越来越多,如何付小费成为困扰游客的一件大事。小费是许多国家对从事服务性工作人员的一种正常的付费方式,是下层服务人员的一项重要收入。并不是所有的服务都要给小费。按照惯例,除了饭店不曾谋面的打扫房间的服务生一定要给小费外,对许多当面给客人提供特殊服务的人也要付小费。饭店的行李员如果笑盈盈地帮你将行李提到了房间,那就绝不仅仅意味着热情,你理所应当地付小费给他。
付小费亦有一些技巧和惯例。给打扫房间的服务生的小费,在离开房间时放在显眼的位置即可。小费忌放在枕头底下,那样的话会被服务生认为是客人自己的东西忘了收藏。如果能在桌子上放小费的同时,留一张“THANK
YOU”的纸条,会备受服务生的欢迎和尊重。倘使当面要付小费给行李员,那最好是与他握手表示感谢的同时将小费暗暗给他。给导游、司机的小费,则要由团员一起交齐后放到信封里,由一代表当众给他们。当面付小费时最忌付硬币,会令对方不快。
小费付多少钱视每个国家的具体情况而不同,因而各项服务要付多少小费,还是在到达这个国家时,问问当地的导游较为妥贴。小费既然叫小费,其数自然不必太大。一般情况下,客人大致按明码标价的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
%>