<%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))Nextspecialstr=yourstringEnd Functionmy = specialstr("spãner")response.write my&"haha"
%>
转载于:https://www.cnblogs.com/alex-13/p/3940082.html
相关资源：ASP在线版批量字符替换工具.rar