ASP Special Word Fu Shi code

ASP Special Word Fu Shi code
Function strreplace (str)
 if str = "" Then
  strreplace = str
 ELSE
  strreplace = replace (str, "'", "")
 end if 
End Function
Detect numeric function
Functions Check_ Num (str)
   Dim i
   for i = 1 to Len (str)
  
     IF&N Bsp ASC (Mid (str, I, 1)) < 48  or   ASC (Mid (str, I, 1)) > then
           check_num=false
    Exit Function
     else
 & nbsp;     check_num=true
     End If
   Next
End function

Function Cutstr (str,strlen,more,url)
If Len (str) >strlen then
  Str=left (str,strlen) & "..."
End If
if (len (str) >strlen) and more then
  str=str+ "&nbsp;&nbsp;&nbsp;[ Url= "+url+"] Click here to view details [/url]
End If
cutstr=str
End Function