<% Set Fs=Server.CreateObject("Scripting.FileSystemObject") Set CF=Fs.OpenTextFile(Server.MapPath("jsq-a.txt"),1) countA=CF.ReadLine CF.Close Set CF=Fs.OpenTextFile(Server.MapPath("jsq-a.txt"),2) CF.WriteLine(countA+1) CF.Close Set CF=Fs.OpenTextFile(Server.MapPath("jsq-b.txt"),2) c0=CStr(countA) c1=Mid(c0,2,1) c2=Mid(c0,3,1) c3=Mid(c0,4,1) c4=Mid(c0,5,1) c5=Mid(c0,6,1) c6=Mid(c0,7,1) CF.WriteLine("c6=1"&c6&"&c5=1"&c5&"&c4=1"&c4&"&c3=1"&c3&"&c2=1"&c2&"&c1=1"&c1&"&") CF.Close %>