Ir para conteúdo

POWERED BY:

Arquivado

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

alexis

sistema de bolão

Por , em ASP Clássico

Recommended Posts

alexis    0

alexis
Postado

Boa tarde galera iMasters

 

Gostaria de saber como posso esta criando um bolão online para um cliente???

O caso do meu cliente é o seguinte ???

 

Ele qué criar um bolão para o clientes dele que vão no restaurante dele

 

no caso seria ele entregaria uma senha para os clientes e através dessa senha os clientes dele ganhariam um premio

ou o cliente iria acumulando pontos

 

gostaria de saber qual seria o sistema que eu deveria utilizar para criar isso

e qual seria o jeito de estar criando isso

 

sugestões são bem vindas

 

abrigado alexis

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

irá precisar fazer um random, exemplo:

 

<% Option Explicit %>
<%
Dim X
Response.Write "<HTML>" & vbCrLf
Response.Write "<HEAD>" & vbCrLf
Response.Write "<TITLE>  Random  Generator </TITLE>" & vbCrLf
Response.Write "</HEAD>" & vbCrLf
Response.Write "<BODY>" & vbCrLf
Response.Write "<FONT FACE=COURIER>" & vbCrLf

Response.Write "<B>Fixed length (10 characters)</B><BR>" & vbCrLf
For X = 0 To 20
	Response.Write RandomPW(10) & "<br>" & vbCrLf
Next

Response.Write "<BR><BR><B>Random tamanho/B><BR>" & vbCrLf
For X = 0 To 20

	Response.Write RandomPW(0) & "<br>" & vbCrLf
Next

Response.Write "</FONT>" & vbCrLf
Response.Write "</BODY>" & vbCrLf
Response.Write "</HTML>" & vbCrLf



Function RandomPW(myLength)

	Const minLength = 6
	Const maxLength = 20
	
	Dim X, Y, strPW
	
	If myLength = 0 Then
		Randomize
		myLength = Int((maxLength * Rnd) + minLength)
	End If

	
	For X = 1 To myLength

		Y = Int((3 * Rnd) + 1) '(1) Numeric, (2) Uppercase, (3) Lowercase
		
		Select Case Y
			Case 1
	
				Randomize
				strPW = strPW & CHR(Int((9 * Rnd) + 48))
			Case 2
				'Uppercase 
				Randomize
				strPW = strPW & CHR(Int((25 * Rnd) + 65))
			Case 3
				'Lowercase 
				Randomize
				strPW = strPW & CHR(Int((25 * Rnd) + 97))

		End Select
	Next
	
	RandomPW = strPW

End Function

%>

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