Question

asp 问题 请进来

我要实现一个功能,将文本中的数字变成红色,而这些文本是从数据库提出来的.
函数如下:
<%
function re(te)
uuu=len(te)
i=1
do while i<=uuu
if asc(mid(te,i,1))>=48 and asc(mid(te,i,1))<=57 then
te=replace(te,mid(te,i,1),"<span class=ss>"&mid(te,i,1)&"</span>")
i=i+22
uuu=uuu+22
end if
i=i+1
loop
re=te
end function
%>
功能基本实现,但有时在文本有些数字变不了红色,其中0 9最多
请高手解决
ps:ss是css样式表,而IsNumeric函数效率比asc判断的低

Answer 1

用正则匹配Regexp来做速度快很多.