كود: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")))