这样为何无法抓取网页

Question

<%
function getcode(str)
finalstr = ""
for i = 1 to lenb(str)
icharcode = ascb(midb(str,i,1))
if icharcode < &H80 then
finalstr = finalstr & chr(icharcode)
else
inextcode = ascb(midb(str,i+1,1))
finalstr = finalstr & chr(clng(icharcode) * &H100 + cint(inextcode))
i = i + 1
end if
next
getcode = finalstr
end function
set iconnect = createobject("Microsoft.XMLHTTP")
icode = iconnect.open ("GET","http://www.123cha.com/index.php",false) 
iconnect.send()
myhtml = getcode(iconnect.responsebody)
set iconnect=nothing 
%>
<textarea name="editws"  style="DISPLAY: none;" cols="80" rows="5" id="editws">
<% =myhtml %>
</textarea>

Answer 1

我想利用http://www.123cha.com的查找ip的功能，根据访问者的ip得到概略地址。使用后台代码的话得到的只能是我的网站的web服务器所在的位置。