ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
ASP 用 require 関数 ( No.0 )
日時: 2007/09/10 20:30
名前: lightbox



<%
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://homepage2.nifty.com/lightbox/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 のほうが問題が起きないでしょう。