<%
id = "webmaster@naver.com"
Call email_asterisk(id)
Function email_asterisk(email)
If InStr(email, "@") > 0 Then
StrEmail = Split(email, "@")
id = StrEmail(0)
id_length = Len(id)
id_asterisk = Left(id, 1) & Mid("*************************", 2, id_length-1)
address = StrEmail(1)
address_length = Len(address)
If InStr(address, ".") > 0 Then
StrAddress = Split(address, ".")
address_domain = StrAddress(0)
address_domain_length = Len(address_domain)
address_domain_asterisk = Left(address_domain, 1) & Mid("*************************", 2, address_domain_length-1)
address_ext = Mid(address, address_domain_length+1)
t1 = id_asterisk & "@" & address_domain_asterisk & address_ext
End If
' Response.write "id=" & id & "
"
' Response.write "address=" & address & "
"
' Response.write "address_domain=" & address_domain & "
"
' Response.write "address_domain_length=" & address_domain_length & "
"
' Response.write "address_domain_asterisk=" & address_domain_asterisk & "
"
' Response.write "address_ext=" & address_ext & "
"
' Response.write "t1=" & t1 & "
"
Else
t1 = email
End If
email_asterisk = t1
End Function
%>