<td align="center" bordercolor="#FFCC66"><span class="STYLE7"><%=rs("serv_nbr")%></span></td>
我做的一个小页面，其中从表中的serv_nbr字段里面读取号码（如11位），需要将号码的第7到9位用***代替，好像有函数可以取前6位，还有后2位，中间用***，本人愚拙，求助各位大虾。

[此贴子已经被作者于2006-6-21 20:28:00编辑过]

或者直接截取第7－9位用***来代替，可是函数俺不熟悉，求助各位大虾。

serv_nbr=rs("serv_nbr")
serv_nbr=left(serv_nbr,6)&"***"&right(serv_nbr,2)

哈哈，谢谢islet！
分开来一个一个函数我知道，可是整合不会，真是小笨，嘿嘿

我写了个方法，楼主看看
Function GetChar(Str,Pre,Bak)
Dim Text
For I=1 To len(Str)
If I>=Pre And I<=Bak Then
Text=Text&Replace(Mid(Str,I,1),Mid(Str,I,1),"*")
Else
Text=Text&Mid(Str,I,1)
End If
Next
GetChar=Text
End Function
Call GetChar(rs("serv_nbr"),7,9)

[此贴子已经被作者于2006-6-23 10:59:08编辑过]