%
' --------------------------- 创建连接数据库 ---------------------------
'注:以 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.1メートル足りないの子供を連れる場合、子供は無料で乗車することができる、二つ以上の子供を連れる場合、身長1.1――1.4メートルの子供は半額で乗車することができ。身長1.4メートル以上の子供は、全額の切符を取る。
学生が乗車する 正規の学校、給料がない学生と院生或いは住むところと学校は別のところで、公印があるの割引証明書を持つ人。学校の書面証明書を持つ人。毎年、四回目の硬座席券を買える。卒業生はその時学校の証明書で、新入生は入学通知書で一枚の半額普通座席券を買える。
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
%>