<%
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 10 - Length ' 計數器預設 5 位數 , 不滿以 0 補足
ImgStr1="![]()
"+ImgStr1
next
do while Length>=1 ' 將數字轉成對應的圖檔名稱
ImgStr2="![]()
"+ImgStr2
Length=Length-1
loop
ImgStr=ImgStr1+ImgStr2
%>
直銷學術研發中心
If
you have any comments or suggestions, Please e-mail
to:
This
homepage is maintained by Der-Fa Robert Chen and translated by Hsu Ju-Wen.
Tel: (07) 525-2000 #4621 Fax: (07) 525-4695
本網站最佳瀏覽解析度為
1024 x 768
