<Script Language="VBS">
	'定義一個函數
	Function printStr(strInput)
		dim strRet
		strRet = "Hello" & strInput
		printStr = strRet '給函數名賦值
	End Function
	'調用函數
	str = printStr(" 調用！")
	document.write(str)
 </Script>