<% '?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 %> 過去扉絵
スケキヨ。
ステッカー（うそ。
我慢。
ねんがんの
クリスマス。
コミケ当選。
「まて。」
小川神宮の夏。
コミケ当選。
頂き物。