% '?t?@?C???I?u?W?F?N?g?I?e?` Set FileObject = Server.CreateObject("Scripting.FileSystemObject") CntFile = Server.MapPath("./") & "\counter.txt" '?J?E???^?t?@?C???C???Y Set CntStm = FileObject.OpenTextFile(CntFile,1,True,TristateFalse) If CntStm.AtEndOfStream Then AcCnt = 1 Else AcCnt = CntStm.ReadLine + 1 End If CntStm.Close '?J?E???^?t?@?C???????Y Set CntStm = FileObject.CreateTextFile(CntFile,True,False) CntStm.WriteLine(AcCnt) CntStm.Close '?J?E???^?I???l?c?cIMG?^?O?d??????E AcImg = "" AcWork = AcCnt For i = 1 to 6 Num = AcWork Mod 10 AcWork = AcWork \ 10 AcImg = "" & AcImg Next %>