<% 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 %>