Gerar paginas com codigo usuario

[ricardo coelho designer 0]

Bom dia gente!!!

 

Gostaria de pedir para quem puder me ajudar... Sou um quebra galho em asp rsrs, mas estou em um projeto para poder desenvolver um site na verdade sem custo.

 

No link a seguir http://www.vitrinepublicitaria.net/arquivos/admlogin.zip tem 5 códigos nos quais busca dados de um bd após cadastro.

 

O que acontece...

 

Preciso que quando coloco o login do usuario ele de alguma forma traga junto da sequencia de arquivos o código do usuário, porque... esse código deve chegar a página de formulário "contato.asp" nas linhas 2, 4 e 6, para quando gerar uma página essa página abra com especificações do usuário.

 

Bom a sequencia da página é:

1- ADM login.asp

2- Checklogin.asp

3- createfolder.asp

4- contato.asp

5- paginasasp.asp

 

Desculpe a bagunça e o incomodo mas sem a ajuda de vocês vai ficar muito dificil de resolver...

 

Mas de qualquer forma agradeço desde já! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[jrcardozo 4]

pelo que entendi cada usuário terá um "sistema' independente, para isso creio que cada usuário tenha uma pasta e dentro delas seus respectivos arquivos. Se for isso é só você fazer a autenticação e redirecionar para a pasta que você determinou no momento do cadastro dele tipo isso

 

nome=request.form("nome")senha=request.form("senha")set rs=con.execute("select id,nome,pasta,senha from login where nome='"&nome&"' and senha='"&senha&"'")if not rs.eof thensession("id")=rs("id")response.redirect("http://www.site.com.br/"&rs("pasta"))elseresponse.write("login invalido")end if

[ricardo coelho designer 0]

pelo que entendi cada usuário terá um "sistema' independente, para isso creio que cada usuário tenha uma pasta e dentro delas seus respectivos arquivos. Se for isso é só você fazer a autenticação e redirecionar para a pasta que você determinou no momento do cadastro dele tipo isso

nome=request.form("nome")senha=request.form("senha")set rs=con.execute("select id,nome,pasta,senha from login where nome='"&nome&"' and senha='"&senha&"'")if not rs.eof thensession("id")=rs("id")response.redirect("http://www.site.com.br/"&rs("pasta"))elseresponse.write("login invalido")end if

Bom pelo que eu entendi quando o login é feito as informações que forem digitadas vão com o id??? E minha preocupação é que antes de gerar os arquivos asp ele passe pelo formulario e o formulario resgate as caixas 2, 4 e 6 com o id atualizando o bd...Com esse código consigo isso???

[jrcardozo 4]

então eu acho que você quer criar a pasta quando o camarada fizer o login, se for isso faça assim

nome=request.form("nome")senha=request.form("senha")set rs=con.execute("select id,nome,senha from login where nome='"&nome&"' and senha='"&senha&"'")if not rs.eof then'aqui você coloca o codigo FSO para verificar se a pasta já está criada, se não estiver então cria uma pasta utilizando o rs("id") do camarada que fizer o login e jogas os arquivos necessários pra dentro delaresponse.redirect("http://www.site.com.br/"&rs("id"))elseresponse.write("login invalido")end if

porém sugiro que essa pasta seja criada apenas quando fizer o cadastro do usuário para evitar essa verificação quando fizer o login

[ricardo coelho designer 0]

pelo que entendi cada usuário terá um "sistema' independente, para isso creio que cada usuário tenha uma pasta e dentro delas seus respectivos arquivos. Se for isso é só você fazer a autenticação e redirecionar para a pasta que você determinou no momento do cadastro dele tipo isso

 

nome=request.form("nome")senha=request.form("senha")set rs=con.execute("select id,nome,pasta,senha from login where nome='"&nome&"' and senha='"&senha&"'")if not rs.eof thensession("id")=rs("id")response.redirect("http://www.site.com.br/"&rs("pasta"))elseresponse.write("login invalido")end if

Então o que eu gostaria que quando o arquivo paginasasp.asp fosse gerar as páginas, as paginas geradas tivesse com o id do usuario.

 

E antes disso a parte com o nome da pasta também fosse retirado do bd. ex:

 

<%

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

Conexao.Open "DBQ=" & "C:\Inetpub\wwwroot\bruno\vitrine.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};"

 

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

RS.Open "SELECT * FROM layout WHERE layoutid=1",Conexao

 

NomeArquivo="apresentacao.asp"

NomePasta= "nome do usuario"

 

Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ObjFSO.CreateTextFile("C:\Inetpub\wwwroot\bruno\" & NomePasta &"\" & NomeArquivo &"")

MyFile.Write RS("parte1")

MyFile.Write RS("id do usuario")

MyFile.Write RS("parte3")

MyFile.Write RS("id do usuario")

MyFile.Write RS("parte5")

MyFile.Write RS("id do usuario")

MyFile.Write RS("parte7")

MyFile.Close

 

 

response.write "Sucesso"

 

RS.Close

Set RS=Nothing

Conexao.Close

Set Conexao=Nothing

%>