Ir para conteúdo
Fórum CódigoFonte.net
tspenido

estou perdido!

Recommended Posts

eu tenho um arquivo reg.asp com esta configuração: (eu fiz o downloads ja pronto!):

<!--#include file="connect.asp"-->

<%

response.buffer = true

Function rndit()'generate password from randomize number

Dim RndTemp

Randomize

RndTemp = Rnd * 1000000

RndTemp= Int(RndTemp)

rndit = RndTemp

End Function

'decleration

dim useraction,conn,rs,sql,sql1,user,pass

useraction = request("action")

select case useraction

case "login"

'generate the function

PasswordTemp = rndit()

'collect data from form

user = request.form("user")

email = request.form("email")

'response.write user & email & rndit'***debug

'database objects

Set Conn = Server.CreateObject("ADODB.Connection")

Set Rs = Server.CreateObject("ADODB.Recordset")

'sql query

sql = "select pass from users where pass='"&PasswordTemp&"' or user='"& user & "'"

Conn.Open dsn

rs.open sql,conn

if rs.eof and rs.bof then

sql1 = "insert into users (user,pass,email) values('"& user & "',"& PasswordTemp & ", '"& email & "')"

conn.execute(sql1)

response.write "<script>alert('you registered succefully');location.href='index.asp';</script>"

Dim objCDO

Set objCDO = Server.CreateObject("CDONTS.NewMail")

body = "Goto http://www.myscript.co.il/index.asp " & vbCrLf

body = body & " Your username is: " & user & vbCrLf

body = body & " Your password is: " & PasswordTemp & vbCrLf

objCDO.To = email

objCDO.From = "[email protected]"

objCDO.Subject = "Welcome to our member section!"

objCDO.Body = body

objCDO.Send

else

response.write "<script>alert('username already excist');</script>"

end if

rs.close

set rs = nothing

conn.close

set conn = nothing

end select

%>

<html>

<head>

<script>

function valid(){

var user = document.theform.user.value

var userLength = document.theform.user.value.length

if(userLength<4 || user==""){

alert("User fieled should contain 4-10 chars");

document.theform.user.focus()

return false

}

var email=document.theform.email.value;

if (email==""){

alert("Please type your Email")

document.theform.email.focus()

return false

}

if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){ alert("No valid e-mail address!");

document.theform.email.focus()

return false

}

}

</script>

<title>Untitled</title>

</head>

<body><br><br><br><br>

<form name="theform" action="reg.asp?action=login" method="post" onsubmit="return valid()">

<table align=center bgcolor="Silver">

<tr><td>Desired UserName</td><td><input type="text" name="user" size=15 maxlength=10>(4-10 chars)</td></tr>

<tr><td>Email(The password wil be sent to your email!)</td><td><input type="text" name="email" size=20 maxlength=30></td></tr>

<tr><td colspan=2 align=center><input type="submit" value="login"></td></tr>

</form>

</body>

</html>

apartir deste arquivo, ele envia um e-mail com o login e senha! so q naum acontece isso! oq fazer? m ajudem! valeu!

Compartilhar este post


Link para o post
Compartilhar em outros sites

você tem CDONTS ou ASPMAIL registrado ai?

olhe eu nao verifiquei esse codigo pra ver se tinha erro, uma dica... esses scripts prontos são complicadinhos, varias vem super bagunçadas. A melhor coisa é VOCE fazer do zero pois voce entenderá o que está sendo feito....

Tente aproveitar algumas coisas, mas se puder, faça você mesmo...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...