Createkeyword ASP implementation code to generate keywords from a given string application tips

'**************************************************
' Function name: Createkeyword
' Function: Generate keywords from a given string
' Parameters: Constr---The original string to generate the keyword
' Return value: the generated keyword
'**************************************************
Function Createkeyword (ByVal constr,num)
If constr= "" or IsNull (constr) =true or constr= "$False $" Then
Createkeyword= "$False $"
Exit Function
End If
If num= "" or IsNumeric (Num) =false Then
num=2
End If
Constr=replace (CONSTR,CHR (32), "")
Constr=replace (CONSTR,CHR (9), "")
Constr=replace (Constr, "", "")
Constr=replace (Constr, "", "")
Constr=replace (Constr, "(", "")
Constr=replace (Constr, ")", "" "
Constr=replace (Constr, "<", "")
Constr=replace (Constr, ">", "")
Constr=replace (Constr, "" "", "")
Constr=replace (Constr, "?", "")
Constr=replace (Constr, "*", "")
Constr=replace (Constr, "|", "")
Constr=replace (Constr, ",", "")
Constr=replace (Constr, ".", "")
Constr=replace (Constr, "/", "")
Constr=replace (Constr, "\", "")
Constr=replace (Constr, "-", "")
Constr=replace (Constr, "@", "")
Constr=replace (Constr, "#", "")
Constr=replace (Constr, "$", "")
Constr=replace (constr, "%", "")
Constr=replace (Constr, "&", "")
Constr=replace (Constr, "+", "")
Constr=replace (Constr, ":", "")
Constr=replace (Constr, ":", "")
Constr=replace (Constr, "'", "")
Constr=replace (Constr, "" "," ")
Constr=replace (Constr, "" "," ")
Constr=replace (Constr, "&", "")
Constr=replace (Constr, "GT;", "")
Dim i,constrtemp
For I=1 to Len (CONSTR)
Constrtemp=constrtemp & "|" & Mid (Constr,i,num)
Next
If Len (constrtemp) <254 Then
Constrtemp=constrtemp & "|"
Else
Constrtemp=left (constrtemp,254) & "|"
End If
Constrtemp=left (Constrtemp,len (constrtemp)-1)
constrtemp= Right (Constrtemp,len (constrtemp)-1)
Createkeyword=constrtemp
End Function