Function Purify(str)
   Dim arrToRemove, x, strAns
   'write below all characters to be removed:
   arrToRemove=Array(" ", "/", "\", "+", "-", "!")
   strAns=str
   For x=0 To UBound(arrToRemove)
       strAns=Replace(strAns, arrToRemove(x), "")
   Next
   Purify=strAns
End Function
%>

وطريقة إستخدامها كالتالي

Purify(Request.form("filename")))