Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2.500

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por cyberalexxx

  1. Máx Caracteres

    em ASP

    Postado

    Resolvi testar isso e consegui passar 2021 caracteres.

    Segue abaixo o script que eu fiz para testar isso:

    <script language='VBScript'>
   function qtdade()
      for x = 1 to document.formulario.limite.value
         variavel=variavel & "1"
      next
      document.formulario.teste.value=variavel
   end function
</script>

<%
response.write "<form method='get' name='formulario' action='" & request.servervariables("script_name") & "'>"
response.write "Qtdade para teste:<input name = 'limite' type='text' value='1' Onblur='qtdade()'>"
response.write "<input readonly='true' name = 'teste' type='text' value='" & variavel & "'>"
response.write "<input type='submit' value='testar' name='botao'>"
response.write "</form>"
if request("botao") = "testar" then
   response.write "tamanho da string: " & len(request("teste"))
end if
%>

  3. Datas E Bd - Dúvidas

    em ASP

    Postado

    Gênio!!! Consegui, CyberAlex.

    Só um detalhe... Aqui no meu caso (trabalho) tanto windows quanto Access estão em inglês. Mas tudo bem, valeu por ter funcionado. Obrigado pelo esforço de todos

    beleza!!!

    To fechando o tópico!!!

  6. Contator De Noticias.. Aparece So 3

    em ASP

    Postado

    Este codigo vai pegar 4 registros pular o primeiro e exibir os tres restantes.

    <% sqlstmt = "SELECT top 4 * FROM noticias ORDER BY data, id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, Dados, 1, 1
x=0
Do while not Rs.Eof
if x > 0 then
fotel = rs("foto")
date1 = rs("data")
id = rs("ID")
name1 = rs("titulo")
link = "<a href='view.asp?id=" & id & "'>" & name1 & "</a>"
description = date1
end if
x=x+1
%><font size="1"> </font>



<tr>
<td width="36">
<% if rs("foto") = "N" then %><font size="1"> </font>
<font size="1">
<% else %>
<% end if %>

<font size="1"> </font>



<tr>
<td width="187">
<% if rs("foto") = "N" then %><font size="1"> </font>
<font size="1">
<% else %>
<% end if %></font></b><p><b><font face="verdana" size="1" color="#800000"> <%=description%></font></b><font size="1">

<% =link %>
<%Rs.MoveNext
loop%> <br>

  7. Erro!

    em ASP

    Postado

    parece q o problema se resolveu... outra pergunta:

    Isso está certo?

    dim sql : sql = " SELECT codUsuario , nomeUsuario , login, senha, emp_origem, cargo, "

    sql = sql + "setor, email, telefone, ativacao, inativacao from Usuarios where codUsuario = "&codUsuario

    Esta certo sim!!

  8. Datas E Bd - Dúvidas

    em ASP

    Postado

    Uma coisa muito comum que percebo é o seguinte:

    O SQL só fala ingles e o Access fala português, já tive problemas com faixa de datas e consegui solucionar assim:

    anoi=year(Request.Form("DATA1"))
mesi=month(Request.Form("DATA1"))
diai=day(Request.Form("DATA1"))
anof=year(Request.Form("DATA2"))
mesf=month(Request.Form("DATA2"))
diaf=day(Request.Form("DATA2"))
Session.LCID=1033 
ComandoSQL = "SELECT * FROM OS WHERE DATA BETWEEN #" & DateSerial(anoi,mesi,diai) & "# and #" & DateSerial(anof,mesf,diaf) & "# ORDER BY DATA ASC"
Set bd = Conexao.Execute(ComandoSQL)
Session.LCID=1046

  9. Erro!

    em ASP

    Postado

    antes de abrir o recordset de um response.write na variavel sql pra ver c ela esta sendo montada da forma desejada, se mesmo assim tiver duvidas poste o resultado aki.

  10. Duvida Com Replace Com Html

    em ASP

    Postado

    ph34r.gif

    Set oObjetoHTML = CreateObject("htmlfile")
oObjetoHTML.write(StringueDeHTML)
oTexto = oObjetoHTML.Body.InnerText
oResumo = Left(oTexto, 300)

    Onde StringueDeHTML é o codigo html de onde você vai retirar o texto

    rolleyes.gif

    Neste exemplo as tags html não seriam ignoradas???

  18. Contar Letras De Uma String E Remover Caracteres

    em ASP

    Postado

    Olha aki um exemplo, testa que fiz agora e to sem IIS pra testar.

    <%
texto="teste 123 teste 123 teste"
tamanho = len(texto)
response.write "Tamanho da string: " & tamanho & "<br>"
for i = 1 to tamanho
   if Isnumeric(mid(texto,i,1)) = true then
      numeros = numeros & mid(texto,i,1)
   end if
next
response.write "Numeros da String: " & numeros
%>

    Que a força esteja com voce!!

  19. Criando Tabelas No Banco De Dados Via Sql

    em ASP

    Postado

    tente

    ASP

    nome="maria"

    nome1="nazare"

    sql="SELECT * FROM tabela WHERE nome='"&nome&"' or nome='"&nome1&"'"

    masi dai vai ocorrer aquele problema que eu tinha citado, ele só vai exibir o segundo nome que está na variavel nome1 se ele não encontrar nenhum registro que está em nome entende ??

    quando na verdade ele teria que exibir todos os registros que tenham esses coisa nomes !!

    Quando lhe indiquei o UNION nem testei o uso do OR, mais agora resolvi testar e funcionou normalmente.

    Ps: Não testei via script apenas digitei o select no MySQL Query Browser

  21. Problemas Com Zero Na Data

    em ASP

    Postado

    foi caca minha, olha aki:

    <%
function Datas(x)

if not x = "" Then
y=split(x,"/")
Dia = y(0)
Mes = y(1)
Ano = y(2)

If Len(Dia) = 1 Then Dia = "0" & Dia
If Len(Mes) = 1 Then Mes = "0" & Mes

Datas = Ano & mes & dia
end if
end function

vardata = Datas(Request.Form("opera_busca"))
response.Write(vardata)
response.End()
%>

  22. Problemas Com Zero Na Data

    em ASP

    Postado 

    <%
function Datas(x)

if not x = "" Then
y=split(x,"/")
Dia = x(0)
Mes = x(1)
Ano = x(2)

If Len(Dia) = 1 Then Dia = "0" & Dia
If Len(Mes) = 1 Then Mes = "0" & Mes

Datas = Ano & mes & dia
end if
end function

vardata = Datas(Request.Form("opera_busca"))
response.Write(vardata)
response.End()
%>

×
×
  • Criar Novo...