コメント |
@DIV
<%
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) )
%>
@END
リモートのファイルのキャラクタセットは UTF8N で。( 静的ファイルのデフォルト )
拡張子は、.vbs である必要はありません。
サーバーによりますが、どちらかと言えば、.txt のほうが問題が起きないでしょう。
|