<%’******************************’函数：comma(str)’参数：str，待处理的数字’作者：阿里西西’日期：2007/7/12’描述：返回以千分位显示数字格式化的数值’示例：<%=comma("120300")%>’******************************function comma(str) if not(isnumeric(str)) or str = 0 then result = 0 else...

<%FunctionComma(str)IfNot(IsNumeric(str))Orstr=0Then Result=0ElseIfLen(Fix(str))<4Then Result=strElse Pos=Instr(1,str,".") IfPos>0Then Dec=Mid(str,Pos) Endif Res=StrReverse(Fix(str)) LoopCount=1 WhileLoopCount<=Len(Res) TempResult=TempRes...