Ir para conteúdo

POWERED BY:

Arquivado

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

®odrigo_$am

pq está acontecendo isso?

Por , em ASP Clássico

Recommended Posts

®odrigo_$am    0

®odrigo_$am
Postado

Oopa..olá galera..

eu peguei um sistema de login e senha no site do superasp, e qdo fui testar, ocorreu um erro...

alguem aí saberia dizer pq?

o link para o site de teste é esse....Clique aqui daí entrem para registrar uma senha.

daí ocorre o erro.

Por favor..dêem um alhada.

Vlw

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

posta aqui o erro cara...fica mais facil pra galera de ajudar

Compartilhar este post

Link para o post
Compartilhar em outros sites

®odrigo_$am    0

®odrigo_$am
Postado

Ok pessoal, segue os códigos das páginas...

 

index.asp

<!--#include file="connect.asp"--><%response.buffer = true'declerationdim useractiondim conn,dsn,rs,sql'if the user submit the formuseraction = request("action")select case useraction	case "login"  user = request.form("user")  pass = request.form("pass")  Set Conn = Server.CreateObject("ADODB.Connection")  Set Rs = Server.CreateObject("ADODB.Recordset")  Conn.Open dsn  SQL = "SELECT * FROM users where pass='"& pass &"' and user='"& user & "'"  rs.open sql,conn  if rs.eof and rs.bof then 	 response.write "<center>No such password! Please Register</center>"  else 	 session("auth") = pass 	 response.redirect "index1.asp"  end if	end select%><html><head><script>function valid(){var user = document.theform.user.valuevar userLength = document.theform.user.value.lengthvar pass = document.theform.pass.valuevar passLength = document.theform.pass.value.lengthif(userLength<4 || user==""){alert("User fieled should contain 6-10 chars");document.theform.user.focus()return false	}	if(passLength!=6 || pass==""){alert("Password fieled should contain 6 chars");document.theform.pass.focus()return false	}}</script><title>Untitled</title></head><body> <br> <br> <br> <br> <form name="theform" action="index.asp?action=login" method="post" onsubmit="return valid()">   <table align=center bgcolor="Silver">     <tr>       <td>UserName</td>       <td><input type="text" name="user" size=15 maxlength=10>         (4-10 chars)</td>     </tr>     <tr>       <td>PassWord</td>       <td><input type="text" name="pass" size=15 maxlength=10>         (6 chars)</td>     </tr>     <tr>       <td colspan=2 align=center><input type="submit" value="login"></td>     </tr>     <tr>       <td colspan=2 align=center>First time?Please <a href="reg.asp">register</a></td>     </tr>   </table> </form> </body></html>

reg.asp

<!--#include file="connect.asp"--><%response.buffer = trueFunction rndit()'generate password from randomize number 	Dim RndTemp 	Randomize 	RndTemp = Rnd * 1000000 	RndTemp= Int(RndTemp) 	rndit = RndTemp End Function 'declerationdim useraction,conn,rs,sql,sql1,user,passuseraction = 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('Registro efetuado com secesso!');location.href='http://www.gustavo.art.br/novahp/index.asp';</script>" 	 Dim objCDO 	 Set objCDO = Server.CreateObject("CDONTS.NewMail") 	 body = "Goto http://www.myscript.co.il/index.asp "  & vbCrLf      body = body & "  Seu login é: " & user  & vbCrLf      body = body & "  Sua senha é: " & PasswordTemp  & vbCrLf  	 objCDO.To = email 	 objCDO.From = "gustavo@art.com.br" 	 objCDO.Subject = "Seja bem vindo!" 	 objCDO.Body = body 	 objCDO.Send  else 	 response.write "<script>alert('Login já existente!');</script>" 	   end if  rs.closeset rs = nothingconn.closeset conn = nothingend select%> 	 <html><head><script>function valid(){var user = document.theform.user.valuevar userLength = document.theform.user.value.lengthif(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></table></form></body></html>

conect.asp

<%dsn = "DBQ=" & Server.Mappath("db/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"%>

test.asp

<%Function rndit()'generate password from randomize number Dim RndTemp Randomize RndTemp = Rnd * 1000000 RndTemp= Int(RndTemp) rndit = RndTemp End Function PasswordTemp = rndit() response.write PasswordTemp & PasswordTemp%>

E por fim o index1.asp

<!--#include file="connect.asp"--><%if session("auth")="" then	response.write "access denied"else	response.write "o.k - this is the secure page"end if%>

ele não está enviando o e-mail que deveria mandar com a nova senha...o que srá que pode ser?

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