Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Código de Verificação

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado 

<html>

<head>

<title>Código de Verificação © 2010</title>

<script language="JavaScript" type="text/JavaScript">

<!--

function MM_findObj(n, d) { //v4.01

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);

if(!x && d.getElementById) x=d.getElementById(n); return x;

}

 

function YY_checkform() { //v4.66

//copyright (c)1998,2002 Yaromat.com

var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;

for (var i=1; i<args.length;i=i+4){

if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}

var myObj = MM_findObj(args.replace(/\[\d+\]/ig,""));

myV=myObj.value;

if (myObj.type=='text'||myObj.type=='password'||myObj.type=='hidden'){

if (myReq&&myObj.value.length==0){addErr=true}

if ((myV.length>0)&&(args[i+2]==1)){ //fromto

var myMa=args[i+1].split('_');if(isNaN(myV)||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}

} else if ((myV.length>0)&&(args[i+2]==2)){

var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$");if(!rx.test(myV))addErr=true;

} else if ((myV.length>0)&&(args[i+2]==3)){ // date

var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);

if(myAt){

var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];

var myDate=new Date(myY,myM,myD);

if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};

}else{addErr=true}

} else if ((myV.length>0)&&(args[i+2]==4)){ // time

var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}

} else if (myV.length>0&&args[i+2]==5){ // check this 2

var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""));

if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")];

if(!myObj1.checked){addErr=true}

} else if (myV.length>0&&args[i+2]==6){ // the same

var myObj1 = MM_findObj(args[i+1]);

if(myV!=myObj1.value){addErr=true}

}

} else

if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){

var myTest = args.match(/(.*)\[(\d+)\].*/i);

var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;

if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}

if (args[i+2]==2){

var myDot=false;

for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}

if(!myDot){myErr+='* ' +args[i+3]+'\n'}

}

} else if (myObj.type=='checkbox'){

if(args[i+2]==1&&myObj.checked==false){addErr=true}

if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}

} else if (myObj.type=='select-one'||myObj.type=='select-multiple'){

if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}

}else if (myObj.type=='textarea'){

if(myV.length<args[i+1]){addErr=true}

}

if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}

}

if (myErr!=''){alert('As informações exigidas está incompleta ou contém erros :\t\t\t\t\t\n\n'+myErr)}

document.MM_returnValue = (myErr=='');

}

//-->

</script>

</head>

<body bgcolor="white" text="black">

<div align="center">

<h1> </h1>

<font color="#5E69BD" face="Verdana, Arial, Helvetica, sans-serif"><strong>Verificação de Código </strong></font><br>

<form action="" method="post" name="form1" onSubmit="YY_checkform('form1','textfield','#textfield2','6','you have entered wrong verification code');return document.MM_returnValue">

<table width="75%" border="0" bgcolor="#CCCCCC">

<tr>

<td><table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="18%" bordercolor="#FFFFFF" bgcolor="#E8E8E8"><span id="result_box"><span title="Verification code"> Verificação de Código </span></span></td>

<td width="18%" bgcolor="#FFFFFF">

<%

'Dimension variables

Dim lngVisitorNumber 'Armazena o número de visitantes

Dim intWriteDigitLoopCount 'Contra Loop para mostrar a contagem de ocorrências gráfica

Dim intLowerBound 'Limite inferior do intervalo de números aleatórios

Dim intUpperBound ' Limite superior do intervalo de números aleatórios

Dim intRangeSize ' Tamanho do intervalo

Dim sngRandomValue ' Um valor aleatório de 0 a intRangeSize

Dim intRandomInteger ' Nosso resultado final - inteiro aleatório para retornar

 

 

Randomize()

' Pesquisar tamanho do intervalo

intRangeSize = 5000 - 1000 + 1

 

' Obter um número aleatório de 0 até o tamanho do intervalo

sngRandomValue = intRangeSize * Rnd()

 

' Central do range de possíveis números aleatórios sobre o conjunto de resultados desejados

 

sngRandomValue = sngRandomValue + intLowerBound

 

' Converter o nosso valor para um inteiro

intRandomInteger = Int(sngRandomValue)

 

For intWriteDigitLoopCount = 1 to Len(intRandomInteger)

 

'Mostrar a contagem de ocorrências gráfica

Response.Write("<img src=""vercode/")

Response.Write(Mid(intRandomInteger, intWriteDigitLoopCount, 1) & ".gif""")

Response.Write("alt=""" & Mid(intRandomInteger, intWriteDigitLoopCount, 1) & """>")

Next

%> </td>

<td width="35%" bordercolor="#FFFFFF" bgcolor="#E8E8E8">   

<input type="text" name="textfield"></td>

<td width="29%" bordercolor="#FFFFFF" bgcolor="#E8E8E8">

<input type="submit" name="Submit" value="Submit">

<input name="textfield2" type="hidden" id="textfield22" value="<%=intRandomInteger%>"></td>

</tr>

</table></td>

</tr>

</table>

</form>

</div>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito