<%@LANGUAGE="VBSCRIPT"%> <% ' *** Visit Counter *** ' FELIXONE 2002 - SB by Felice Di Stefano - www.felixone.it Dim FX_count Dim FX_digit FX_digit = 7 Dim FX_dpath FX_dpath = Server.MapPath("FX_DataCounter") Dim FX_fpath FX_fpath = Server.MapPath("FX_DataCounter/counter.txt") set FX_fso = Server.CreateObject("Scripting.FileSystemObject") ' Check if directory and file exists, if not create it. If (Not FX_fso.fileExists(FX_fpath)) Then If (Not FX_fso.folderExists(FX_dpath)) Then FX_fso.CreateFolder(FX_dpath) End If Application.Lock() set FX_file = FX_fso.OpenTextFile(FX_fpath, 8, true) FX_file.write(9998) FX_file.Close() Application.Unlock() End If ' Read file and update it any time set FX_fobj = FX_fso.getfile(FX_fpath) set FX_file = FX_fobj.OpenAsTextStream(1,-2) FX_count = FX_file.Read(100) 'If (Session("FX_DataCounter") = "") Then Application.Lock() set FX_file = FX_fso.CreateTextFile(FX_fpath, 8, false) FX_file.write(FX_count+1) FX_file.Close() Application.Unlock() set FX_fso = nothing FX_count = FX_count+1 ' Session("FX_DataCounter") = FX_count 'End If ' Add leadings FX_numlength = Len(cStr(FX_count)) If (FX_numlength < FX_digit) Then FX_lead = cInt(FX_digit - FX_numlength) For i=1 To FX_lead FX_count = "0" & FX_count Next End If %> 宜蘭飯店-金城客棧歡迎您 - 宜蘭飯店

電話：03-954-2169 傳真：03-956-3261 信箱：k_t_hotel@yahoo.com.tw
宜蘭飯店 - 金城客棧：宜蘭縣羅東鎮公正路60號

國際童玩節親水公園宜蘭的飯店-金城客棧位於羅東火車站前，提供便捷精緻的宜蘭飯店住宿及輕鬆品嚐宜蘭當地美食，臨親水公園，讓您放鬆住•輕鬆吃，快樂玩。
宜蘭的飯店．金城客棧宜蘭住宿資訊：
宜蘭的飯店．金城客棧宜蘭住宿於宜蘭縣羅東鎮，附近景點有蘇澳港南方澳漁港國立傳統藝術中心親水公園玉蘭茶園,九寮溪瀑布,冬山河親水公園,提供舒適的宜蘭旅遊體驗。