
Victor
Veteranos-
Total de itens
1.756 -
Registro em
-
Última visita
Tudo que Victor postou
-
<!--#include file="pagina.asp"-->....Usa isso!!!
-
Não estamos conversando, só estou falando que se der tempo eu faço um pra ele!!! []'s Victor
-
Não entendi como funciona ainda
-
Se eu desocupar aqui eu faço um para você e te mando depois, mas agora to super ocupado!!!
-
Tem como você fazer tipo de uma conecção usando as fonts que você tem em uma pasta, mas isso se faz em ASP, PHP, etc...Em HTML acredito que não tem como fazer não!!! []'s Victor
-
Você não manja completamente nada de ASP???
-
Você quer um script de busca interna no site...Certo??
-
http://scriptbrasil.com.br/forum/index.php?showtopic=18949...É o primeiro tuto que tem la, que eu fiz!!!
-
Você quer que alguém possa cadastrar o curriculum e em uma administração você poder ver todos eles...Certo??
-
Deixa eu ver se entendi... Você quer que possa editar um arquivo online pelo codigo....Certo??
-
Nossa, meu pai jogava esse jogo ai Mas faz tanto tempo
-
uma administração que você pode editar excluir, criar registros no bd!!! conecta.asp <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\database\bd.mdb;Persist Security Info=False" %> administrativo.asp <!--#include file="conecta.asp"--> <% Set RecSet = Server.CreateObject("ADODB.Recordset") 'Inclui if request.form("acao") = "cadastrar" then Conn.execute "insert into produtos (titulo_produto, fabricante, valor) values ('"&request.form("produto")&"', '"&request.form("fabricante")&"', '"&request.form("valor")&"')" end if 'Exclui if request.querystring("excluir") <> "" then Conn.Execute "Delete from produtos where id = "&request.querystring("excluir")&"" end if 'Alterar if request.form("acao") = "alterar" then Conn.execute "update produtos set titulo_produto = '"&request.form("produto")&"', fabricante = '"&request.form("fabricante")&"', valor = '"&request.form("valor")&"' where id = "&session("alterar")&"" end if 'Carrega os valores da alteração if request.querystring("alterar") <> "" then session("alterar") = request.querystring("alterar") RecSet.Open "Select * from produtos where id = "&request.querystring("alterar")&"", conn produto = RecSet("titulo_produto") fabricante = RecSet("fabricante") valor = RecSet("valor") RecSet.Close end if %> <form action="acesso.asp" method="post"> <table> <tr> <td>Produto: </td> <%if request.querystring("alterar") <> "" then%> <td><input name="produto" size="30" value="<%=produto%>"></td> <%else%> <td><input name="produto" size="30"></td> <%end if%> </tr> <tr> <td>Fabricante: </td> <%if request.querystring("alterar") <> "" then%> <td><input name="fabricante" size="30" value="<%=fabricante%>"></td> <%else%> <td><input name="fabricante" size="30"></td> <%end if%> </tr> <tr> <td>Valor: </td> <%if request.querystring("alterar") <> "" then%> <td><input name="valor" size="10" value="<%=valor%>"></td> <%else%> <td><input name="valor" size="10"></td> <%end if%> </tr> <tr> <%if request.querystring("alterar") <> "" then%> <td colspan="2"><input type="Submit" value="Alterar"><input type="Hidden" name="acao" value="alterar"></td> <%else%> <td colspan="2"><input type="Submit" value="Cadastrar"><input type="Hidden" name="acao" value="cadastrar"></td> <%end if%> </tr> </table> </form> <table border=1 bordercolor="#CCCCCC" cellpadding=0 cellspacing=0 style="border-collapse: collapse"> <tr bgcolor=#336699> <td width="80" align=center height="25"><b><font size="-1" color=#FFFFFF face=tahoma>Excluir</font></b></td> <td width="80" align=center height="25"><b><font size="-1" color=#FFFFFF face=verdana>Alterar</font></b></td> <td width="400" align=center height="25"><b><font size="-1" color=#FFFFFF face=verdana>Produto</font></b></td> <td width="80" align=center height="25"><b><font size="-1" color=#FFFFFF face=verdana>Valor</font></b></td> </tr> <% RecSet.Open "Select id, titulo_produto, fabricante, valor from produtos order by titulo_produto", conn i=0 z=true while not RecSet.EOF z = not z if z = true then cor = "#EEEEEE" if z = false then cor = "#DDDDDD" i=i+1 %> <tr bgcolor="<%=cor%>"> <td width=80 align=center height="25"><center><a href=acesso.asp?excluir=<%=RecSet("id")%>><img src="imagens/excluir.gif" border=0 alt=Excluir></a></center></td> <td width=80 align=center height="25"><center><a href=acesso.asp?alterar=<%=RecSet("id")%>><img src="imagens/editar.gif" border=0 alt=Excluir></a></center></td> <td width=400 align=center height="25"><center><font size="-2" color="333333" face="Verdana"><b><%=RecSet("titulo_produto")%></b></font></center></td> <td width=80 align=center height="25"><center><font size="-2" color="333333" face="Verdana"><b>R$<%=FormatNumber(RecSet("valor"),2)%></b></font></center></td> </tr> <% RecSet.MoveNext wend RecSet.Close %> </table>
-
Age of empires, também é dahora jogar na net!!!
-
adriano182, movo para AVALIAÇÕES ou posso fechar o tópico??
-
fazendo um querystring junto com um include: conecta.asp <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\database\bd.mdb;Persist Security Info=False" %> index.asp <!--#include file="conecta.asp"--> <%if request.querystring("secao") <> "asp" and request.querystring("secao") <> "php" then%> <font size="5" color="#ff0000">Essa página não existe!!!</font> <% else Set RecSet = Server.CreateObject("adodb.recordset") select case request.querystring("secao") case "asp" %> <!--#include file="asp.asp"--> <% case "php" %> <!--#include file="php.asp"--> <% end select end if %>
-
Ta super dahora!!!! Agora só nota 10
-
1º Tópico Oficial De Piadas Sem Graça.
tópico respondeu ao Black Dragon de Victor em Outros Assuntos
ahuhauhuah....Mo legallll jaauhuah -
Por que você vai embora jissa??? Aconteceu alguma coisa????
-
Deixa eu ver se entendi, você quer q nos vemos se quando esta maximizada fica na tela inteira e minimizada também...Certo??
-
Dark0 todo mundo viu que é SQL SERVER né, olhe o erro!!! Gladiador Poste o sua conecção com banco de dados aki!!!
-
Mas a variavel do recodset dele deve estar diferente do que eu fiz pra ele aqui!!!
-
Como assim, não entendi muito bem!!! Pode explicar melhor???
-
ASP é WebDesign??
-
Se precisar de alguma coisa sobre configuração de invision, pode falar comigo, meu MSN ta na ass!!!
-
Tem HOSTS bom ali, mas prefiro 1000 vezes um pago do que um gratis!!!