StripNonNumeric函数源程序

核心提示：<%Function StripNonNumeric(strInput)Dim iPos, sNew, iTempstrInput = Trim(strInput)If strInput <> "" TheniPos = 1iTemp = Len(strInput)While iT

<%
Function StripNonNumeric(strInput)
　　Dim iPos, sNew, iTemp
　　strInput = Trim(strInput)
　　If strInput <> "" Then
　　　　iPos = 1
　　　　iTemp = Len(strInput)
　　　　While iTemp >= iPos
　　　　　　If IsNumeric(Mid(strInput,iPos,1)) = True Then
　　　　　　　　sNew = sNew & Mid(strInput,iPos,1)
　　　　　　End If
　　　　　　iPos = iPos + 1
　　　　Wend
　　Else
　　　　sNew = ""
　　End If
　　StripNonNumeric = sNew
End Function
%>