28,391
社区成员
发帖
与我相关
我的任务
分享
<%
name = "testAspReplace"
Response.Write getIt(name)
Function getIt(name)
getIt = Left(name, 1) & Replace(Space(Len(name)-1), " ", "*")
End Function
%>
s = "testAspReplace"
Response.Write MaskedName(s)
Function MaskedName(sName)
MaskedName = left(sName,1) & String(len(sName)-1, "*")
End Function