Я использовал ASP -динамически сгенерированную код JavaScript кода в Интернете и сам расширил его. Я забыл имя автора, но я ясно помню, что коды из статьи 1 до статьи 9 - все оригинальные работы автора. Что касается статей с девятью до пятнадцати, я добавил это сам. Более того, из -за моего ограниченного уровня, от статьи 9 до статьи 15, не может вступить в силу всех? Ха -ха, на самом деле нет необходимости публиковать его здесь, потому что каждый может использовать этот маленький трюк. Я позиционировал его функцию: когда вы не можете найти функцию во время разработки, вы можете просто скопировать ее здесь. Ха -ха, потому что у меня нет горелки или мобильного жесткого диска. На самом деле нет способа перенести эти коды с собой, но, к счастью, вы можете получить доступ к Интернету повсюду в Пекине. Так что поместите это здесь, используйте Ctrl+C, а затем Ctrl+V.
<% '***************************************************
'Имя функции: ceckform_js (frmname, errstr)
'Function: используйте метод ASP для динамической записи JavaScript Form Function Function CheckSubmit ()
«Метод использования: 1. <!-includefile = url+страница, где эта функция находится>;
2. <formosubmit = "javascript: returnchecksubmit ()">;
'Первоначальный автор был забыт, второй автор разработки: guo.qm
«Последнее обновление: 2004
'***************************************************
'помощь:
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'· Описание частиц:
'frmname: имя поля формы
'errstr: проверить список, например: "num | 3 | Модель не должна быть менее 8 цифр | 8, электронная почта | 5 | Пожалуйста, введите правильный формат электронной почты", здесь
'NUM представляет имя поля формы, 3 представляет параметр проверки, 8 представляет количество цифр не меньше, чем (необязательно)
'
'· Список параметров проверки:
'0: Требуемый тип текста
'1: Требуемый тип списков
2: должен быть тип текста номера
'3: должен быть тип текста указанного количества цифр
4: Тип текста должен быть больше, чем указанное количество цифр
'5: Должен быть тип текста электронной почты
6: Должно быть AZ или символы 0-9
'7: подтвердите, что пароль и пароль должны быть равны типу текста
8: Убедитесь, что это не тип текста, который начинается с номера
9: должен содержать тип текста в формате 10-888888
'10: Типы текстов, которые не могут содержать китайские, пространства и другие нелегальные символы, то есть они могут содержать только "" ""-"-" "0-9" "AZ" AZ "
'11: должен включать только число и "-"
'12: должен быть правильный тип текста URL
'13: должно быть меньше указанного количества типа текста цифр
'14: Типы текстов, которые не должны содержать теги HTML
'15: Убедитесь, что тип выбора не отключен
«Примечание: если есть каскадное меню, пожалуйста, поместите процесс проверки каскадного меню в последнюю проверку! ! ! !
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
<%
Subcheckform_js (frmname, errstr)
Dimtmparr
Дими
Dimstrshow 'Выходная строка JS
'Получите список ошибок, создайте массив
tmparr = split (errstr, ",")
'Написание JS
fori = 0toubound (tmparr)
ifi <> 0then
strshow = strshow & "else" & findjs (frmname, tmparr (i))
еще
strshow = strshow & findjs (frmname, tmparr (i))
эндиф
следующий
'Выход
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 & _
"VarphoneTetailerg =/[^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 & _
"else" & vbcrlf & _
"returntrue;" & vbcrlf & _
"}" & vbcrlf & _
"//->" & vbcrlf & _
"</script>"
Response.writesstrshow
Заканчивая
Functionfindjs (frmname, errstr)
Dimtmparr
Дими
'Значение параметра
i = 0
'Получите список ошибок, создайте массив
tmparr = split (errstr, "|")
'Условия запроса вывода
SELECTCASETMPARR (I+1)
Требуемый тип текста для случая "0"
sindjs = "if ((document." & frmname & "." & tmparr (i) & ". value) ==" "") "& vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Требуемый тип списка меню для корпуса "1"
sindjs = "if ((document." & frmname & "." & tmparr (i) & ". value) ==" "") "& vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Корпус "2" должен быть типом текста номера
findjs = "if (isnan (document." & frmname & "." & tmparr (i) & ". value))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Случай "3" должен быть типом текста указанного количества цифр
sindjs = "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
Выходная функция
Случай "4" должен быть больше, чем тип текста указанного количества цифр
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
Выходная функция
Случай "5" должен быть типом текста электронной почты
findjs = "if (! emailgreg.test (document." & frmname & "." & tmparr (i) & ". Value)) && (document." & frmname & "." & tmparr (i) & ". Value! = ''))" & vbcrlf & _ _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Случай "6" должен быть из AZ или текстового типа символов 0-9
findjs = "if (! pwdreg.test (document." & frmname & "." & tmparr (i) & ". Value)) && (document." & frmname & "." & tmparr (i) & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Случай "7" 'подтверждает, что пароль и пароль должны быть равны типу текста
Найти джа = "if ((document." & frmname & "." & tmparr (i) & ". Value)! = (Document." & frmname & "." & tmparr (i+3) & ". Value))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Case "8" 'подтверждает тип текста, начиная с номера
findjs = "if ((uidbeginreg.test (document." & frmname & "." & tmparr (i) & ". Value)) && (document." & frmname & "." & tmparr (i) & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Корпус "9" подтверждает номер телефона в формате 10-101212
findjs = "if ((! phonereg.test (document." & frmname & "." & tmparr (i) & ". Value)) && (document." & frmname & "." & tmparr (i) & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Дело "10" подтверждает, что только текст, включая английские буквы и "-", "_". (То есть он не включает китайских и других специальных персонажей)
findjs = "if ((uidreg.test (document." & frmname & "." & tmparr (i) & ". value)) && (document." & frmname & "." & tmparr (i) & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Корпус "11" подтверждает, что содержит только цифры и "-" (обычно используется в номерах телефонных и факсов)
findjs = "if ((phnedetailreg.test (document." & frmname & "." & tmparr (i) & ". Value)) && (document." & frmname & "." & tmparr (i) & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Дело "12" подтверждает, является ли это действительным URL!
findjs = "if (((! re1.test (document." & frmname & "." & tmparr (i) & ". Value)) && (! re2.test (Document." & frmname & "." & tmparr (i) & ". Value))" & _
"&& (document." & frmname & "." & tmparr (i) & ". Value! = '')) ||" & _
"(re3.test (document." & frmname & "." & tmparr (i) & ". Value)) || (re4.test (document." & frmname & "." & tmparr (i) & ". Value)) ||" & _
"(re5.test (document." & frmname & "." & tmparr (i) & ". value)) || (re6.test (document." & frmname & "." & tmparr (i) & ". Value)) ||" & _
"(re7.test (document." & frmname & "." & tmparr (i) & ". value)) || (re8.test (document." & frmname & "." & tmparr (i) & ". Value)) ||" & _
"(re9.test (document." & frmname & "." & tmparr (i) & ". Value)) || (re10.test (document." & frmname & "." & tmparr (i) & ". Value)) ||" & _
"(re11.test (document." & frmname & "." & tmparr (i) & ". value)) || (re12.test (document." & frmname & "." & tmparr (i) & ". Value)) ||" & _
"(re13.test (document." & frmname & "." & tmparr (i) & ". value)) || (! re14.test (document." & frmname & "." & tmparr (i) & ". Value))" & _
"&& (document." & frmname & "." & tmparr (i) & ". value! = ''))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Случай "13" подтверждает, что тип текста не больше, чем фиксированное количество цифр
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
Выходная функция
Case "14" 'подтверждает тип текста, содержащий HTML -тег
sindjs = "if (htmlreg.test (document." & frmname & "." & tmparr (i) & ". Value))" & vbcrlf & _
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & ");" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". select ();" & vbcrlf & _
"Document." & frmname & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" & vbcrlf
Выходная функция
Дело "15"
'=================================================================================
'Убедитесь, что тип выбора не отключен, должен выбрать формат: состояние | 15 | Пожалуйста, выберите имя провинции! | selcountry | Город |, пожалуйста, выберите информацию о городе
Примечание: когда SelectedIndex! = 0, пункт 2 и пункт 3 отключены! Не нужно проверять два других элемента
«Когда первый элемент SelectedIndex == 0 из меню каскада, SelectedIndex второго элемента не может быть 0, а когда второй элемент SelectedIndex! = 0 второго элемента, SelectedIndex третьего элемента также не может быть 0.
«Этот предмет используется для проверки трех каскадных меню страны/провинции/города. Когда страна не Китай, провинция и город не могут быть заполнены. Когда это Китай, провинция и относительный город должны быть заполнены!
sindjs = "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
Выходная функция
Случай "16" 'подтверждает, что тип выбора не отключен, должен выбрать формат: проверенный элемент формы | 16 | Информация о приглашении | Ассоциация "Примечание: Когда связанный элемент является первым элементом, начинается подтверждение!
sindjs = "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
Выходная функция
Endselect
Конечная функция
%>
