@DIV
' ******************************************************
' テキストファイルより文字列を取得
' ******************************************************
Function GetText(path, rpl)

	Dim fs,handle,text
	Set fs = Server.CreateObject("Scripting.FileSystemObject")

	Set handle = fs.OpenTextFile( _
		Server.MapPath(path), _
		1 _
	)
	text = handle.ReadAll()
	handle.Close()

	Dim i
	Dim str

	For i = 0 To Ubound(rpl)
		str = "$" & Right("00" & (i+1), 2)
		text = Replace(text, str, rpl(i))
	Next

	GetText = text

End Function
@END