<%OPTION EXPLICIT Dim FO, FSO, i, Total Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set FO = FSO.OpenTextFile(Server.MapPath("RECORD.TXT"), 1) Total = FO.ReadLine: FO.Close(): Set FO = Nothing 'If request.Cookies("HCREN") = Empty Then Total = Total + 1 Set FO = FSO.OpenTextFile(Server.MapPath("RECORD.TXT"), 2) FO.WriteLine(Total): FO.Close(): Set FO = Nothing 'response.Cookies("HCREN") = ".com" 'response.Cookies("HCREN").Expires = Date + 1 'End If For i = 1 To 6 - Len(Total) Total = "0" & Total: Next Set FSO = Nothing %>var record; record = "\r\n"; record += " \r\n"; //record += " ";<%For i = 1 To 6%> record += " \r\n";<%Next%> //record += " "; record += " \r\n

µÚ

.gif\" width=\"15\" height=\"20\" border=\"0\" />

λä¯ÀÀÕß

\r\n"; document.write(record);