2009年06月27日


ASP : 別ドメインにある関数ライブラリを使用して Mdb を作成する

<%
Function require( Url )

	Dim obj,strFunction

	Set obj = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
	on error resume next
	Call obj.Open("GET", Url, False )
	if Err.Number <> 0 then
		require = False
		Exit Function
	end if
	on error goto 0
	obj.Send
	strFunction = obj.responseText
	ExecuteGlobal strFunction

	require = True

End Function

require( "http://winofsql.jp/VBScript/functions.vbs" )

CreateMdb( Server.MapPath("売上.mdb") )
if ErrorMessage <> "" then
	Response.Write ErrorMessage & "<br>"
end if
%>
処理が終了しました

この関数の方法論は、WSH や IE でも有効です。
WSH や IE では、スクリプトタグがあるので必要無いように思われる
かもしれませんが、この関数によって取得されるのは文字列なので、
動的に関数の内容を変更してから「関数として実装」が可能になります
■関連する記事
VBScript : MDB作成 / http 経由で関数ライブラリを読み込む

posted by at 2009-06-27 20:34 | 基本関数 | このブログの読者になる | 更新情報をチェックする