laylaClass


  HTTPGet



  
Function HTTPGet( strUrl )

	LoadMsxmlHTTP

	on error resume next
	Call objSrvHTTP.Open("GET", strUrl, False )
	if Err.Number <> 0 then
		ErrorMessage = Err.Description
		HTTPGet = Empty
		Exit Function
	end if
	on error goto 0

	objSrvHTTP.Send

	HTTPGet = objSrvHTTP.responseText

End Function
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ