![](https://forum.scriptbrasil.com.br/uploads/set_resources_1/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
cyberalexxx
-
Total de itens
2.500 -
Registro em
-
Última visita
Posts postados por cyberalexxx
-
-
procure na net por "sql injection" voce vai achar muita coisa
'or'1 '='1
teste isso no seu login
-
Eu tive o seguinte problema uma ocasião, v c te ajuda:
O MySQL 4.1 usa um protocolo de autenticação baseado em um algorítmo de hashing de senha que é incompatível com aquele usado por outros clientes. Se você atualizar o servidor para a versão 4.1, tentar se conectar a ele com um cliente mais antigo pode falhar com a seguinte mensagem: shell> mysql Client does not support authentication protocol requested by server; consider upgrading MySQL client Para resolver este problema você deve fazer um dos seguintes: Atualizar todos os progrmas clientes para usar a biblioteca cliente 4.1.1 ou mais nova. Use uma conta com uma senha antiga ao conectar em clientes anteriores ao 4.1. Reset o usuário que precisa de um cliente anterior ao 4.1 para usar a senha antiga: mysql> UPDATE user SET Password = OLD_PASSWORD('mypass') -> WHERE Host = 'some_host' AND User = 'some_user'; mysql> FLUSH PRIVILEGES
-
já postei esse tutorial uma vez, mais vou postar de novo pra ficar em destaque:
Pequeno tutorial sobre txt:
Para exemplificar o uso do objeto Server trabalharemos com o ActiveX FileSystemObject. Tal componente possui uma serie de propriedades e métodos para manipulação de arquivos e diretórios do servidor Web.
Para instanciar tal objeto numa página ASP escrevemos o seguinte código:
Set Objeto = Server.CreateObject(“Scripting.FileSystemObject”)
Esse objeto recém instanciado representa o Sistema de Arquivo do servidor Web. Devemos agora criar outro objeto(TextStream), a partir desse, para representar um determinado arquivo. Fazemos isso, utilizando o método OpenTextFile do FileSystemObject:Set Arquivo = Objeto.OpenTextFile(Nome,modo,cria,formato)
onde:
Para lermos o conteúdo de um arquivo, podemos utilizar os seguintes métodos do objeto TextStream:Nome = Modo de Abertura do arquivo. 1 para leitura, 2 para gravação por cima, 3 para gravação adicional. Cria = Valor Booleano que indica se o arquivo deve ser criado(true) ou não(false) caso não exista. formato = Indica o formato de gravação do arquivo a ser utilizado. –1 Unicode, 0 Ascii
Mas se nos interessar gravar informações no arquivo, os métodos disponíveis são:Read (quantidade) = Lê um determinado número de caracteres do arquivo ReadLine = Lê uma linha inteira do arquivo ReadAll = Lê o arquivo inteiro de uma só vez
Esse componente ActiveX ainda possui as seguintes propriedades:Write = Grava uma string no arquivo WriteLine = Grava um string no arquivo, incluindo a quebra de linha WriteBlankLines = Grava um determinado número de linhas em branco num arquivo
O código a seguir mostra como abrimos um arquivo localizado no servidor WEB e exibimos seu conteúdo:AtEnOfLine = Indica o fim de uma determinada linha do arquivo AtEnOfStream = Indica o Final do Arquivo Column = Indica em que coluna do arquivo estamos Line = Indica o número da linha atual do arquivo<% @Language=vbScript %> <HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD> <BODY><CENTER> <% dim final final = "</CENTER></BODY></HTML>" On Error Resume Next Set Obj = Server.CreateObject("Scripting.FileSystemObject") Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",1) if Err then Response.write "Ocorreu um erro tentando abrir o arquivo!" Response.write final Response.End end if Response.Write "Lista de E-mails<BR>" Response.write "<HR>" do while arquivo.AtEndOfStream=false a = arquivo.Readline response.write a & "<BR>" a = arquivo.Readline response.write a & "<HR>" loop Response.Write "Nova Entrada" Response.Write "<FORM ACTION=Arquivo2.asp>" Response.Write "NOME : <INPUT TYPE=TEXT NAME=NOME><BR>" Response.Write "EMAIL : <INPUT TYPE=TEXT NAME=EMAIL><BR>" Response.Write "<INPUT TYPE=SUBMIT VALUE=ENVIAR></FORM>" REsponse.Write final arquivo.close %>
A próxima página ASP mostra como escrever num arquivo localizado no servidor WEB. Lembrando que essa página deve ser acessada por um formulário WEB com um objeto de NAME=Nome e outro NAME=Email:<% @Language=vbScript %> <HTML><HEAD><TITLE>Curso ASP</TITLE></HEAD> <BODY><CENTER> <% dim final final = "</CENTER></BODY></HTML>" On Error Resume Next Set Obj = Server.CreateObject("Scripting.FileSystemObject") Application.Lock Set arquivo = Obj.OpenTextFile("D:\pessoas.txt",8) if Err then Response.write "Ocorreu um erro tentando abrir arquivo!" Response.write final Response.End end if Arquivo.WriteLine(Request("Nome")) Arquivo.WriteLine(Request("Email")) arquivo.close if Err then Response.write "Ocorreu um erro tentando gravar no arquivo!" Response.write final Response.End else Response.Write "Dados inseridos com sucesso!" & "<BR>" Response.Write "Nome:" & Request("Nome") & "<BR>" Response.Write "Email :" & Request("Email") end if Response.Write final %>
Fonte: Tutorial escrito por "LINEU ANTONIO DE LIMA SANTOS"
-
exemplo (usando componente CDONTS)
-
pessoal de uma olhada no catho(www.catho.com.br), vejam que eles mostram quantos cadastros feiro em engenhria... quantos cadastros feitos no dia, é assim que quero fazer.
O que eu postei é justamente para fazer isso.
-
"SELECT * FROM livro WHERE tombo='12345' Union SELECT * FROM monografia WHERE tombo='12345'"
-
Fechado
-
ÃHN!?!?!
beleza!!!
Eu tinha entendido que ele não queria ignorar as tags e sim impedir que elas fossem cortadas tipo: </di ao invés de </div>
-
não seria:<%@LANGUAGE="VBSCRIPT" %>
<a href="?varia=02">02</a>
<a href="?varia=03">03</a>
<%
a = Request.QueryString("varia")
Select Case a
Case "02" %>
<!--#INCLUDE file="02.asp"-->
<% Case "03" %>
<!--#INCLUDE file="03.asp"-->
<% End Select %>
vlw cara
é que eu to começando agora
ai sempre acontece essas viajens ai hehehe
brigadao
falou
Beleza!!
Isso acontece com todo mundo, não é só com iniciante não.
Para evitar esse tipo de erro ou pelo menos identifica-lo com maior facilidade o ideal é usar option explicit ai voce é obrigado a declarar todas as variaveis assim quando voce usar uma variavel indevida vai dar erro de variavel não declarada.
-
não seria:
<%@LANGUAGE="VBSCRIPT" %><a href="?varia=02">02</a>
<a href="?varia=03">03</a>
<%
a = Request.QueryString("varia")
Select Case a
Case "02" %>
<!--#INCLUDE file="02.asp"-->
<% Case "03" %>
<!--#INCLUDE file="03.asp"-->
<% End Select %>
-
Noticia é bem facil:
* cadastro de noticias
* alteração / exclusão de noticias
* pagina que lista as ultimas noticias (mesma lógica da listagem das enquetes)
* pagina com detalhes da noticia (só fazer o select no banco e exibir)
-
"SELECT * FROM livro, monografia WHERE livro.tombo='12345' and monografia.tombo='12345'"
-
sem navegação por parte do usuário acho complicado, é igual aki no forum aparece o alerta de PM quando a pagina é recarregada.
-
da uma olhada c o link ta apontando para o arquivo correto.
vou criou o arquivo resultados.asp na mesma pasta que o link esta apontando??
-
nesse caso bareta ele ainda teria que fazer clicando, não teria?
Acho que se conseguir usar JS para definir um value para o campo file não iria precisar clicar pois o script pode dar um submit() automatico.
mais o ideal seria dar uma olhada na documentação do componente para ver a possibilidade de setar um arquivo para upload via script.
-
outra idéia é testar uma session de logado.
Tipo coloca no script:
if session("logado") = true and session("mensagem") <> "lida" then 'aqui voce coloca um script que verifica se existem mensagens a serem exibidas, c tiver voce abre o pop-up com a mensagem. session("mensagen") = "lida" ' identifica que o usuário já leu a mensagem. end if
-
o mais dificil voce já fez que é saber quem esta logado.
Agora é so criar um loop dentro desta lista de usuários de enviar a mensagem.
tente ser mais especifico na duvida.
-
Valeu cyberalexxx
era isso mesmo, so que ele mostra todas as enquetes, se eu não quiser ver a mais recente como eu faço, num sei se é possível mas se for...
faz assim na pagina que lista as enquetes:
sql="Select * from questoes order by data desc" set rs=conexao.execute(sql) If not rs.eof then Rs.MoveNext end if Do while not rs.eof response.write "<a href='resultados.asp?enquete=" & Rs("cod_questao") & "'>" & Rs("questao") & "</a><br>" Rs.MoveNext Loop
-
-
voce pretende usar algum componente para upload?? qual???
-
if left(request.servervariables("HTTP_ACCEPT_LANGUAGE"),5) = "pt-br" then response.write "primeira palavra encontrada" end if
ouif Instr(request.servervariables("HTTP_ACCEPT_LANGUAGE"),"pt-br") = 1 then response.write "primeira palavra encontrada" end if
-
-
crie essa pagina:
resultados.asp
<% Option Explicit 'Criando variáveis Dim localbd, meubd, votosTotal, votos 'Indicando local do Banco de dados localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("bd/bd.mdb") 'Setando conexao set meubd=server.createobject("adodb.connection") 'Faremos dois recordset, uma para mostrar a quantidade de todos os votos 'e outro para mostrar os votos de cada opção set votosTotal=server.createobject("adodb.RecordSet") set votos=server.createobject("adodb.RecordSet") meubd.Open localbd 'Agora a SELECT dos votos individuais votos.open "SELECT * from Votos, questoes where votos.cod_questao=" & request("enquete") & " and votos.cod_questao = questoes.cod_questao order by data desc", meubd 'Fazendo a SELECT do total de votos votosTotal.open "SELECT sum(votos) as totalvotos from votos where cod_questao ="&votos.fields("cod_questao")&"", meubd %> <html> <title>Sistema de Enquete</title> <style type="text/css"> body {background: #000066; font:Arial, Helvetica 10px; color: white;} font {color:#FFFFFF; size: 2; font:Arial, Helvetica, sans-serif} a:link {color: white} a:visited {color: white} a:hover {color: red} </style> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="200" height="250" border="0" cellpadding="1" cellspacing="2"> <tr> <td height="25"><strong><font> <% 'Mostrar aqui a questão response.write votos.fields("questao") %> </font></strong></td> </tr> <tr> <td valign="top"><div align="center"> <font><strong><font>Resultado - <%=votostotal.fields("totalvotos")%> votos</font></strong></font><font face="Arial, Helvetica, sans-serif"> <font> <% dim porcentagem 'Fazer a repetição das opções com seus votos em porcentagem While NOT votos.EOF %> </font></font><font> </font> <table width="100%" border="0" cellspacing="1" cellpadding="0"> <tr> <td><font> <% 'Mostrar opção response.write votos.fields("opcao") %> </font></td> </tr> <% 'Aqui será feita a conta dos votos em porcentagem porcentagem = votos.fields("votos")*100 porcentagem = porcentagem / votosTotal.fields("totalvotos") %> <tr> <td height="18" valign="middle"><font><img src="img.gif" width="<%=porcentagem%>%" height="10"> <font> <% 'Mostrar valor em porcentagem com apenas uma casa decimal response.write formatnumber(porcentagem,1) %> % </font></font></td> </tr> </table> <font> <% votos.movenext wend %> </p> </font> </font> <p><font> <% 'Se o voto do usuario já havia sido feito mostrar uma mensagem if request.querystring("status")="Invalido" then response.Write "<b>Você já votou hoje</b>" end if %> </font></p> </div></td> </tr> </table> </body> </html>
-
sql="Select * from questoes order by data desc" set rs=conexao.execute(sql) Do while not rs.eof response.write "<a href='resultados.asp?enquete=" & Rs("cod_questao") & "'>" & Rs("questao") & "</a><br>" Rs.MoveNext Loop
Asp
em ASP
Postado
o q é necessitar de VBScript??? ter o VB instalado??
para rodar o ASP voce só precisa instalar um web server, o IIS já vem no CD do Windows XP Pro. no caso do windows 98/me tem q instalar o PWS que tambem vem no CD de instalação.