能不能给个函数,替换字符串中非字母或数字的内容
比如str="ert5@1e."
str=fun(str)
则str=ert51e"
參考答案:<%
str="ert5@1e."
str=fun(str)
function fun(s)
dim letters,l,i,ss
ss=""
letters="***********abcdefghijklmnopqrstuvwxyz"
for i=1 to len(s)
l=mid(s,i,1)
if instr(letters,l)>0 then
ss=ss&l
end if
next
end function
%>