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

Avdelningen för webbrelaterad programmering och grafisk design.
Post Reply
User avatar
Mr Einstein
Posts: 1935
Joined: 2006-07-28 13:15:02

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

Post by Mr Einstein »

Hur undviker man spam om man har e-post adress på hemsidan?
User avatar
elvenman
Hedersbit
Posts: 12572
Joined: 2002-03-17 21:42:06
Location: Mora
Contact:

Post by elvenman »

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
User avatar
ADiS
Posts: 5732
Joined: 2003-04-04 22:24:03
Location: Gävle
Contact:

Post by ADiS »

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
User avatar
Mr Einstein
Posts: 1935
Joined: 2006-07-28 13:15:02

Post by Mr Einstein »

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 wrote: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?
User avatar
elvenman
Hedersbit
Posts: 12572
Joined: 2002-03-17 21:42:06
Location: Mora
Contact:

Post by elvenman »

Mr Einstein wrote: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 wrote: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
User avatar
Mr Einstein
Posts: 1935
Joined: 2006-07-28 13:15:02

Post by Mr Einstein »

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?
User avatar
ADiS
Posts: 5732
Joined: 2003-04-04 22:24:03
Location: Gävle
Contact:

Post by ADiS »

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

Code: Select all

<%
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
User avatar
mkk
Posts: 5084
Joined: 2002-03-08 0:04:08
Location: Gefle
Contact:

Post by mkk »

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

Code: Select all

<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>
User avatar
-SE-
Posts: 2783
Joined: 2004-12-06 18:40:11
Location: R-by
Contact:

Post by -SE- »

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
User avatar
syntetisk
Posts: 2708
Joined: 2002-03-28 23:48:58
Location: Uppsala

Post by syntetisk »

-SE- wrote: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 ;)
User avatar
-SE-
Posts: 2783
Joined: 2004-12-06 18:40:11
Location: R-by
Contact:

Post by -SE- »

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