Hur undviker man spam om man har e-post adress på hemsidan
- Mr Einstein
- Posts: 1935
- Joined: 2006-07-28 13:15:02
Hur undviker man spam om man har e-post adress på hemsidan
Hur undviker man spam om man har e-post adress på hemsidan?
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)?
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
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
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
- Mr Einstein
- Posts: 1935
- Joined: 2006-07-28 13:15:02
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...
Är det krångligt?
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...
Hur ser ASP koden ut då, om man får fråga?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
Är det krångligt?
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: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...
Det brukar inte vara så svårt och/eller det finns säkerligen massor med färdiga exempel här och var på internettet.Mr Einstein wrote:Hur ser ASP koden ut då, om man får fråga?
Är det krångligt?
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
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
- Mr Einstein
- Posts: 1935
- Joined: 2006-07-28 13:15:02
Jag har www.one.com http://www.one.com/sv/support/guides-faq
Hittade detta på deras supportsida angående ASP:
Hittade detta på deras supportsida angående ASP:
Är det den här funktionen man ska använda?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
%>
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
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>