马龙什么时候蔡依林: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
%>
'''''''''''''调用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
%>
不会