28,402
社区成员
发帖
与我相关
我的任务
分享怎么在asp的服务器端使用Microsoft.XMLHTTP呢?我建立一个对象后,当send时总是出错
怎么在asp的服务器端使用Microsoft.XMLHTTP呢?我建立一个对象后,当send时总是出错,用server.CreateObject也不行.
set oReq = CreateObject("Microsoft.XMLHTTP")
oReq.open "POST","http://www.dgxyl.net/ipsearch.asp",false
oReq.setRequestHeader "Content-Length",Len(strA)
oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
oReq.send strA
set oReq = CreateObject("Microsoft.XMLHTTP")
oReq.open "POST","http://www.dgxyl.net/ipsearch.asp",false
oReq.setRequestHeader "Content-Length",Len(strA)
oReq.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
oReq.send strA
...全文
请发表友善的回复…
发表回复
chinahuman 2003-07-22
- 打赏
- 举报
function getHTTPPage(url)
on error resume next
dim http
set http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
on error resume next
dim http
set http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
pyz8000 2003-07-22
- 打赏
- 举报
up
我也想知道
我也想知道
