Ir para conteúdo

POWERED BY:

Arquivado

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

Alessancost

Somente os posts do autor

Recommended Posts

Já tente muito...

Estou desenvolvendo um Blog para um sit. Os usuários podem fazer um cadastro para fazer as postagens no Blog, mas estou com um grande problema. Quando um dos usuários deseja alterar um post já publicado ele visualiza todos os posts publicados por todos os usuários. Eu tenho que fazer com que ele somente visualize para ser alterado somente os posts que ele mesmo publicou. Alguém sabe o que eu devo fazer ou onde devo procurar?

 

Obrigado

 

Essa é o código da pagina onde aparece os posts publicados para alteração

ASP [/tr][tr]<html>

<head>

<title></title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="../../estilo.css" rel="stylesheet" type="text/css">

</head>

<body background="../../img/01_fundo_2.gif">

<table width="1%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#7F9DB9" bgcolor="#ECE9D8">

<tr>

<td><img src="../../img/02_juseundi.gif" width="591" height="88"></td>

</tr>

<tr>

<td height="28" class="fonte2"><table width="99%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="57%" class="fonte2">  Posts publicados</td>

<td width="43%" align="right" valign="middle" class="fonte1"><a href="publicando.asp" class="fonte1">Publicar</a>

| <a href="list_posts.asp" class="fonte1">Editar</a> | <a href="login_admin.asp" class="fonte1">Configurar</a>

| <a href="java script:onClick=window.close()">Sair</a></td>

</tr>

</table></td>

</tr>

<tr>

<td>

<%

Dim ConnDB

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

ConnDB.Open "DBQ=" & Server.MapPath("../../bancos/principal.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

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

 

SQL2 = "Select * From posts order by id desc"

Set RS = ConnDB.Execute(SQL2)

%>

<table width="100%" border="0" cellspacing="4" cellpadding="0">

<tr>

<td><table width="100%" border="1" cellpadding="4" cellspacing="0">

<tr bgcolor="#FFFFE6">

<td width="35%" bgcolor="#FFFFE6" class="fonte2">Titulo</td>

<td width="10%" class="fonte2">Data</td>

<td width="35%" class="fonte2">Titulo</td>

<td width="10%" class="fonte2">Data</td>

</tr>

<%

do until RS.EOF

response.write "<td><a href=""edt_posts.asp?cod="&RS("id")&""" class=fonte2>"&RS("titpost")&"</a></td>"

response.write "<td class=""fonte1"">"&RS("datapost")&"</td>"

RS.MoveNext

if not RS.EOF then

response.write "<td><a href=""edt_posts.asp?cod="&RS("id")&""" class=fonte2>"&RS("titpost")&"</a></td>"

response.write "<td class=""fonte1"">"&RS("datapost")&"</td></tr>"

RS.MoveNext

end if

loop

RS.Close

%>

</table></td>

</tr>

</table> </td>

</tr>

</table>

</body>

</html>

[/tr]

Compartilhar este post


Link para o post
Compartilhar em outros sites

o ideal mesmo era adicionar o id do post pro cara alterar so aquele, e obviamente na pagina que permite chamar a alteração voce poe um codigo pro cara so poder editar seus proprios posts...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Acrescentei a seguinte linha, tentando seguir a ajuda do FABRICIOGOMES:

 

ASP [/tr][tr]SQL2 = "Select * From posts order by id desc where autorpost="Session("FirstName")""[/tr]

 

Porém a página da o erro:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/blog/Jus eundi/blog/admin/list_posts.asp, line 30, column 62

SQL2 = "Select * From posts order by id desc where autorpost="Session("FirstName")""

-------------------------------------------------------------^

 

Me perdi em algum parte do caminho?

Compartilhar este post


Link para o post
Compartilhar em outros sites

tente assimSQL2 = "Select * From posts where autorpost = '" & Session("FirstName") & "' order by id desc"

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.