set objxmlhttp = nothing
％＞
＜％
dim objxmlhttp, qq, pwd

qq = "10000" ‘挂机qq号
pwd = "123456" ‘qq挂机密码
set objxmlhttp = server.createobject("msxml2.xmlhttp.5.0")
objxmlhttp.open "post", "_blank＞http://211.139.167.71/waptest/tw&nbs ... dateuserinfo.jsp", false
objxmlhttp.setrequestheader "content-type", "application/x-www-form-urlencoded"
objxmlhttp.setrequestheader "connection", "keep-alive"
objxmlhttp.send("qq="&qq&"&pwd="&pwd&"&fromwhere=register")

if instr(objxmlhttp.responsetext, "验证失败") then
response.write "登录失败"
else
response.write "登录成功"
end if

set objxmlhttp = nothing
％＞