调试易

<script type="text/vbscript">
function getPage()
set http_obj=createObject("Microsoft.XMLHTTP")
call http_obj.Open("post","http://www.blueidea.com/bbs/login.asp",false)
call http_obj.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded")
call http_obj.send(sendObj)
htmlbody= bytes2bstr(http_obj.responsebody)
if instr(htmlbody,"错误的用户")>0 then
info.innertext="登陆失败"
else
info.innerhtml="登陆成功,<a href='' onclick=document.all.login.style.display='black';>重新登陆<a>"
document.all.login.style.display="none"
end if
end function
function bytes2bstr(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>
<div id=login name=login style=display:black>
<INPUT NAME=NAME TYPE=TEXT>
<INPUT NAME=PASSWORD TYPE=PASSWORD>
<input type=submit onclick=getpage()>
</div>
<div id=info name=info></div>
也可以发送textarea的内容