J'ai utilisé un code JavaScript de vérification de formulaire généré par ASP sur Internet et je l'ai étendu moi-même. J'ai oublié le nom de l'auteur, mais je me souviens clairement que les codes de l'article 1 à l'article 9 sont tous des œuvres originales de l'auteur. Quant aux articles de neuf à quinze, je l'ai ajouté moi-même. De plus, en raison de mon niveau limité, de l'article 9 à l'article 15, peut ne pas les prendre en vigueur? Haha, il n'est en fait pas nécessaire de le publier ici, car tout le monde peut utiliser cette petite astuce. J'ai positionné sa fonction comme: lorsque vous ne trouvez pas la fonction pendant le développement, vous pouvez simplement le copier ici. Haha, parce que je n'ai pas de brûleur ou de disque dur mobile. Il n'y a vraiment aucun moyen de transporter ces codes avec vous, mais heureusement, vous pouvez accéder à Internet partout à Pékin. Alors, mettez-le ici, utilisez Ctrl + C, puis Ctrl + V.
<% '**************************************************************************
'Nom de la fonction: CheckForm_JS (FRMNAME, ERRSTR)
'Fonction: utilisez la méthode ASP pour écrire dynamiquement la fonction de vérification du formulaire javascript Checksubmit ()
«Méthode d'utilisation: 1. <! - includeFile = URL + page où cette fonction se trouve>;
'2. <formosubmit = "javascript: returnCheckSubmit ()">;
«L'auteur original a été oublié, le deuxième auteur de développement: Guo.qm
'Dernière mise à jour: 2004
'**************************************************************************
'aide:
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'· Description des particules:
'Frmname: le nom du champ de formulaire
'errstr: vérifiez la liste, telle que: "num | 3 | Le modèle ne doit pas être inférieur à 8 chiffres | 8, e-mail | 5 | Veuillez saisir le format de messagerie correct", ici
'num représente le nom de champ de formulaire, 3 représente le paramètre de vérification, 8 représente le nombre de chiffres non moins que (facultatif)
'
'· Liste des paramètres de vérification:
'0: type de texte requis
'1: Type de liste requis
'2: doit être un type de numéro de texte
'3: doit être le type de texte du nombre spécifié de chiffres
'4: Le type de texte doit être supérieur au nombre de chiffres spécifiés
'5: doit être le type de texte de messagerie
'6: doit être az ou des caractères de 0-9
'7: confirmer que le mot de passe et le mot de passe doivent être égaux au type de texte
'8: Confirmez que ce n'est pas un type de texte qui commence par un nombre
'9: doit contenir le type de texte au format 10-88888
'10: Types de texte qui ne peuvent pas contenir chinois, espaces et autres caractères illégaux, c'est-à-dire qu'ils ne peuvent contenir que "_" "-" "-" "0-9" "az" az "
'11: doit inclure uniquement le numéro et "-"
'12: doit être le type de texte de l'URL correct
'13: doit être inférieur au nombre de texte spécifié
'14: Types de texte qui ne doivent pas contenir de balises HTML
'15: Confirmer que le type de sélection n'est pas désactivé doit sélectionner le format: élément de formulaire vérifié | 15 | Informations invites | Élément d'association "
«Remarque: s'il y a un menu en cascade, veuillez mettre le processus de vérification du menu en cascade à la dernière inspection! ! ! !
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
<%
SubCheckForm_JS (FrmName, ERRSTR)
Dimtmparr
Dimi
String de sortie de Dimstrshow de JS
'Obtenez la liste des erreurs, créez un tableau
tmparr = split (errstr, ",")
'Écrire js
fori = 0Toubound (tmparr)
ifi <> 0Then
StrShow = StrShow & "else" & Findjs (frmname, tmparr (i))
autre
StrShow = StrShow & Findjs (frmname, tmparr (i))
endire
suivant
'Sortir
strShow = "<scriptLanguage = javascript>" & vbcrlf & _
"<! -" & vbcrlf & _
"// powerByGuoquanman2004" & vbcrlf & _
"FunctionCheckSubmit ()" & vbcrlf & _
"{" & vbcrlf & _
"VareMailreg = / ^ [_ A-Z0-9] + @ ([_ A-Z0-9] + /.) + [A-Z0-9] {2,3} $ /;" & vbcrlf & _
"varpwdreg = / [a-z0-9] $ /;" & vbcrlf & _
"VarUidBeginreg = / ^ [0-9] + [_ A-Z0-9] /;" & vbcrlf & _
"varphoneReg = // d {2} - / d {5} /;" & vbcrlf & _
"VarphoneDetailreg = / [^ 0-9 / -] /;" & vbcrlf & _
"VarUideg = / [^ a-za-z0-9 _ / -] /;" & vbcrlf & _
"varhtmlreg = / <(. *)>. * </// 1> /;" & vbcrlf & _
"varre1 = / ^ http: ///// [a-za-z] [a-za-z0-9 / -] * [a-za-z] * /. /;" & vbcrlf & _
"varre2 = / ^ http: ///// [0-9] {1,5} [a-za-z] * [0-9] * /. /;" & vbcrlf & _
"varre3 = //. {2,} /;" & vbcrlf & _
"varre4 = //: {2,} /;" & vbcrlf & _
"varre5 = /// {3,} /;" & vbcrlf & _
"varre6 = //, + /;" & vbcrlf & _
"varre7 = //! + /;" & vbcrlf & _
"varre8 = // @ + /;" & vbcrlf & _
"varre9 = // # + /;" & vbcrlf & _
"varre10 = // $ + /;" & vbcrlf & _
"varre11 = // ^ + /;" & vbcrlf & _
"varre12 = // * + /;" & vbcrlf & _
"varre13 = // | + /;" & vbcrlf & _
"varre14 = //. [a-z0-9 _ & =? //] * [a-za-z0-9 /// ~] {2,} $ /;" & vbcrlf & _
StrShow & _
"else" & vbcrlf & _
"returntrue;" & vbcrlf & _
"}" & vbcrlf & _
"// ->" & vbcrlf & _
"</cript>"
Réponse.WriteSTrshow
Fin
FunctionFindjs (FrmName, ERRSTR)
Dimtmparr
Dimi
'Valeur des paramètres
i = 0
'Obtenez la liste des erreurs, créez un tableau
tmparr = split (errstr, "|")
'Conditions de requête de sortie
SelectCasetmparr (i + 1)
Type de texte requis pour le cas "0" '
findjs = "if ((document." & frmname & "." & tmparr (i) & ". valeur) ==" "" ")" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Type de liste requis pour le cas "1"
findjs = "if ((document." & frmname & "." & tmparr (i) & ". valeur) ==" "" ")" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Cas "2" 'doit être le type de texte du numéro
findjs = "if (isnan (document." & frmname & "." & tmparr (i) & ". valeur))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Le cas "3" 'doit être le type de texte du nombre spécifié de chiffres
findjs = "if (document." & frmname & "." & tmparr (i) & ". value.length! =" & tmparr (i + 3) & ")" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Le cas "4" 'doit être supérieur au type de texte du nombre spécifié de chiffres
findjs = "if (document." & frmname & "." & tmparr (i) & ". value.length <" & tmparr (i + 3) & ")" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Case "5" 'doit être le type de texte d'e-mail
findjs = "if ((! emailg.test (document." & frmname & "." & tmparr (i) & ". valeur)) && (document." & frmname & "." & tmparr (i) & ". valeur! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Cas "6" 'doit être d'AZ ou un type de texte de caractères de 0-9
findjs = "if ((! pwdreg.test (document." & frmname & "." & tmparr (i) & ". valeur)) && (document." & frmname & "." & tmparr (i) & ". valeur! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Le cas "7" 'confirme que le mot de passe et le mot de passe doivent être égaux au type de texte
findjs = "if ((document." & frmname & "." & tmparr (i) & ". valeur)! = (document." & frmname & "." & tmparr (i + 3) & ". valeur))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Case "8" 'confirme le type de texte en commençant par un numéro
findjs = "if ((uidbeginreg.test (document." & frmname & "." & tmparr (i) & ". valeur)) && (document." & frmname & "." & tmparr (i) & ". valeur! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Case "9" 'confirme le numéro de téléphone au format 10-101212
findjs = "if ((! phoneReg.test (document." & frmname & "." & tmparr (i) & ". valeur)) && (document." & frmname & "." & tmparr (i) & ". valeur! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Case "10" 'confirme que seul le texte comprenant des lettres anglaises et "-", "_". (C'est-à-dire qu'il n'inclut pas le chinois et d'autres caractères spéciaux)
findjs = "if ((uidreg.test (document." & frmname & "." & tmparr (i) & ". valeur)) && (document." & frmname & "." & tmparr (i) & ". valeur! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Case "11" 'confirme que ne contient que des nombres et "-" (couramment utilisé dans les numéros de téléphone et les fax)
findjs = "if ((phoneDetailreg.Test (document." & frmname & "." & tmparr (i) & ". valeur)) && (document." & frmname & "." & tmparr (i) & ". valeur! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Case "12" 'confirme s'il s'agit d'une URL valide!
findjs = "if (((! re1.test (document." & frmname & "." & tmparr (i) & ". valeur)) && (! re2.test (document." & frmname & "." & tmparr (i) & ". value))" & _
"&& (document." & frmname & "." & tmparr (i) & ". valeur! = '')) ||" & _
"(re3.test (document." & frmname & "." & tmparr (i) & ". valeur)) || (re4.test (document." & frmname & "." & tmparr (i) & ". valeur)) ||" & _
"(re5.test (document." & frmname & "." & tmparr (i) & ". valeur)) || (re6.test (document." & frmname & "." & tmparr (i) & ". valeur)) ||" & _
"(re7.test (document." & frmname & "." & tmparr (i) & ". valeur)) || (re8.test (document." & frmname & "." & tmparr (i) & ". valeur)) ||" & _
"(re9.test (document." & frmname & "." & tmparr (i) & ". valeur)) || (re10.test (document." & frmname & "." & tmparr (i) & ". valeur)) ||" & _
"(re11.test (document." & frmname & "." & tmparr (i) & ". valeur)) || (re12.test (document." & frmname & "." & tmparr (i) & ". valeur)) ||" & _
"(re13.test (document." & frmname & "." & tmparr (i) & ". valeur)) || (! re14.test (document." & frmname & "." & tmparr (i) & ". valeur))" & _
"&& (document." & frmname & "." & tmparr (i) & ". valeur! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Le cas "13" 'confirme que le type de texte n'est pas supérieur au nombre fixe de chiffres
findjs = "if (document." & frmname & "." & tmparr (i) & ". value.length>" & tmparr (i + 3) & ")" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Case "14" 'confirme le type de texte contenant une balise HTML
findjs = "if (htmlreg.test (document." & frmname & "." & tmparr (i) & ". valeur))" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Sortie
Cas "15"
'====================================================================================.
«Confirmez que le type de sélection n'est pas désactivé doit sélectionner le format: État | 15 | Veuillez sélectionner le nom du province! | Selcountry | Ville | Veuillez sélectionner les informations de la ville
«Remarque: lorsque SelectedIndex! = 0, L'article 2 et l'article 3 sont désactivés! Pas besoin de vérifier les deux autres éléments
'Lorsque le premier élément selectedIndex == 0 du menu en cascade, le SEELECTHIDEX du deuxième élément ne peut pas être 0, et lorsque le deuxième élément selectedIndex! = 0 du deuxième élément, le SELECT-INDEX du troisième élément ne peut pas être 0 non plus.
«Cet article est utilisé pour vérifier les trois menus en cascade du pays / province / ville. Lorsque le pays n'est pas la Chine, la province et la ville peuvent ne pas être remplies. Quand c'est la Chine, la province et la ville relative doivent être remplies!
findjs = "if (document." & frmname & "." & tmparr (i + 3) & ". selectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i) & ". selectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"Elseif (document." & frmname & "." & tmparr (i) & ". selectedIndex! = 0)" & vbcrlf & _
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i + 4) & ". selectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 5) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i + 4) & ". focus;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
Sortie
Le cas "16" 'confirme que le type de sélection n'est pas désactivé doit sélectionner le format: élément de formulaire vérifié | 16 | Informations d'invite | Élément d'association "Remarque: Lorsque l'élément associé est le premier élément, la confirmation commence!
findjs = "if (document." & frmname & "." & tmparr (i + 3) & ". selectedIndex! = 0)" & vbcrlf & _
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i) & ". selectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"Window.Alert ('" & tmparr (i + 2) & "');" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". focus;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
Sortie
Se licez
Finition de fin
%>
