http请求之of_ordering_http_get

//Public function of_ordering_http_get (string as_url) returns string
//string as_url
long ll_temp
string ls_ref
string ls_err
string responsetext=""
oleobject http
//runtimeerror er1

ls_ref = as_url
http = CREATE oleobject
http.connecttonewobject("Microsoft.XMLHTTP")
http.open("GET",ls_ref,FALSE)
TRY
http.setrequestheader("If-Modified-Since","0")
CATCH (runtimeerror er1)
END TRY
http.send()
ll_temp = http.readystate
IF ll_temp <> 4 THEN
DESTROY http
ls_err = "-1"
ELSE
ls_err = http.responsetext
END IF
IF isvalid(http) = FALSE THEN DESTROY http
RETURN ls_err