<% 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)

 

第一期 至 第十六期 第二十六期 三十六期 十六期 第五十
第十七期 第二十七期 三十 十七期 第五十
第十八期 第二十八期 三十 第五十八期
第十九期 第二十九期 三十九期 第五十九期
第二十期 第三十期 第六十期
第二十一期 第三十一 十一期  
第二十二期 第三十二期 第五十二期  
第二十三期 第三十 第五十三期  
第二十四期 三十四期 第五十  
第二十五期 三十五期 十五期 第五十