% Call access_log_noid %> <% Dim fso,tso,count_data,mae_zero,count_len,zero_cnt,i,count_print,wso fso = CreateObject("Scripting.FileSystemObject") tso = fso.OpenTextFile("D:\InetPub\wwwroot\html\count.txt",1,0) count_data = tso.ReadLine tso.close mae_zero = "" count_len = Len(count_data) zero_cnt = 7 - count_len for i = 1 to zero_cnt mae_zero = mae_zero & "0" Next count_print = mae_zero & count_data count_data = count_data + 1 tso = fso.GetFile("D:\InetPub\wwwroot\html\count.txt") wso = tso.OpenAsTextStream(2,0) wso.WriteLine (count_data) wso.close %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||