Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

Sugerindo usuário

Recommended Posts

A primeira coisa que você precisa fazer é criar um banco de dados chamado Mydatabase. Em seguida, criar uma tabela chamada tblUsers com estes campos:

 

  Citar

ID - autonumber

fUsername - text field

fPassword - text field

fEmail - text field

fDateEntered - date/time field

 

register.asp

 

<form name="Register" method="post" action="confirm.asp">
<table width="100%">
<tr><td>Username:</td>
<td><input type="text" name="Username" size="50"></td></tr>
<tr><td>Password:</td>
<td><input type="text" name="Password" size="50"></td></tr>
<tr><td>Email:</td>
<td><input type="text" name="Email" size="50"></td></tr>
</table>
<input type="submit" name="Submit" value="Submit"> 
</form>

confirm.asp

 

<%
DIM strUsername, strPassword, strEmail
strUsername = Request.Form("Username")
strPassword = Request.Form("Password")
strEmail = Request.Form("Email")

IF strUsername <> "" AND strPassword <> "" AND strEmail <> "" THEN

DIM mySQL, objRS
mySQL = "SELECT * FROM tblMembers WHERE fUsername = ' " & strUsername & " ' "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText

IF objRS.EOF THEN
objRS.AddNew
objRS("fUsername")
objRS("fPassword")
objRS("fEmail")
objRS.Update
objRS.Close
Set objRS = Nothing
Response.Write "Você foi registrado como: " & strUsername

ELSE

DIM X, strTempUsername, intCount, mySQL2, objRS2
DO UNTIL X=True
intCount = intCount + 1
strTempUsername = strUsername & intCount
strUsername = strTempUsername

mySQL2 = "SELECT * FROM tblMembers WHERE fUsername = ' " & strUsername & " ' "
Set objRS2 = Server.CreateObject("ADODB.Recordset")
objRS2.Open mySQL2, objConn, adOpenKeyset, adLockPessimistic, adCmdText



IF objRS2.EOF THEN
X=True
ELSE
intCount = intCount
END IF
LOOP

objRSa2.Close
Set objRSa2 = Nothing 

Response.Write "Esse usuário já esta registado. Por favor clique em Voltar em seu navegador e tente um outro usuário. "
Response.Write "Sugerimos que você tente os usuários abaixos disponíveis :</p>"
Response.Write "<b>• " & strUsername2 & "</b>"
END IF

ELSE
Response.Write "Por favor clique em Voltar em seu navegador e complete todos os três campos"
END IF
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

xan, não testei seu código, mas parece ser muito interessante.

 

Parabéns.

Compartilhar este post


Link para o post
Compartilhar em outros sites

muito bom para o user naun ficar perdendo tempo...

estou implementando outra versaun, com AJAX vai ficar legal...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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