Hur undviker man spam om man har e-post adress på hemsidan

Avdelningen för webbrelaterad programmering och grafisk design.
Skriv svar
Användarvisningsbild
Mr Einstein
Inlägg: 1935
Blev medlem: 2006-07-28 13:15:02

Hur undviker man spam om man har e-post adress på hemsidan

Inlägg av Mr Einstein » 2007-05-25 13:10:52

Hur undviker man spam om man har e-post adress på hemsidan?

Användarvisningsbild
elvenman
Hedersbit
Inlägg: 12572
Blev medlem: 2002-03-17 21:42:06
Ort: Mora
Kontakt:

Inlägg av elvenman » 2007-05-25 13:28:15

Byter ut @ mot AT, SNABEL-A eller nått annat skojs (och lika med punkterna)?

Skapar en kontaktsida som inte visar din mailadress (liknade som när du svarar på en annons på blocket)?
Fråga smart "Den som spar han har, men inte roligt"
Praxidike: Q9550/8GB/5180GB/DVD±RW/GTX760/24"TFT
Io: P-M 1,73/2GB/1000GB/DVD±RW/15"TFT
U32U: E-450 1,65/8GB/64GB SSD/HD6320/13,3"TFT
Kale: E6550/4GB/640GB/46"LED

Användarvisningsbild
ADiS
Inlägg: 5732
Blev medlem: 2003-04-04 22:24:03
Ort: Gävle
Kontakt:

Inlägg av ADiS » 2007-05-25 14:37:36

jag gjorde ett kontakt formulär på min sida där min address finns i asp-koden och den behandlas på server side och då nyns den inte i html koden eller på sidan :)
http://www.buildlog.eu - Din egna bygglogg på nätet

Användarvisningsbild
Mr Einstein
Inlägg: 1935
Blev medlem: 2006-07-28 13:15:02

Inlägg av Mr Einstein » 2007-05-25 15:04:40

ok...men grejen är den att jag har e-post adressen liggande som en klickbar länk på sidan.
Istället för att skriva ut e-post adressen som text gjorde jag om den till en bild.
Då förlorar man ju den klickbara funktionen...men nackdelarna är större fördelarna.
Jävla SPAM svin...
ADiS skrev:jag gjorde ett kontakt formulär på min sida där min address finns i asp-koden och den behandlas på server side och då nyns den inte i html koden eller på sidan :)
Hur ser ASP koden ut då, om man får fråga?
Är det krångligt?

Användarvisningsbild
elvenman
Hedersbit
Inlägg: 12572
Blev medlem: 2002-03-17 21:42:06
Ort: Mora
Kontakt:

Inlägg av elvenman » 2007-05-25 15:52:13

Mr Einstein skrev:ok...men grejen är den att jag har e-post adressen liggande som en klickbar länk på sidan.
Istället för att skriva ut e-post adressen som text gjorde jag om den till en bild.
Då förlorar man ju den klickbara funktionen...men nackdelarna är större fördelarna.
Jävla SPAM svin...
Mjo det är klart att man tappar viss funtionalitet. Ett annat alternativ är väl att att ha någon form av captcha för att kunna se och klicka på din mailadress.
Mr Einstein skrev:Hur ser ASP koden ut då, om man får fråga?
Är det krångligt?
Det brukar inte vara så svårt och/eller det finns säkerligen massor med färdiga exempel här och var på internettet.

Vad har du för möjligheter på servern (genom tex. PHP eller ASP)?
Fråga smart "Den som spar han har, men inte roligt"
Praxidike: Q9550/8GB/5180GB/DVD±RW/GTX760/24"TFT
Io: P-M 1,73/2GB/1000GB/DVD±RW/15"TFT
U32U: E-450 1,65/8GB/64GB SSD/HD6320/13,3"TFT
Kale: E6550/4GB/640GB/46"LED

Användarvisningsbild
Mr Einstein
Inlägg: 1935
Blev medlem: 2006-07-28 13:15:02

Inlägg av Mr Einstein » 2007-05-25 16:33:12

Jag har www.one.com http://www.one.com/sv/support/guides-faq
Hittade detta på deras supportsida angående ASP:
CDONTS - Hur skickar jag mail via ASP?
<%
Set objMail = Server.CreateObject( "CDONTS.NewMail" )
objMail.To = "mottagare@domän.se"
objMail.From = "avsändare@dindomän.se"
objMail.Subject = "Testmail med Chili!Mail"
objMail.Body = "Hej Mottagare" & vbcrlf & vbcrlf & "Email från min webbsida"
objMail.Host = "mailout.one.com"
objMail.Send
Set objMail = Nothing
%>
Är det den här funktionen man ska använda?

Användarvisningsbild
ADiS
Inlägg: 5732
Blev medlem: 2003-04-04 22:24:03
Ort: Gävle
Kontakt:

Inlägg av ADiS » 2007-05-25 17:01:08

Japp det är grunden. Men du kan ta min med lite funktioner osv...

Kod: Markera allt

<%
Dim smtpserver,youremail,yourpassword,ContactUs_Name,ContactUs_Email
Dim ContactUs_Subject,ContactUs_Body,Action,IsError
   
smtpserver = "______________"
youremail = "________________"
yourpassword = "____________"
   
ContactUs_Name = Request("ContactUs_Name")
ContactUs_Email = Request("ContactUs_Email")
ContactUs_Subject = Request("ContactUs_Subject")
ContactUs_Body = Request("ContactUs_Body")
Action = Request("Action")
   
Function IsValidEmail(Email)
Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1
ValidFlag = False
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
atCount = 0
SpecialFlag = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = "@" Then atCount = atCount + 1
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next
If (atCount = 1) And (SpecialFlag = False) Then
BadFlag = False
tAry1 = Split(Email, "@")
UserName = tAry1(0)
DomainName = tAry1(1)
If (UserName = "") Or (DomainName = "") Then BadFlag = True
If Mid(DomainName, 1, 1) = "." then BadFlag = True
If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
ValidFlag = True
End If
End If
If BadFlag = True Then ValidFlag = False
IsValidEmail = ValidFlag
End Function
%>

<html>
<%
If Action = "SendEmail" Then
   
If IsValidEmail(ContactUs_Email) = "False" Then
IsError = "Yes"
Response.Write("<font color=""red"">Du har ej angivit en korrekt Email.</font><br>")
End If
   
If ContactUs_Name = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">Du har ej angivit ett Namn.</font><br>")
End If
   
If ContactUs_Subject = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">Du har ej angivit ett Ämne.</font><br>")
End If
   
If ContactUs_Body = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">Du har ej skrivit ett Meddelande.</font><br>")
End If
   
End If
   
If Action = "SendEmail" And IsError <> "Yes" Then
   
Dim strBody
   
strBody = strBody & "<table>"
strBody = strBody & "<a>Skickat ifrån sidan " & Now() & vbCrLf & "<br><br>"
strBody = strBody & "<b>Från</b> http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "<br>"
strBody = strBody & "<b>IP</b> " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "<br>"
strBody = strBody & "<b>Namn</b>" & " : " & " " & Replace(ContactUs_Name,vbCr,"<br>") & "<br>"
strBody = strBody & "<b>Email</b>" & " : " & " " & Replace(ContactUs_Email,vbCr,"<br>") & "<br>"
strBody = strBody & "<b>Ämne</b>" & " : " & " " & Replace(ContactUs_Subject,vbCr,"<br>") & "<br>"
strBody = strBody & "<br>" & Replace(ContactUs_Body,vbCr,"<br>") & "<br>"
strBody = strBody & "</a>"
strBody = strBody & "</table>"
   
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message") 
   
   
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
   
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
   
ObjSendMail.Configuration.Fields.Update
      
ObjSendMail.To = youremail
ObjSendMail.Subject = ContactUs_Subject
ObjSendMail.From = ContactUs_Email
   
ObjSendMail.HTMLBody = strBody
'ObjSendMail.TextBody = strBody
   
ObjSendMail.Send
   
Set ObjSendMail = Nothing 
   
%>
http://www.buildlog.eu - Din egna bygglogg på nätet

Användarvisningsbild
mkk
Inlägg: 5084
Blev medlem: 2002-03-08 0:04:08
Ort: Gefle
Kontakt:

Inlägg av mkk » 2007-05-25 17:07:02

Kan den här gamla godingen vara gångbar än idag?

Kod: Markera allt

<script language="JavaScript">
<!--
var stb_domain = "efter_kanelbullen"
var stb_user = "före_kanelbullen"
var stb_recipient = stb_user + "@" + stb_domain
var stb_url = "mailto:" + stb_recipient
document.write(stb_recipient.link(stb_url));
-->
</script>

Användarvisningsbild
-SE-
Inlägg: 2783
Blev medlem: 2004-12-06 18:40:11
Ort: R-by
Kontakt:

Inlägg av -SE- » 2007-05-25 22:25:59

mkk: Tanken var väl egentligen att det varken skulle synas i källkod eller direkt på vebbsidan.
"Inget kräver så mycket förberedelse som ett improviserat tal."
- Winston Churchill

Användarvisningsbild
syntetisk
Inlägg: 2708
Blev medlem: 2002-03-28 23:48:58
Ort: Uppsala

Inlägg av syntetisk » 2007-05-26 0:29:48

-SE- skrev:mkk: Tanken var väl egentligen att det varken skulle synas i källkod eller direkt på vebbsidan.
Men det gör det väl inte heller? i källkoden är det ju som du ser gömt och på sidan kan du ha en bild istället för texten.

Skitsmart lösning. Om jag har förstått det rätt vill säga ;)

Användarvisningsbild
-SE-
Inlägg: 2783
Blev medlem: 2004-12-06 18:40:11
Ort: R-by
Kontakt:

Inlägg av -SE- » 2007-05-26 12:53:01

Sry, tänkte fel.
"Inget kräver så mycket förberedelse som ett improviserat tal."
- Winston Churchill

Skriv svar