| 发表于:2007-02-03 15:13:112楼 得分:0 |
<script type= "text/vbscript " language= "vbscript ">
function urlencoding(byval vstrin)
dim strreturn
strreturn = " "
for i = 1 to len(vstrin)
thischr = mid(vstrin,i,1)
if abs(asc(thischr)) < &hff then
strreturn = strreturn & thischr
else
innercode = asc(thischr)
if innercode < 0 then
innercode = innercode + &h10000
end if
hight8 = (innercode and &hff00)\ &hff
low8 = innercode and &hff
strreturn = strreturn & "% " & hex(hight8) & "% " & hex(low8)
end if
next
urlencoding = strreturn
end function
function bytes2bstr(byval vin)
strreturn = " "
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function </script>
<script type= "text/javascript ">
var xmlhttp = new activexobject( "msxml2.xmlhttp ");
xmlhttp.open( "post ", "http://entry.mail.126.com/cgi/login?hid=10010102&lightweight=1&language=0&style=-1 ",false);
xmlhttp.setrequestheader( "content-type ", "application/x-www-form-urlencoded ")
//xmlhttp.setrequestheader( "charset ", "gb2312 ");
var parm = "domain= "+escape( "126.com ");
parm+= "&language=0 ";
parm+= "&bcookie= ";
parm+= "&user= "+escape( "aaaa ");
parm+= "&pass= "+escape( "*********** ");
parm+= "&style=-1 ";
// parm+= "&remuser= ";
//parm+= "&secure=0 ";
parm+= "&enter.x= "+escape( "登 录 ");
xmlhttp.send(parm);
var result = bytes2bstr(xmlhttp.responsebody)
var a = window.open( "about:blank ");
a.document.write(result);
xmlhttp = null;
</script>
| | |
|