strTemp= strTemp & "<td>"
                strTemp= strTemp & rsProduct("EnUnit") & ""
                strTemp= strTemp & "</a></td>"


上面第二行的 是调用数据库数据的 想调用后的数字变成红色 代码该怎么增加呢

[ 本帖最后由 liduo202 于 2011-6-24 09:44 编辑 ]

最笨的办法
Function RedNum(strTemp)
   Dim i
   For i=0 To 9
       strTemp=Replace(strTemp,CStr(i),"<font color=red>"+CStr(i)+"</font>")
   Next
   RedNum=strTemp
End Function

代码怎么放呢 用我那段来改 老大 不教一下聪明方法