<JOB>
<SCRIPT
	language="VBScript"
	src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )

Crun

Do

	str = InputBox("文字列を入力して下さい")
	Wscript.Echo str
	if str = "" then
		Exit Do
	end if

	uni_str = ""
	nLen = Len(str)
	For I = 1 to nLen
		wn = ascw(Mid(str,I,1))
		if wn < 0 then
			wn = wn + 65536
		end if
		uni_str = uni_str & "&#" & wn & ";"
	Next

	Wscript.Echo uni_str

Loop

</SCRIPT>
</JOB>