<% function main() Dim intCounter, intTimes1, intTimes2, i, j, intDigit Dim strPath, strCounter Dim iscontinue iscontinue = true if(Request.Cookies("CareActionOrgHKCounter")<>"") then intCounter = int(Request.Cookies("CareActionOrgHKCounter")) else strPath = Server.MapPath(".") & "\counter\counter.txt" intCounter = read(strPath) if(intCounter = false) then iscontinue = false else intCounter = CInt(intCounter) + 1 save strPath, intCounter Response.Cookies("CareActionOrgHKCounter") = intCounter end if end if if(iscontinue=true) then intTimes1 = 1 intTimes2 = 1 strPath="images/" for i =len(intCounter) to 1 Step -1 for j= 1 to i intTimes1 = intTimes1 * 10 next intTimes2 = intTimes1/10 intDigit = int((intCounter mod intTimes1)/intTimes2) strCounter = strCounter + "" intTimes1 = 1 intTimes2 = 1 next for i = 6 to len(intCounter) Step -1 strCounter = "" + strCounter next end if if(iscontinue=true) then main = strCounter else main = false end if end function '**************************************************************************************** ' boolean = isExisted(str_filename) '**************************************************************************************** public function isExisted(str_filename) dim obj_file, isFileExisted set obj_file = Server.CreateObject("Scripting.FileSystemObject") if obj_file.FileExists(str_filename) = true then isFileExisted = true else Response.write("File " & str_filename & " is not existed
") isFileExisted = false end if set obj_file = nothing isExisted = isFileExisted end function '**************************************************************************************** ' fil_content = read(str_filename) '**************************************************************************************** public function read(str_filename) dim fil_content, obj_file, obj_textstream if(isExisted(str_filename)) then Set obj_file = Server.CreateObject("Scripting.FileSystemObject") Set obj_textstream = obj_file.OpenTextFile(str_filename) do while obj_textstream.AtEndOfStream = false fil_content = fil_content & obj_textstream.ReadLine & vbcrlf loop obj_textstream.Close Set obj_textstream = Nothing Set obj_file = Nothing read = fil_content else read = false end if end function '**************************************************************************************** ' save str_filename, str_content '**************************************************************************************** public sub save(str_filename, str_content) dim obj_file, obj_textstream 'Response.write(str_filename & " " & str_content & "
") set obj_file = Server.CreateObject("Scripting.FileSystemObject") set obj_textstream = obj_file.CreateTextFile(str_filename,true) obj_textstream.WriteLine(str_content) obj_textstream.Close set obj_textstream = nothing set obj_file = nothing end sub %> 主頁
第一期至第十六期   第二十二期
第十七期   第二十三期
第十八期   第二十四期
第十九期   第二十五期
第二十期   第二十
第二十一期      
《簡介》  
 

由於「樂善行」基金的成立,本會已於二零零一年一月三日在社團註冊處登記成為一註冊非牟利志願團體CP/LIC/SO/19/24510。往後在旅行界中除推廣環保旅行遠足康體活動外,更重要的是希望對國內偏遠貧困山區失學或在學的兒童能有所幫助,這也是創會的宗旨。

本會已獲稅務局批核成為一註冊非牟利慈善團體。日後各界熱心人士持捐款收據可向稅局申請作扣稅之用。(稅局檔號:91/6454)