ASP 三层架构 Convert类实现代码(5)

日期：2020-05-13 栏目：程序人生浏览：次

else
ToPer = "0.00%"
end if
End Function
' ****** value -> Value first code change to uppercase
Public Function FirstUppercase(ByVal value)
value0 = trim(value)
if len(value0)=0 then
FirstUppercase = ""
else
FirstUppercase = UCase(left(value0,1)) & right(value0,len(value0)-1)
end if
End Function
Public Function SafeSql(ByVal value)
SafeSql = replace(value,"'","''")
End Function
End Class