新微赢技术网»论坛 › 学习网知识堂 › WEB开发 › ASP › [求助]如何屏蔽号码中间若干位

查看: 74|回复: 5

[求助]如何屏蔽号码中间若干位

[复制链接]

无民

电梯直达

1^#

发表于 2010-1-15 02:22:10 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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

收藏0

使用道具举报

勇敢的心

2^#

发表于 2010-1-15 02:22:14 | 只看该作者

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

回复支持反对

使用道具举报

→大虾米々

3^#

发表于 2010-1-15 02:22:18 | 只看该作者

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

回复支持反对

使用道具举报

^o^星禾じ☆v

4^#

发表于 2010-1-15 02:22:22 | 只看该作者

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

回复支持反对

使用道具举报

first

5^#

发表于 2010-1-15 02:22:25 | 只看该作者

我写了个方法，楼主看看
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)

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册