<%
CountFile = Server.MapPath("count.txt")
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out= FileObject.OpenTextFile (CountFile, 1, FALSE, FALSE)
counter = Out.ReadLine
Out.Close
SET FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out= FileObject.CreateTextFile (CountFile, TRUE, FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Out.Close
Length=Len(counter)
ImgStr=""
for i=1 to 5 - Length
ImgStr1="![]()
"+ImgStr1
next
do while Length>=1
ImgStr2="![]()
"+ImgStr2
Length=Length-1
loop
ImgStr=ImgStr1+ImgStr2
%>
| Hi!
您是第<% =ImgStr %>位訪客 |
| 編
者 的 話 |
|
走在力行校園，時光帶來一批批學生，一批批學生又隨著時序更迭，生長、茁壯。我們除了和學生一起努力認識這個美麗新世界以外，課餘更嘗試素描遍佈學校各個角落的植物，藉著這些生生不息的校園植物，當成面向自然的窗口。
感謝林慧容老師的指導，感謝引領認識的師友，感謝參與討論的伙伴，感謝、感謝……
為了做個稱職的導遊，我們先列舉出常見的大樹，希望與你分享學習大地的喜悅。
