拡張子:txtvbswsfjsphpjavahtmlutf8sjis <% 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://lightbox.in.coocan.jp/baseFunction.vbs" ) '************************************************************ ' 以下で使用されている関数は、baseFunction.vbs の中にあります '************************************************************ ' HTML をそのまま表示 print GetTextFile( Server.MapPath("entry.htm") ) ' vbCrLf 付き表示( print2 ) print2 Han2Zen( "ABCDefg" ) print2 GetCpname() ' BR + vbCrLf ( print3 ) print3 WinDir() print3 IsGroup( "123456", GroupString(1) ) print3 IsGroup( "123A456", GroupString(1) ) %> リモートのファイルのキャラクタセットは UTF8N で。( 静的ファイルのデフォルト ) 拡張子は、.vbs である必要はありません。 サーバーによりますが、どちらかと言えば、.txt のほうが問題が起きないでしょう。
<% 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://lightbox.in.coocan.jp/baseFunction.vbs" ) '************************************************************ ' 以下で使用されている関数は、baseFunction.vbs の中にあります '************************************************************ ' HTML をそのまま表示 print GetTextFile( Server.MapPath("entry.htm") ) ' vbCrLf 付き表示( print2 ) print2 Han2Zen( "ABCDefg" ) print2 GetCpname() ' BR + vbCrLf ( print3 ) print3 WinDir() print3 IsGroup( "123456", GroupString(1) ) print3 IsGroup( "123A456", GroupString(1) ) %>