<% Set objFileSystem = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set objReadedTextFile = objFileSystem.OpenTextFile("ss.txt") HitRate = objReadedTextFile.ReadLine objReadedTextFile.Close HitRate = CLng(HitRate) + 1 Set objWritedTextFile = objFileSystem.CreateTextFile("ss.txt",true) objWritedTextFile.WriteLine(HitRate) objWritedTextFile.Close %> New Page 1

   







下載初級講義專區

 初級    59 kb  

本資料已於92年6月10日經過重新整理並做了很多修正及補充。

本檔案為壓縮檔,下載後請先存檔再用壓縮程式解壓縮,解壓縮後的原始檔是 ”初級.ppt ”是用powerpoint編輯,是四化飛星初級精華所在,務必用心領會.

 

回首頁