<%Dim Conn, rs, Total, i, temp: temp = "" Set Conn = Server.CreateObject("Scripting.FileSystemObject") Set rs = Conn.OpenTextFile(Server.MapPath("record.txt")) Total = rs.ReadLine: rs.Close() 'If request.Cookies("QQ57659930") = Empty Then 'response.Cookies("QQ57659930") = "NewDawn" 'response.Cookies("QQ57659930").Expires = Date + 1 Set rs = Conn.OpenTextFile(Server.MapPath("record.txt"), 2) Total = Total + 1: rs.WriteLine(Total): rs.Close() 'End If For i = 1 To 6 - Len(cStr(Total)): temp = temp + "0": Next temp = temp & cStr(Total): Set Conn = Nothing %> function record() {var x = '\r\n'; x += ' \r\n';<%For i = 1 To 6%> x += ' \r\n';<%Next%> x += ' \r\n\r\n'; document.write(x);} record();