ASP Special Word Fu Shi code

function Strreplace (str)
If str = "" Then
Strreplace = str
Else
Strreplace = replace (str, "'", "" ")
End If
End Function
Detecting numeric functions
function Check_num (str)
Dim i
For i = 1 to Len (str)

If ASC (Mid (str, I, 1)) < or ASC (Mid (str, I, 1)) > Then
Check_num=false
Exit function
Else
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