asp 特殊字符替换

<%
Function specialstr(yourstring)
find= "¿,À,Á,Â,Ã,Ä,Å,Æ,Ç,È,É,Ê,Ë,Ì,Í,Î,Ï,Ð,Ñ,Ò,Ó,Ô,Õ,Ö,Ø,Ù,Ú,Û,Ü,Ý,Þ,ß,à,á,â,ã,ä,å,æ,ç,è,é,ê,ë,ì,í,î,ï,ð,ñ,ò,ó,ô,õ,ö,ø,ù,ú,û,ü,ý,þ,ÿ"
find = split(find,",")
replaced = "L,A,A,A,A,A,A,A,C,E,E,E,E,I,I,I,I,D,N,O,O,O,O,O,O,U,U,U,U,Y,p,B,a,a,a,a,a,a,e,c,e,e,e,e,l,l,l,l,o,n,o,o,o,o,o,o,u,u,u,u,y,p,y"
replaced = split(replaced,",")
for i = 0 to ubound(find)
yourstring=Replace(yourstring,find(i),replaced(i))
Next
specialstr=yourstring
End Function
my = specialstr("spãner")
response.write my&"haha"

%>