技术资料 > ASP技术 > ASP技巧 : StripNonNumeric函数源程序

StripNonNumeric函数源程序

March 25,2004

<%
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
%>