一套由英國聖公會學者研發,涵蓋宣教信徒培育的系統課程。
瀏覽人數
<% Dim strPath, File, file2, x,liCount, j ,resfile, d, i ,fl strPath = "../counter/newsctr.txt" strPath = Server.MapPath(strPath) strPath2 = "../counter/counter.txt" strPath2 = Server.MapPath(strPath2) Set File = Server.CreateObject("Scripting.FileSystemObject") set file2=File.OpenTextFile(strPath) set file3=File.OpenTextFile(strPath2) x=file2.readline y=file3.readline set resfile = File.createTextFile (strPath) set resfile1 = File.createTextFile (strPath2) resfile.writeline(x) resfile1.writeline(y) liCount=Cstr(x) liCount2=Cstr(y) j = Len(liCount) k = Len(liCount2) d=9 - j e=9 - k %> <% For i=1 to d step 1 Response.Write ("") Next For i=1 to j step 1 fl="digi" + Mid(liCount, i , 1) + ".gif" Response.Write ("" Next %>