function.vbs

access+asp.net还行吧

Function isBool(object)
	isBool = CBool(object)
End Function

Function formatFloatNumber(float)
	formatFloatNumber = FormatNumber(float, 2, -1)
End Function

Function replaceText(temp, text)
	if text="" then
		replaceText = temp
		exit function
	end if
	
	dim rgExp
	rgExp = "<font color=red>"& text &"</font>"

	replaceText = Replace(temp, text, rgExp, 1, -1, 1)
End Function