Ich habe einen dynamisch generierten JavaScript -Code von ASP im Internet verwendet und ihn selbst erweitert. Ich habe den Namen des Autors vergessen, aber ich erinnere mich klar, dass die Codes von Artikel 1 bis Artikel 9 Originalwerke des Autors sind. In Bezug auf die Artikel neun bis fünfzehn habe ich es selbst hinzugefügt. Darüber hinaus kann aufgrund meines begrenzten Niveaus von Artikel 9 bis Artikel 15 nicht alle wirksam werden? Haha, es ist eigentlich nicht nötig, es hier zu veröffentlichen, denn jeder kann diesen kleinen Trick verwenden. Ich habe seine Funktion als: Wenn Sie die Funktion während der Entwicklung nicht finden können, können Sie sie hier einfach kopieren. Haha, weil ich keinen Brenner oder keine mobile Festplatte habe. Es gibt wirklich keine Möglichkeit, diese Codes bei sich zu tragen, aber zum Glück können Sie überall in Peking auf das Internet zugreifen. Setzen Sie dies also hier, verwenden Sie Strg+C und dann Strg+V.
<% '******************************************
'Funktionsname: checkform_js (Frmname, Errstr)
'Funktion: Verwenden Sie die ASP -Methode, um JavaScript -Formularüberprüfungsfunktionsüberprüfungen dynamisch zu schreiben ()
'Verwendungsmethode: 1. <!-includeFile = url+Seite, wobei sich diese Funktion befindet>;
'2. <formoSubmit = "JavaScript: returnChecksubmit ()">;
'Der ursprüngliche Autor wurde vergessen, der zweite Entwicklungsautor: Guo.qm
'Letztes Update: 2004
'******************************************
'helfen:
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'· Partikelbeschreibung:
'Frmname: Der Name des Formularfelds
'Errstr: Überprüfen Sie die Liste, wie z.
'Num repräsentiert den Formfeldnamen des Formulars, 3 repräsentiert den Parameter der Überprüfung, 8 repräsentiert die Anzahl der Ziffern nicht weniger als (optional)
''
'· Verifizierungsparameterliste:
'0: Erforderlicher Texttyp
'1: Erforderlicher Listmenu -Typ
'2: Muss ein Texttyp von Nummer sein
'3: Muss der Texttyp der angegebenen Anzahl von Ziffern sein
'4: Der Texttyp muss größer sein als die angegebene Anzahl von Ziffern
'5: Muss der Texttyp der E -Mail sein
'6: Muss AZ oder Zeichen von 0-9 sein
'7: Bestätigen Sie das Passwort und das Passwort müssen gleich dem Texttyp sein
'8: Bestätigen Sie, dass es sich nicht um einen Texttyp handelt, der mit einer Nummer beginnt
'9: Muss Texttyp im Format 10-888888 enthalten
'10: Texttypen, die keine Chinesisch, Räume und andere illegale Zeichen enthalten, dh sie können nur "_"-""-"0-9" "AZ" AZ "enthalten.
'11: Muss nur die Nummer einschließen und "-"
'12: Muss der Texttyp der richtigen URL sein
'13: muss geringer sein als die angegebene Anzahl von Ziffern Texttyp
'14: Texttypen, die keine HTML -Tags enthalten dürfen
'15: Bestätigen Sie, dass der Select -Typ nicht deaktiviert ist
HINWEIS: Wenn es ein Cascading -Menü gibt, setzen Sie bitte den Überprüfungsprozess des Cascading -Menüs auf die letzte Inspektion! ! ! !
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
<%
SubCheckForm_js (frmname, erstr)
Dimtmparr
Dimi
Dimstrshow 'Ausgabezeichenfolge von Js
'Holen Sie sich die Fehlerliste, erstellen Sie ein Array
tmparr = split (Errstr, ",")
'Schreibe js
fei = 0toubund (tmparr)
ifi <> 0Then
strshow = strshow & "else" & findjs (frmname, tmparr (i))
anders
strshow = strshow & findjs (frmname, tmparr (i))
Endif
nächste
'Ausgabe
STRSHOW = "<scriptuanguage = 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 & _
"varuidreg =/[^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 = //.
strshow & _
"sonst" & vbcrlf & _
"returnTrue;" & vbcrlf & _
"}" & vbcrlf & _
"//->" & vbcrlf & _
"</script>"
Response.writessstrshow
Ende
Funktionsfindjs (Frmname, Errstr)
Dimtmparr
Dimi
'Parameterwert
I = 0
'Holen Sie sich die Fehlerliste, erstellen Sie ein Array
tmparr = split (erstr, "|")
'Ausgangsabfragebedingungen
SelectCasetmparr (i+1)
Erforderlicher Texttyp für Fall "0" '
findjs = "if ((document." & frmname & "."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Erforderlicher Listmenu -Typ für Fall "1"
findjs = "if ((document." & frmname & "."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "2" 'muss der Texttyp der Nummer sein
findjs = "if (isnan (dokument." & frmname & "." & tmparr (i) & ". Wert)" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "3" 'muss der Texttyp der angegebenen Anzahl von Ziffern sein
findjs = "if (document." & frmname & "." & tmparr (i) & "value.length!
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "4" 'muss größer sein als der Texttyp der angegebenen Anzahl von Ziffern
findjs = "if (dokument."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "5" 'muss der Texttyp der E -Mail sein
findjs = "if ((! E -Mailreg.test (Dokument." & frmname & "."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "6" 'muss von AZ oder einem Texttyp von 0-9 sein
findjs = "if ((! pwdreg.test (document." & frmname & "."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "7" 'bestätigt, dass das Passwort und das Passwort dem Texttyp gleich sein müssen
findjs = "if ((document." & frmname & "." & tmparr (i) & "value)!
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "8" 'bestätigt den Texttyp, der mit einer Nummer beginnt
findjs = "if ((uidBeginReg.test (document." & frmname & "."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Case "9" 'bestätigt die Telefonnummer im Format 10-101212
findjs = "if ((! phonereg.test (document." & frmname & "." & tmparr (i) & "value)) && (Dokument."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "10" bestätigt, dass nur Text einschließlich englischer Buchstaben und "-", "_". (Das heißt, es enthält keine chinesischen und anderen Sonderzeichen)
findjs = "if ((uidreg.test (document." & frmname & "." & tmparr (i) & "value)) && (Dokument."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "11" bestätigt, dass nur Zahlen und "-" (häufig in Telefonnummern und Faxen verwendet werden)
findjs = "if ((phonedetailreg.test (document." & frmname & "." & tmparr (i) & "value)) && (Dokument." & frmname & "."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "12" 'bestätigt, ob es sich um eine gültige URL handelt!
findjs = "if (((! re1.test (document." & frmname & "."
"&& (Dokument." & frmname & "." & tmparr (i) & ". Wert! = '') ||" & _
"(re3.test (dokument."
"(re5.test (dokument." & frmname & "." & tmparr (i) & ". Wert)) || (re6.test (document." & frmname & "." & tmparr (i) & ". Wert) ||" & _
"(re7.test (dokument."
"(re9.test (dokument." & frmname & "." & tmparr (i) & "value)) || (re10.test (document." & frmname & "." & tmparr (i) & "value) ||" & _
"(re11.test (dokument."
"(re13.test (Dokument."
"&& (Dokument." & frmname & "." & tmparr (i) & ". Wert! = '')" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "13" bestätigt, dass der Texttyp nicht größer ist als die feste Anzahl der Ziffern
findjs = "if (dokument."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "14" 'bestätigt den Texttyp, der HTML -Tag enthält
findjs = "if (htmlreg.test (Dokument." & frmname & "."
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & ". Focus ();"
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "15"
"=========================================================================================================================================================
'Bestätigen Sie, dass der Select -Typ nicht deaktiviert ist, muss das Format auswählen: Zustand | 15 | Bitte wählen Sie den Namen der Provinz! | Selcountry | Stadt | Bitte wählen Sie Stadtinformationen
'Hinweis: Bei SelectedIndex! = 0, Artikel 2 und Artikel 3 sind deaktiviert! Sie müssen die beiden anderen Elemente nicht überprüfen
'Wenn das erste Element ausgewählt wurde, kann der Kaskadierungsmenü nicht 0 sein, und wenn das zweite Element ausgewählt wurde, kann das zweite Element ausgewählt!
'Dieser Artikel wird verwendet, um die drei Kaskadenmenüs des Landes/der Provinz/der Stadt zu überprüfen. Wenn das Land nicht China ist, kann die Provinz und die Stadt nicht besetzt sein. Wenn es China ist, müssen die Provinz und die relative Stadt ausgefüllt werden!
findjs = "if (document." & frmname & "." & tmparr (i+3) & ".
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i) & ". SelectedIndex == 0)" & VBCRLF & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & "Focus;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"Elseif (Dokument." & frmname & "." & tmparr (i) & ". SelectedIndex! = 0)" & vbcrlf & _
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i+4) & ". SelectedIndex == 0)" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+5) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i+4) & "Focus;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Fall "16" 'bestätigt, dass der Auswahltyp nicht deaktiviert ist, muss das Format auswählen: Überprüftes Formularelement | 16 | Eingabeaufforderung Informationen | Assoziationselement "Hinweis: Wenn das zugeordnete Element das erste Element ist, beginnt die Bestätigung!
findjs = "if (document." & frmname & "." & tmparr (i+3) & "SelectedIndex!
"{" & vbcrlf & _
"if (document." & frmname & "." & tmparr (i) & ". SelectedIndex == 0)" & VBCRLF & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Dokument." & frmname & "." & tmparr (i) & "Focus;" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf & _
"}" & vbcrlf
Ausgangsfunktion
Endauswahl
Endfunktion
%>
