Usei um código JavaScript de verificação de formulário gerado dinamicamente da ASP na Internet e o expandi. Esqueci o nome do autor, mas lembro -me claramente que os códigos do artigo 1 ao artigo 9 são todos os trabalhos originais do autor. Quanto aos artigos nove a quinze, eu mesmo adicionei. Além disso, devido ao meu nível limitado, do artigo 9 ao artigo 15, pode não entrar em vigor todos eles? Haha, na verdade não há necessidade de publicá -lo aqui, porque todos podem usar esse pequeno truque. Posicionei sua função como: Quando você não consegue encontrar a função durante o desenvolvimento, você pode apenas copiá -lo aqui. Haha, porque eu não tenho um queimador ou um disco rígido móvel. Realmente não há como carregar esses códigos com você, mas, felizmente, você pode acessar a Internet em todos os lugares de Pequim. Portanto, coloque isso aqui, use Ctrl+C e, em seguida, Ctrl+V.
<% '***********************************************
'Nome da função: checkForm_JS (frmname, errstr)
'Função: Use o método ASP para gravar dinamicamente a função de verificação de formulário JavaScript CheckSubMit ()
'Método de uso: 1. <!-incluirfile = url+página em que esta função está localizada>;
'2. <FormosubMit = "JavaScript: returnCheckSubMit ()">;
'O autor original foi esquecido, o segundo autor de desenvolvimento: guo.qm
Última atualização: 2004
'***********************************************
'ajuda:
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Descrição da partícula:
'FrmName: o nome do campo de formulário
'Errstr: Verifique a lista, como: "NUM | 3 | Modelo não deve ser inferior a 8 dígitos | 8, email | 5 | Digite o formato de email correto", aqui
'Num representa o nome do campo de formulário, 3 representa o parâmetro de verificação, 8 representa o número de dígitos não menos que (opcional)
'
'· Lista de parâmetros de verificação:
'0: Tipo de texto necessário
'1: Tipo de listenu necessário
'2: deve ser um tipo de número de texto
'3: deve ser o tipo de texto do número especificado de dígitos
'4: o tipo de texto deve ser maior que o número especificado de dígitos
'5: Deve ser o tipo de email de texto
'6: deve ser az ou caracteres de 0-9
'7: confirme a senha e a senha devem ser iguais ao tipo de texto
'8: confirme que não é um tipo de texto que começa com um número
'9: deve conter o tipo de texto no formato 10-888888
'10: Tipos de texto que não podem conter chinês, espaços e outros caracteres ilegais, ou seja, eles só podem conter "_" "-" "-" 0-9 "" AZ "AZ"
'11: deve incluir apenas o número e "-"
'12: deve ser o tipo de texto correto do URL
'13: deve ser menor que o número especificado de dígitos do tipo de texto
'14: tipos de texto que não devem conter tags html
'15: Confirme que o tipo de seleção não está desativado deve selecionar o formato: item de formulário verificado | 15 | Informações rápidas | Item de associação ""
'Nota: se houver um menu em cascata, coloque o processo de verificação do menu em cascata na última inspeção! ! ! !
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
<%
Subcheckform_js (FrmName, Errstr)
Dimtmparr
Dimi
String de saída de Dimstrshow 'de JS
'Obtenha a lista de erros, crie uma matriz
tmparr = split (errstr, ",")
'Escrevendo JS
fori = 0Toubound (tmparr)
ifi <> 0then
strshow = strshow & "else" e findjs (frmname, tmparr (i))
outro
strshow = strshow & findjs (frmname, tmparr (i))
endif
próximo
'Saída
strshow = "<scriptLanguage = javascript>" & vbcrlf & _
"<!-" & vbcrlf & _
"// PowerbyGuoquanman2004" & vbcrlf & _
"FunctionCheckSubMit ()" & Vbcrlf & _
"{" & 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 = //. [a-z0-9 _ & =? //]*[a-za-z0-9 /// ~] {2,} $/;" & vbcrlf & _
strshow & _
"else" e vbcrlf & _
"ReturnTrue;" & vbcrlf & _
"}" e vbcrlf & _
"//->" & vbcrlf & _
"</cript>"
Response.WritesstrShow
Endsub
FunctionFindJS (FrmName, errstr)
Dimtmparr
Dimi
'Valor do parâmetro
i = 0
'Obtenha a lista de erros, crie uma matriz
tmparr = split (errstr, "|")
'Condições de consulta de saída
SelectCasetMparr (i+1)
Tipo de texto necessário para o caso "0" '
findjs = "if ((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 & _
"}" e vbcrlf
Saída de saída
ListMenu do tipo necessário para o caso "1"
findjs = "if ((document." & frmname & "." & tmparr (i) & ".
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Document." & frmName & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" e vbcrlf
Saída de saída
Caso "2" 'deve ser o tipo de texto do número
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 & _
"}" e vbcrlf
Saída de saída
Caso "3" 'deve ser o tipo de texto do número especificado de dígitos
Findjs = "if (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 & _
"}" e vbcrlf
Saída de saída
Caso "4" 'deve ser maior que o tipo de texto do número especificado de dígitos
Findjs = "if (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 & _
"}" e vbcrlf
Saída de saída
Caso "5" 'deve ser o tipo de email de texto
Findjs = "if (! Emailreg.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 & _
"}" e vbcrlf
Saída de saída
Caso "6" 'deve ser de AZ ou um tipo de texto de caracteres de 0-9
Findjs = "if ((!
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Document." & frmName & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Document." & frmName & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" e vbcrlf
Saída de saída
Caso "7" 'confirma que a senha e a senha devem ser iguais ao tipo de texto
Findjs = "if ((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 & _
"}" e vbcrlf
Saída de saída
Caso "8" 'confirma o tipo de texto começando com um número
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 & _
"}" e vbcrlf
Saída de saída
Caso "9" 'confirma o número de telefone no formato 10-101212
Findjs = "if ((!
"{" & vbcrlf & _
"window.alert ('" & tmparr (i+2) & "');" & vbcrlf & _
"Document." & frmName & "." & tmparr (i) & ". Select ();" & vbcrlf & _
"Document." & frmName & "." & tmparr (i) & ". Focus ();" & vbcrlf & _
"returnfalse;" & vbcrlf & _
"}" e vbcrlf
Saída de saída
O caso "10" 'confirma que apenas o texto, incluindo letras em inglês e "-", "_". (Isto é, não inclui chinês e outros caracteres especiais)
Findjs = "if ((uidreg.test (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 & _
"}" e vbcrlf
Saída de saída
O caso "11" 'confirma que apenas contém números e "-" (comumente usado em números de telefone e faxes)
Findjs = "if ((telefonePetailreg.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 & _
"}" e vbcrlf
Saída de saída
O caso "12" 'confirma se é um URL válido!
Findjs = "if (((! re1.test (document." & frmname & "." & tmparr (i) & ". value)) && (! re2.test (document." & frmname & "." & tmparr (i) & ".
"&& (document." & frmname & "." & tmparr (i) e ".
"(re3.test (document." & frmname & "." & tmparr (i) & ".
"(re5.test (document." & frmname & "." & tmparr (i) & ".
"(re7.test (document." & frmname & "." & tmparr (i) & ".
"(re9.test (document." & frmname & "." & tmparr (i) & ".
"(re11.test (document." & frmname & "." & tmparr (i) & ". value)) || (re12.test (document." & frmname & "." & tmparr (i) & ".
"(re13.test (document." & frmname & "." & tmparr (i) & ".
"&& (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 & _
"}" e vbcrlf
Saída de saída
O caso "13" 'confirma que o tipo de texto não é maior que o número fixo de dígitos
Findjs = "if (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 & _
"}" e vbcrlf
Saída de saída
Caso "14" 'confirma o tipo de texto contendo tag html
Findjs = "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 & _
"}" e vbcrlf
Saída de saída
Caso "15"
'====================================================================================
'Confirme que o tipo de seleção não está desativado deve selecionar o formato: estado | 15 | Selecione o nome da província! | SelCountry | Cidade | Selecione as informações da cidade
'Nota: Quando selecionadoIndex! = 0, o item 2 e o item 3 estão desativados! Não há necessidade de verificar os outros dois itens
'Quando o primeiro item selecionadoIndex == 0 do menu em cascata, o Index selecionado do segundo item não pode ser 0 e quando o segundo item selecionadoIndex! = 0 do segundo item, o Index selecionado do terceiro item também não pode ser 0.
'Este item é usado para verificar os três menus de cascata do país/província/cidade. Quando o país não é a China, a província e a cidade não podem ser preenchidas. Quando é a China, a província e a cidade relativa devem ser preenchidas!
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 & _
"}" e 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 & _
"}" e vbcrlf & _
"}" e vbcrlf & _
"}" e vbcrlf
Saída de saída
O caso "16" 'confirma que o tipo de seleção não está desativado deve selecionar o formato: Item do formulário verificado | 16 | Informações de prompt | Item de associação "Nota: Quando o item associado é o primeiro item, a confirmação é iniciada!
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 & _
"}" e vbcrlf & _
"}" e vbcrlf
Saída de saída
EndSelect
Função final
%>
