ASP 中采用 VB 解释 XML！

[sczyq]

从这里获得IP的区域

http://www.youdao.com/smartresult-xml/search.s?type=ip&q=127.0.0.1

得到以下XML

<?xml version="1.0" encoding="gbk" ?> 
<smartresult>
<product type="ip">
<ip>127.0.0.1</ip> 
<location>本机地址</location> 
</product>
</smartresult>

要求，在ASP中直接返回“本机地址”，而不再其他任何格式，也不需要网页格式。


初步做的是：

<%
	cIp = Request("ip")

	cURL =  "http://www.youdao.com/smartresult-xml/search.s?type=ip&q=" & cIp
	cCountry = ""

	Set oHTTP = Server.CreateObject("Microsoft.XMLHTTP")

	oHTTP.Open "GET", cURL, False
	oHTTP.Send

	Set oXML = Server.CreateObject("Microsoft.XMLDOM") 
	oXML.Async=false 
	oXML.ValidateOnParse=false 
	oXML.Load(oHTTP.ResponseXML) 

	IF oXML.ReadyState > 2 THEN 

'  关键是不知道这里如何给 cCountry 赋值。
  	  
	END IF

	Set oXML = nothing 
	Set oHTTP = nothing 

	IF LEN(cCountry) = 0 THEN
		cCountry = "Unknown"
	END IF

	Response.Write(cCountry)	

%>

[youngsheep]

一般遇到这种事情，我不是会用XML来做的
直接用采集来做，简单至极


有需要加QQ：1618988,注明ASP XML

[yifanwu]

oXML.MicrosoftXML.giveIpAddress("IP").xml

[Anlige]

oXML.selectSingleNode("//smartresult//location").text

[snowhite88]

用FSO，判断字符串<ip>,substr,返回

[xiaoxiaoman22]

gx
g
xg
x
gx

[超维电脑科技]

路过。

[LANMIN]

不懂哦，学习ING...