hsiung.博格 ERP軟體

XMLHTTP傳值如何在固定時間內沒有取到返回值後自己中斷

http://hi.baidu.com/apxsoft/blog/item/22a9aa8fc766cafd503d9259.html

function send(url)
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")     
xml.Open "GET", url, False
xml.Send
if xml.responseText<>"" then
send=xml.responseText'

獲得返回值
else
send="NO"'無法獲得返回值
end if
Set xml = Nothing
end function
   
   
上面是同步方式發送資料，但是當無法得到返回值的時候就一直等待伺服器的回應，這樣很容易把伺服器拖垮，我想設置在固定時間內（如30s）如果沒有得到返回值就中斷操作。
   
聽說這要在非同步方式下才能做到，但除了改這個參數，如何進行其他的步驟？
________________________________________________
可以試試ServerXMLHTTP
   
Dim xmlServerHttp
Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")   
Dim lResolve, lConnect, lSend, lReceive
lResolve = 5 * 1000
lConnect = 5 * 1000
lSend = 15 * 1000
lReceive = 15 * 1000
xmlServerHttp.setTimeouts lResolve, lConnect, lSend, lReceive
xmlServerHttp.open "GET", "http://localhost/sample.xml", False
xmlServerHttp.send