28,391
社区成员
发帖
与我相关
我的任务
分享
url = host_yf&"products.asp?k="&sup_y
set XmlHttp=Server.createobject("Microsoft.XMLHTTP")
XmlHttp.open "GET",url,false
XmlHttp.send()
'getHTTPPage=Http.responseText
if XmlHttp.readystate <> 4 then exit sub
ResultTxt=bytes2BSTR(XmlHttp.responseBody)
'response.Write(ResultTxt) : response.Write("<hr>")
set XmlHttp=nothing
if err.number <> 0 then err.Clear
response.Write("<div style=""border:5px solid #ccc; padding:5px;"">"&Server.HTMLEncode(ResultTxt)&"</div>")