三个字符后，所有字母都用星号改变

Question

为客户制作带有asp classic的预览表单。 我在db中有数据“email field”。例如，email_field中有一个电子邮件地址。

  

JohnDoe@mail.com

但我希望客户看到;

  

荷兰Joh **********

我无法解决这个问题。我可以使用哪个代码？

<%=Response.Write email_field %>
<%=Left(rs_mydb("email_field"),3)%>
<%=Replace(rs_mydb("email_field")),"","*"%>

Answer 1

没有必要使用替换。相反，您可以构建一个新的字符串进行打印。

<%
emailFromDb = rs_mydb("email_field")
emailForPrint = Left(emailFromDb, 3) & String(Len(emailFromDb) - 3, "*")
Response.Write emailForPrint
%>