施善即助己

<% Set Fs=Server.CreateObject("Scripting.FileSystemObject") file_path=Server.MapPath("../counter.txt") Set CounterFile=Fs.OpenTextFile(file_path) OldCounterValue=CounterFile.ReadLine NewCounterValue=OldCounterValue+1 CounterFile.Close Set CounterFile=Fs.OpenTextFile(file_path,2) CounterFile.WriteLine(NewCounterValue) CounterFile.Close Function G_Split(CounterValue,Counter_bits) For i=1 To Counter_bits G=Mid(CounterValue,i,1) If G="" Then G=0 ImgTag="

"&ImgTag Else ImgTag=ImgTag&"

" End if Next G_Split=ImgTag End Function %> 施善即助己

首页我的最近我思故我在过去未来联系我


拈花微笑度众生，	利乐有情愿无更。	噬苦回哺是感恩，	善言善事有余声。
善心善举，善言善事：关注与施助同样重要，受助者与工作者都感谢您！
协庆慈善孤儿学校		http://www.xq-school.net/	藏族孤儿温暖的家
点击支持慈善中国		http://www.ip36.com/	在网上日行一善的地方
启明星行动		http://www.qimingxing.org/	致力西部教育的公益活动



施助时请注意识别防受骗