begin process at 2012 05 27 19:11:31
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive ASP & ASP.NET

 > 

Archives ASP & ASP.NET

 > 

Scripting

 > 

Demande de vérification de code


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Demande de vérification de code

dimanche 26 décembre 2004 à 16:34:09 | Demande de vérification de code

norman bates

Membre Club
Salut tout le monde je viens juste de faire un script en ASP qui vérifie si les champs contiennent des données ou pas et une fois que tout les champs remplis valide le formulaire et apelle la page de remerciement
Je souhaite savoir si je me suis bien débrouillé car j'ai très peu de connaissances en ASP
Bon le code n'est pas fini il me manque pour le transfert sur le mail et la suite on verra

Je vous remercie d'avance de vos aides et si il y a des doutes demandez moi

Merci d'avance et joyeux noel

code
<% ' Date de création: 26/12/2004 %>
<html>
<body>
<%'declaration de variables
Firstname=Empty
Lastname=Empty
Position=Empty
Company=Empty
Adress=Empty
phonenumber=Empty
Businesstype=Empty
Turnover=Empty
Howwecanhelpyou=Empty

'condition de vérification de données
if Request.Form("Firstname") = "" Then
Response.Write("Le champ est vide !") else
'tout est ok
Response.redirect("thankyou.asp")


if Request.form("Lastname")="" then response.write("Le champ est vide !") else
'tout est ok
Response.redirect("thankyou.asp")


if Request.form("Position")="" then response.write("Le champ est vide !") else
'tout est ok
Response.redirect("thankyou.asp")


if Request.form("Company")="" then response.write("Le champ est vide !")else
'tout est ok
Response.redirect("thankyou.asp")


if Request.form("Adress")="" then response.write("Le champ est vide !") else
'tout est ok
Response.redirect("thankyou.asp")


if request.form("phonenumber")="" then response.write("Le champ est vide") else
'tout est ok
Response.redirect("thankyou.asp")


if request.form("Businesstype")="" then response.write("Le champ est vide")else
'tout est ok
Response.redirect("thankyou.asp")


if request.form("Turnover")="" then response.write("Le champ est vide !") else
'tout est ok
Response.redirect("thankyou.asp")


if request.form("Howwecanhelpyou")="" then response.write("Le champ est vide !") else
'tout est ok
Response.redirect("thankyou.asp")
endif
endif
endif
endif
endif
endif
endif
endif
endif




%>
</body>
</html>




c++ à la folie :) :p
dimanche 26 décembre 2004 à 17:58:28 | Re : Demande de vérification de code

jesusonline

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
ca me semble un peu lourd tout ca

tu peux aussi faire comme ca :
if Request.Form("Firstname") = "" and Request.Form("Lastname") = "" then blablabla

en vb.net on peut meme utiliser andalso, ce qui evite de les vérifier tous, des qu'il y en a un, le test s'arrete ....

mais c'est toujours pas une solution splendide :(

une autre serait de faire une fonction

dim champs() as string = {"FirstName", "LastName", ...}
for each champ as string in champs
isValid(champ)
next

private function isValid(champ as string) as boolean
return request.form(champ) <> ""
response.write("le champ " & champ & " est vide")
end function

Je pense malheureusement pas que cette derniere solution fonctionne avec asp3 mais elle fonctionnera avec asp.net.
Donc si tu débutes, pourquoi ne pas commencer par asp.net, asp est desormais dépassé, et avec asp.net il existe une autre facon de faire pour cela, qui necessite aucune ligne dans le code, grace aux controles requiredFieldValidatorExpression

pour débuter avec asp.net va sur asp-php.net il y a des tutos la bas, sinon un bouquin excellent de R.Clark : introduction a asp.net des editions Ms Press je le conseille a tout les debutants, pas cher, et vraiment tres bien fait.

et puis au vue de ta signature, si tu connais déja C++ tu pourras rapidement faire de l'asp.net avec C#




Cyril
dimanche 26 décembre 2004 à 18:35:53 | Re : Demande de vérification de code

norman bates

Membre Club
ben en fait je fais ca pour mon site c'est à titre exceptionel que je fais de l'asp c'est pour ca c'est pour un formulaire qui est déja prêt en html
c++ à la folie :) :p
lundi 27 décembre 2004 à 11:29:56 | Re : Demande de vérification de code

norman bates

Membre Club
voila le code finale avec la vérif si les champs sont remplis vérif si le mail est valable ainsi que le transfer via serveur du formulaire
ne pas tenir compte des balises html

<% ' Date de création: 26/12/2004 %>
<html>
<body>
<%'declaration de variables
Firstname=Empty
Lastname=Empty
Position=Empty
Company=Empty
Adress=Empty
phonenumber=Empty
Businesstype=Empty
Turnover=Empty
Howwecanhelpyou=Empty

'condition de vérification de données
if Request.Form("Firstname") = "" or
Request.form("Lastname")="" or Request.form("Position")="" or
Request.form("Company")="" or
Request.form("Adress")="" or
request.form("phonenumber")="" or
request.form("Businesstype")="" or
request.form("Turnover")="" or
request.form("Howwecanhelpyou")="" Then
Response.Write("Le champ est vide !") else
'tout est ok
Response.redirect("thankyou.asp")

'vérification validité email

unction ValidEmail(sEMail)

Dim sInvalidChars
Dim bTemp
Dim i
Dim sTemp

' Caratères interdits
sInvalidChars = Chr(33) & Chr(34) & Chr(35) & Chr(36) & Chr(37) & Chr(38) & Chr(39) & Chr(40) & Chr(41) & Chr(42) & Chr(43) & Chr(44) & Chr(47) & Chr(58) & Chr(59) & Chr(60) & Chr(61) & Chr(62) & Chr(63) & Chr(91) & Chr(92) & Chr(93) & Chr(94) & Chr(96) & Chr(123) & Chr(124) & Chr(125) & Chr(126) & Chr(127)
sInvalidChars = sInvalidChars & Chr(128) & Chr(129) & Chr(130) & Chr(131) & Chr(132) & Chr(133) & Chr(134) & Chr(135) & Chr(136) & Chr(137) & Chr(138) & Chr(139) & Chr(140) & Chr(141) & Chr(142) & Chr(143) & Chr(144) & Chr(145) & Chr(146) & Chr(147) & Chr(148) & Chr(149) & Chr(150) & Chr(151) & Chr(152) & Chr(153) & Chr(154) & Chr(155)
sInvalidChars = sInvalidChars & Chr(156) & Chr(157) & Chr(158) & Chr(159) & Chr(160) & Chr(161) & Chr(162) & Chr(163) & Chr(164) & Chr(165) & Chr(166) & Chr(167) & Chr(168) & Chr(169) & Chr(170) & Chr(171) & Chr(172) & Chr(173) & Chr(174) & Chr(175) & Chr(176) & Chr(177) & Chr(178) & Chr(179) & Chr(180) & Chr(181) & Chr(182) & Chr(183)
sInvalidChars = sInvalidChars & Chr(184) & Chr(185) & Chr(186) & Chr(187) & Chr(188) & Chr(189) & Chr(190) & Chr(191) & Chr(192) & Chr(193) & Chr(194) & Chr(195) & Chr(196) & Chr(197) & Chr(198) & Chr(199) & Chr(200) & Chr(201) & Chr(202) & Chr(203) & Chr(204) & Chr(205) & Chr(206) & Chr(207) & Chr(208) & Chr(209) & Chr(210) & Chr(211)
sInvalidChars = sInvalidChars & Chr(212) & Chr(213) & Chr(214) & Chr(215) & Chr(216) & Chr(217) & Chr(218) & Chr(219) & Chr(220) & Chr(221) & Chr(222) & Chr(223) & Chr(224) & Chr(225) & Chr(226) & Chr(227) & Chr(228) & Chr(229) & Chr(230) & Chr(231) & Chr(232) & Chr(233) & Chr(234) & Chr(235) & Chr(236) & Chr(237) & Chr(238) & Chr(239)
sInvalidChars = sInvalidChars & Chr(240) & Chr(241) & Chr(242) & Chr(243) & Chr(244) & Chr(245) & Chr(246) & Chr(247) & Chr(248) & Chr(249) & Chr(250) & Chr(251) & Chr(252) & Chr(253) & Chr(254) & Chr(255)

'Rechercher qu'il y a au moins un '@'
bTemp = InStr(sEMail, "@") <= 0

'Rechercher qu'il y a au moins un '.'
bTemp = bTemp Or InStr(sEMail, ".") <= 0

'Vérifions que la taille est plus grande que 6 caractères (a@a.ca)
bTemp = bTemp Or Len(sEMail) < 6

'Vérifier qu'il y a qu'n seul '@'
i = InStr(sEMail, "@")

sTemp = Mid(sEMail, i + 1)

bTemp = bTemp Or InStr(sTemp, "@") > 0

'Vérifier qu'il y un '.' après le '@'
bTemp = bTemp Or InStr(sTemp, ".") = 0

'Vérifier la présence de (")
bTemp = bTemp Or InStr(sEMail, Chr(34)) > 0

'Vérifier la présence de (.@)
bTemp = bTemp Or InStr(sEMail, ".@") > 0

'Vérifier la présence de (@.)
bTemp = bTemp Or InStr(sEMail, "@.") > 0

'Vérifier la présence de (..)
bTemp = bTemp Or InStr(sEMail, "..") > 0

'Vérifié s'il y a des caractères interdits
For i = 1 To Len(sEMail)
If InStr(sInvalidChars, Mid(sEMail, i, 1)) > 0 Then
bTemp = True
End If
Next

' S'il y a une seule des conditions ci-dessus qui repond true alors l'e-mail est invalide
ValidEmail = Not bTemp

End Function


If ValidEmail("Votre email")= True Then

Response.Write "Le mail est valide"

Else

Response.Write "Le mail est invalide"

End If


endif

'envoie email
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("_email")
objCDOMail.To="contact@cortexinformaticltd.biz"
objCDOMail.Subject=Request.Form("FORMULAIRE DE CONTACT")
objCDOMail.Body=Request.Form("_body")
objCDOMail.Send
Set objCDOMail=Nothing






%>
</body>
</html>

merci d'avance ;)
c++ à la folie :) :p
mardi 28 décembre 2004 à 22:17:17 | Re : Demande de vérification de code

norman bates

Membre Club
sujet clos j'ai résolu le problème et tout marche maintenant :)
c++ à la folie :) :p


Cette discussion est classée dans : asp, code, champs, demande, vérification


Répondre à ce message

Sujets en rapport avec ce message

Génération de code dynamique [ par martok ] Bonjour tout le monde. Je débute en ASP et j'ai un blem sur un projet qu'on m'a confié : On me demande de faire une sorte de MySqlAdmin en ASP.NET. J CheckBox en C# ASP.net [ par Abdi075 ] voila j'utimlise un checkbox dans mon appli et voic le code en html : et en code behind j'écris  la méthode  changeClik <br Insérer du code asp dans une base de donné [ par krustyshow ] Bonjour tout le monde...Et bien voila.Je suis sur un petit concept de site et j'aimerais savoir s'il y a un moyen que qd on rentre du code asp dans un Urgent !! : Probleme de format de Date en ASP.net [ par jolazoule ] Bonjour,je développe mon premier site en ASP.NET et je galère avec les format de date. Je vous expliqueJ'ai sur un formulaire un champs pour que l'uti redirection [ par amylee1984 ] salut , je develope sous asp.net, j'ai un petit souci avec mon datagrid, ce dernier est rempli avec des données et j'ai ajouter une colonne de type bo demande [ par leila1234 ] netcom multimediaBONJOUR TOUS LE MONDE.svp je veux un code en asp pour faire une recherche par image.et un code pour que mon site web prend la resolut Existance de KeyPress en ASP??? Pour 1 vérification Numérique [ par killysui ] Bonjour!!!Je voudrai savoir s'il est possible d'utiliser l'événement KeyPress en ASP.Car je voudrai voudrai vérifier si la saisie dans un TexBox est u Souci de boite de dialogue. [ par KC62 ] Bonjour à tous. Dans le cadre de mon projet, je dois réaliser l'administration d'une newsletter via ASP.net et en C#. Pas de soucis jusque la. seuleme connexion asp access [ par hypnos2 ] A l'aide!!!!Tout marchait très bien, je travaillais sur du code ASP en parrallèle à une base de donnée Access quand soudain:ADODB.Connection error '80 Template Field en code behind [ par zigxag ] Bonjour !Je voudrais écrire ceci (ASP.net 2) en code behind C# 2, mais je trouve pas comment faire. Comment ajouter un templatefield à un gridview en


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,655 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales