Hej Om du har en e-post adress. T.ex. för att kontakta webmaster:gömma epostadresser för spambots
Jag hittade denna kod i en artikel på denna site men jag tror att den inte är fullständig trots att det står att den ska vara det. Vad jag kan se så saknas inledningen på ifsatsen.
Hur ska IF satsen se ut i detta fall??
<%
ShowEmail = request.form("ShowEmail")
If ShowEmail = 1 then
response.write Email
Else
%>
<form action="page.asp" method="post">
<input Type="hidden" name="ShowEmail" value=1>
<input TYPE="image" name="submit" value="Visa e-postadress" src="image.gif">
</form>
<%
End If
%>Sv: gömma epostadresser för spambots
<%
Const Email = "info@mydomain.com"
If request.form("ShowEmail") = 1 then
Response.write Email
Else
%>
<form action="page.asp" method="post">
<input Type="hidden" name="ShowEmail" value=1>
<input TYPE="image" name="submit" value="Visa e-postadress" src="image.gif">
</form>
<%
End If
%>
MAn skulle kunna använda den vid listning. Men då räcker det ju med ett form på sidan för att visa alla addresser
<form action="page.asp" method="post">
<input Type="hidden" name="ShowEmail" value=1>
<input TYPE="image" name="submit" value="Visa e-postadress" src="image.gif">
</form>
<ul>
<%
Sub HideEmail(Email)
If request.form("ShowEmail") = 1 Then
response.write Email
End If
End sub
Dim con
Dim rs
Set con = CreateObject("ADODB.Connection")
con.Open Application("ConnectionString")
Set rs = con.Execute("SELECT * FROM Users")
Do until rs.EOF
%>
<li><%=rs("UserName")%> (<%=HideEmail(rs("UserEmail"))%>)</li>
<%
rs.MoveNext
Loop
rs.Close
con.Close
%>
</ul>
Det är ju ingen särskilt säker metod, men bättre än inget.