马龙什么时候蔡依林:asp 分行显示如何控制,高手帮解答下谢谢

来源:百度文库 编辑:高考问答 时间:2024/04/30 06:55:42
<%

'''''''''''''调用webservice,取得数据

keyname2 = Server.URLEncode(Request("keyname")) '关键字价格

'调用获取相近关键字接口WebService,
strUrl2 = webserviceurl&"/GetNearKeyData?keyname="&keyname2

set xmlHttp2 = Server.CreateObject("MSXML2.XMLHTTP")
xmlHttp2.open "Get", strUrl2, false
xmlHttp2.send()

'获得返回信息
strXml2 = xmlHttp2.responseText
set xmlHttp2 = nothing

'建立XmlDocument对象,载入返回的xml数据
set xmlDoc2 = Server.CreateObject("MSXML2.DOMDocument")
xmlDoc2.async = false
xmlDoc2.loadXML(strXml2)

'获得最终系统处理结果
strResult2 = xmlDoc2.DocumentElement.text

'根据返回结果做相应处理

'打印出 结果值,你可以根据结果值,显示给客户相应的友好提示

sResult2 = Split(strResult2,",")

l = UBound(sResult2)

for i = 0 to l
s2 = sResult2 (i)
Response.Write "<a href=FinishQueryKeyPrice.asp?keyname="&Server.URLEncode(s2)&">"&s2&"</a>"
'Response.Write "    "
Response.Write "<br>"

next

%>

不会