ASP email validacija

ASP email validacija 14.02.2011. u 14:19 · pre 191 mesec #1

<%
'
if ((LEN(Eposta)>5) OR (Vpr<>"")) then
if ((LEN(Eposta)>5) AND (Vpr<>"")) then

buf = "pitanje: " & Vpr

set mail = server.CreateObject("CDONTS.NewMail")
mail.From = "[email protected]"
mail.To = "[email protected]"
'mail.CC = "[email protected]"
'mail.BCC = "[email protected]"
mail.Subject = "FAQ"
mail.Body = buf
mail.Send

Set mail=nothing
%>

To je kod, ali ne umem da ga prepravim tako da ne moze da se posalje email ako ne sadrzi @ u njemu, nesto kao validacija email adrese, ili jos bolje kako ovo implementirati ovde a da radi:

function isEmail(string) {
if (string.search(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/) != -1)
return true;
else
return false;
}

Re: ASP email validacija 14.02.2011. u 15:12 · pre 191 mesec #2

regex za email:

patternEmailStrict = @"^(([^<>()[\]\\.,;:\s@\""]+"
+ @"(\.[^<>()[\]\\.,;:\s@\""]+)*)|(\"".+\""))@"
+ @"((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}"
+ @"\.[0-9]{1,3}\])|(([a-zA-Z\-0-9]+\.)+"
+ @"[a-zA-Z]{2,}))$";

Re: ASP email validacija 14.02.2011. u 15:42 · pre 191 mesec #3

Svi bi bilo lepo kada bih znao gde to da ubacim, u frontpage 2003 je otvoren asp dokument. Ja sam imao drugo resenje ali iz visualbasica, al kad iskopiram kod ne radi tj nestane.

To vidim u vb-u a u fp-u ne vidim.
<script Language="JavaScript" Type="text/javascript"></script>

Valjalo bi ako moze pomoc oko onog gore koda, kako da ga postavim?

A da, fajl je snimnjen kao *.asp

Re: ASP email validacija 14.02.2011. u 16:00 · pre 191 mesec #4

Sta je u pitanju validacija u javascript-u, asp.net-u ili asp(vbscript)

Re: ASP email validacija 14.02.2011. u 16:19 · pre 191 mesec #5

Pojma nemam, onaj gore kod koji sam postavio je vezan za tu formu, sad nije moguce poslati email ako nije upisan emai i poruka, ali email moze biti bilo sta recimo 6 slova, hocu da napravim da email ne moze da bude napisan bez @, znaci mora da sadrzi @ kako bi email krenuo sa sajta meni na meil. I recimo da izbaci da nije lepo upisan email.

U fp sam naso neki propertis polja, pa validaciju ali nema na neki znak, ogranicio sam na min 6 karaktera i max 50, al i dalje nisam naso gde da postavim da ne moze bez @.

Re: ASP email validacija 14.02.2011. u 16:31 · pre 191 mesec #6

Probaj onda u asp/vbscrpt-u(to ti je najverovatniji scenario) da dodas ovu(dole) funkciju, na vrhu imas test, pa se poigraj malo..

Code:
<%
Response.write isValidEmail("[email protected]") & "<BR>"
Response.write isValidEmail("peraetperacom")

Function isValidEmail(myEmail)
  dim isValidE
  dim regEx

  isValidE = True
  set regEx = New RegExp

  regEx.IgnoreCase = False

  regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"

  ili

  regEx.Pattern ="^(([^<>()[\]\\.,;:\s@\""]+(\.[^<>()[\]\\.,;:\s@\""]+)*)|(\"".+\""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$"; "

  isValidE = regEx.Test(myEmail)

  isValidEmail = isValidE
End Function%>

Re: ASP email validacija 14.02.2011. u 20:33 · pre 191 mesec #7

nisam jos uvek nista uradio, koliko se razumem u ovo ovaj deo koda

Code:
if ((LEN(Eposta)>5) OR (Vpr<>"")) then
if ((LEN(Eposta)>5) AND (Vpr<>"")) then

treba da ukine pokusaj slanja prazne poruke, ja dodam ovo

InStr(Eposta,"@")=0 THEN

a mozda nije lepo napisano, pa ne radi.

eposata je email adresa
vpr mi je text koji se unos u drugo polje ili poruka

Re: ASP email validacija 15.02.2011. u 13:26 · pre 191 mesec #8

Imal sta od predloga?
if ((LEN(Eposta)>5) jel mogu to da prepravim da gleda dal ima @ u polju ili ne?
probao sam java script i nece
onaj iznad predlozen kod nece da radi jel ga pusti vec napisan kod pa email i pored zabrane ode.

Re: ASP email validacija 15.02.2011. u 13:27 · pre 191 mesec #9

Re: ASP email validacija 15.02.2011. u 14:04 · pre 191 mesec #10

Nije me mrzelo, pa sam probao i rade oba patterna, evo ti komplet asp (otvori posebnu asp stranicu i kopiraj kod i otvori je u browseru)..
rezultat ce ti biti :
True
False

Code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<%
Response.write isValidEmail("[email protected]") & "<BR>"
Response.write isValidEmail("peraetperacom")

Function isValidEmail(myEmail)
  dim isValidE
  dim regEx

  isValidE = True
  set regEx = New RegExp

  regEx.IgnoreCase = False

'  regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"

  regEx.Pattern ="^(([^<>()[\]\\.,;:\s@\""]+(\.[^<>()[\]\\.,;:\s@\""]+)*)|(\"".+\""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$"

  isValidE = regEx.Test(myEmail)

  isValidEmail = isValidE
End Function%>
</body>
</html>

Ovu funkciju isValidEmail primeni kao uslov za slanje email-a..

Re: ASP email validacija 15.02.2011. u 14:25 · pre 191 mesec #11

Pa verovatno radi. Al ja to ne umem da ubacim da radi kod mene. Isto ko i da ne radi.

Kad ubacim iznad postojeceg koda samo se dopise true, false. Al i dalje ode email bez @

Re: ASP email validacija 15.02.2011. u 14:37 · pre 191 mesec #12

Code:

<html>
<head>
<title>d.o.o.</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<link href="../stil.css" rel="stylesheet" type="text/css">
</head>
<body >

<%
ON ERROR RESUME Next
Jezik=request.QueryString("lang")
Isci=request.Form("isci")
Eposata=request.Form("email")
Vpr=request.Form("pitanje")

' imebaze="../Db/baza.mdb"
imebaze="../db/baza.mdb"
set conntemp=server.createobject("adodb.connection")
' conntemp.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(imebaze)
conntemp.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(imebaze) & ";Persist Security Info=False"

%>
<p class="Naslov">Pitanja</p>
<table width="656" border="0">
  <tr>
    <td> </td>
    <td>
      <form name="Form1" method="post" action="faq.asp?lang=<%=Jezik%>" onsubmit="return ValidateForm1();" language="JavaScript">
        <table width="100%" border="0" cellpadding="0" cellspacing="0" background="../slike/back1.jpg">


<%

if ((LEN(Eposata)>5) OR  (Vpr<>"")) then
if ((LEN(Eposata)>5) AND  (Vpr<>"")) then

  buf = "Pitanje: " & Vpr

  set mail = server.CreateObject("CDONTS.NewMail")
  mail.From = "[email protected]"
  mail.To = "[email protected]"
  'mail.CC = "[email protected]"
  'mail.BCC = "[email protected]"
  mail.Subject = "FAQ"
  mail.Body = buf
  mail.Send

  Set mail=nothing
  %>
          <tr>
            <td colspan="2" valign="top" background="../slike/back1.jpg"><p><b>Slanje je uspelo.</b><br>
                <br>
                 </p>
            </td>
          </tr>
  <%
else
  %>
          <tr>
            <td colspan="2" valign="top" background="../slike/back1.jpg">
              <p><b>Pošiljanje NI uspelo!</b><br>Unesite sva posalja! <b>ne zaboravite uneti vas email</b><br> </p>
            </td>
          </tr>
  <%
  end if
end if
%>
          <tr>
            <td valign="top" background="../slike/back1.jpg"><b>Vaš e-naslov:</b><br>
                       

              <input name="email" type="text" id="email" value="<%=Eposata%>" size="30" maxlength="50" >
              <br>
              <br>
              <input type="submit" name="Submit" value="Posalji">
            </td>
            <td valign="top"><b>Vaše pitanje:</b><br>
              <textarea name="pitanje" cols="30" rows="4" id="pitanje"><%=Vpr%></textarea>
            </td>
          </tr>
        </table>
      </form>
    </td>
  </tr>

to je kompletno, i nemam pojma gde sta da ubacim

Re: ASP email validacija 15.02.2011. u 15:14 · pre 191 mesec #13

Pod uslovom da gore tvoj kod nema jos nekih gresaka, probaj (ovako napamet) :

Code:
<html>
<head>
<title>d.o.o.</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
<link href="../stil.css" rel="stylesheet" type="text/css">
</head>
<body >

<%
ON ERROR RESUME Next
Jezik=request.QueryString("lang")
Isci=request.Form("isci")
Eposata=request.Form("email")
Vpr=request.Form("pitanje")

' imebaze="../Db/baza.mdb"
imebaze="../db/baza.mdb"
set conntemp=server.createobject("adodb.connection")
' conntemp.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(imebaze)
conntemp.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(imebaze) & ";Persist Security Info=False"

%>
<p class="Naslov">Pitanja</p>
<table width="656" border="0">
  <tr>
    <td> </td>
    <td>
      <form name="Form1" method="post" action="faq.asp?lang=<%=Jezik%>" onsubmit="return ValidateForm1();" language="JavaScript">
        <table width="100%" border="0" cellpadding="0" cellspacing="0" background="../slike/back1.jpg">

<%
Function isValidEmail(myEmail)
  dim isValidE
  dim regEx

  isValidE = True
  set regEx = New RegExp

  regEx.IgnoreCase = False

'  regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"

  regEx.Pattern ="^(([^<>()[\]\\.,;:\s@\""]+(\.[^<>()[\]\\.,;:\s@\""]+)*)|(\"".+\""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$"

  isValidE = regEx.Test(myEmail)

  isValidEmail = isValidE
End Function %>

<%

if (isValidEmail(Eposata)) then

  buf = "Pitanje: " & Vpr

  set mail = server.CreateObject("CDONTS.NewMail")
  mail.From = "[email protected]"
  mail.To = "[email protected]"
  'mail.CC = "[email protected]"
  'mail.BCC = "[email protected]"
  mail.Subject = "FAQ"
  mail.Body = buf
  mail.Send

  Set mail=nothing
  %>
          <tr>
            <td colspan="2" valign="top" background="../slike/back1.jpg"><p><b>Slanje je uspelo.</b><br>
                <br>
                 </p>
            </td>
          </tr>
  <%
else
  %>
          <tr>
            <td colspan="2" valign="top" background="../slike/back1.jpg">
              <p><b>Pošiljanje NI uspelo!</b><br>Unesite sva posalja! <b>ne zaboravite uneti vas email</b><br> </p>
            </td>
          </tr>
  <%
  end if
end if
%>
          <tr>
            <td valign="top" background="../slike/back1.jpg"><b>Vaš e-naslov:</b><br>
                       

              <input name="email" type="text" id="email" value="<%=Eposata%>" size="30" maxlength="50" >
              <br>
              <br>
              <input type="submit" name="Submit" value="Posalji">
            </td>
            <td valign="top"><b>Vaše pitanje:</b><br>
              <textarea name="pitanje" cols="30" rows="4" id="pitanje"><%=Vpr%></textarea>
            </td>
          </tr>
        </table>
      </form>
    </td>
  </tr>

NOTE: i ovo ti nije kompletna strana vec deo iste, posto nemas zatvorene body i html tagove, jeli tako..

Re: ASP email validacija 15.02.2011. u 15:25 · pre 191 mesec #14

ima dole iscitavanje iz baze pitanja, nebitna su za slanje emaila, ostalo nema nikakve veze sa ovim gore.

sad c da probam ovo.

Re: ASP email validacija 15.02.2011. u 15:35 · pre 191 mesec #15

if ((LEN(Eposata)>5) OR (Vpr<>"")) then
if ((LEN(Eposata)>5) AND (Vpr<>"")) then
bez ta dva reda ne radi

e onda sam stavio ova 2
if (isValidEmail(Eposata)) then
if (isValidEmail(Eposata)) then

pa sad radi ali ne salje email. ne izbacuje gresku u bilo kom obliku. Pre je izbacivalo recimo da jedno od ta dva nije popunjeno ili tako nesto. Sad samo refresuje i to je to

Re: ASP email validacija 15.02.2011. u 15:44 · pre 191 mesec #16

..stavi jedan :
if (isValidEmail(Eposata)) then

skini dole jedan

end if

Re: ASP email validacija 15.02.2011. u 16:39 · pre 191 mesec #17

to je to, hvala

Re: ASP email validacija 15.02.2011. u 19:11 · pre 191 mesec #18

Da ne otvaram novi topic, ako se neko razume u ovo

Code:

Ista fora ko i gore samo ovde drugaciji kod, imal sta da uradim oko emaila da mora da sadrzi @ u svom nekom delu, ne mora da prati kompletnu formu [email protected] recimo , dovoljno samo da ima @ i da pusti email?

Ili mozda neka validacija za polje to gde se unosi email, tamo u fp sam naso za duzinu, resimo od 3 do 50 karaktera, ali ne i da mora da sadrzi neki znak.?

Re: ASP email validacija 17.02.2011. u 15:08 · pre 191 mesec #19

Code:
buf = "Vaše ime : " & ime & vbCrLf & "e-mail: " & Email
  set mail = server.CreateObject("CDONTS.NewMail")

  mail.From = "[email protected]"
   mail.To = "[email protected]"

  mail.Subject = "pitanja"
  mail.Body = buf
  mail.Send

Ovo sam probao ali ne radi

Code:

' UTF-8 parameters
   mail.CharSet = "UTF-8"
   mail.ContentTransferEncoding = "Quoted-Printable"

Nikako da mi posalje sa nasim slovima, uvek neke karakuke. Imam html koji je utf-8 u njega upisujem polja i popunjavam emai formu a asp fajl preuzimai salje emai. To je ukratko, sve je na utf-8 ali ne ide.
ovaj deo ne hvata utf-8

buf = "Vaše ime : " & ime & vbCrLf & "e-mail: " & Email

Forum kao aplikacija na telefonu

Srodne teme