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

  3. For

    em ASP

    Postado

    um exemplo testa ai:

    set conexao=server.createobject("adodb.connection")
caminho="DBQ=" & server.mappath("banco.mdb")
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & caminho

sql = "Select top 1 * from tabela order by data desc"
set rs=conexao.execute(sql)

datainicial = Cdate(rs("data")) + 1
datafinal = Cdate("31/12/2005") 'aki voce define até onde quer ir

Do while datainicial <= datafinal
   sql = "Insert into tabela data values('" & datainicial & "')"
   conexao.execute(sql)
   datainicial = datainicial + 1
loop

    Testa ai

    Ah!! se registre no forum!!

  11. Syste.ini

    em Visual Basic

    Postado

    uma lógica:

    * abra o sistem.ini para leitura

    * leia a linha e guarde seu valor em um vetor

    * faça uma comparação se a linha é a linha que inicia o bloco boot.

    * caso tenha encontrado o bloco boot adicione ao vetor a linha q você quer incluir

    * depois que tiver percorrido todo o arquivo linha a linha voce terá um vetor com todo o conteudo do system.ini

    * feche o arquivo que estava em modo de leitura

    * abra o arquivo sistem.ini no modo de sobrepor e grave todo ele novamente com base no vetor.

  12. 2 Campos Em Uma Coluna

    em ASP

    Postado

    Prezado cyberalexxx,

    Minha pergunta pode ter parecido bem idiota, mas sou iniciante em ASP e precisava de algo um pouco mais explicado, entende?

    Se for possível, gostaria de saber como faço para conseguir a solução citada por você.

    Grato

    dry.gif

    'recupera dados do form
nome = Request("nome")
sobrenome = request("sobrenome")
idade = request("idade")

'concatenando valores
valorparainserir = nome & " " & sobrenome & ", " & idade & " anos"

'criando instruçõ SQL
sql = "Insert into tabela(usuario) values('" & valorparainserir & "')"

'inserindo o valor no BD
conexao.execute (sql)

  14. Contador De Fotos

    em ASP

    Postado

    tenta isso:

    rsconta.Open "SELECT count(Festas.*) as totaldefotos FROM Imagens RIGHT JOIN Festas ON Imagens.Codigo = Festas.Imagem01 WHERE Festas.Tipo = 2 ORDER BY Festas.Data DESC", conn

response.write "Total de fotos na galeria: " & rsconta("totaldefotos")

  15. Contador De Fotos

    em ASP

    Postado 

    sql = "Select count(campo) as totaldefotos from tabela where galeria=1"
set rs = conexao.execute(sql)
response.write "Total de Fotos na galeria: " & rs("totaldefotos")

    neste exemplo aparecera o total de fotos da galeria 1

  19. Tradução De Codigo

    em ASP

    Postado 

    'recupera valores dos formularios para variaveis:
email_fla = Request("email_input") 
senha_fla = Request("senha_input")

'define uma instrução SQL de consulta 
strSQL = "SELECT * FROM usuarios WHERE email LIKE '" & email_fla & "'"

'cria um recordset com os dados da consulta
oRS.Open strSQL, oConn, 2, 3

If oRS.EOF Then ' caso não encontre dados
 Response.Write "success=False&" 'variavel sucess é falsa
Else 'caso contrario
 Response.Write "success=True&" 'variavel success é verdadeira

 Do While Not oRS.EOF 'laço exucutado até o ultimo registro do recordset
  senha_db = oRS("senha") ' define um variavel com o valor do campo senha

  If senha_db = senha_fla then 'compara se o valor do banco com o valor do form
   Response.Write "resultado=True&nome_db=" 
  Else
   Response.Write "resultado=False&nome_db="
  End If

  nome_db = oRS("nome") 'define a variavel nome_db com o valor do campo nome do BD
 oRS.MoveNext 'move o cursor para o proximo registro
 Loop 'loop é loop mesmo ou seja volta a iniciar o laço


End If

'fechando e destruindo objetos
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing

  20. Carrinho De Compras

    em ASP

    Postado

    tá

    isso que vocês falaram eu sei

    e já está pronto

    o problema é como inserir em um unico registro todos os codigos dos produtos e todos os respectivos produtos.

    e depois, exibilos para o admin

    cada codigo e cada produto dakele msmo usuario para o admin!

    =\

    crie um tabela itensdopedito onde voce coloca todos os produtos comprados bem como codigo do produto, quantidade, preço, ai voce coloca também o numero do pedido e o codigo do cliente, quando for exibir o pedido é só dar um select filtrando a query pelo codigo do pedido.

  22. Host Websamba

    em ASP

    Postado

    rode esse script no servidor para ver se o componente esta instalado:

    <% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(12)
Dim theComponentName(12)

' componentes
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"
theComponent(12) = "Dundas.Upload.2"

' apelido do componente!
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"
theComponentName(12) = "Dundas Upload"

Function IsObjInstalled(strClassString)
On Error Resume Next
  IsObjInstalled = False
  Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
  Err = 0
End Function
%>
<html>
<head>
<title>O q tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes 
      instalados:</b></font></td>
  </tr>
  <tr>
    <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <% 
  Dim i
        For i=0 to UBound(theComponent)
      If Not IsObjInstalled(theComponent(i)) Then
      
  Else
            Response.Write "<tr>" & vbCrLf
          Response.Write "<td width=""100%"">" & vbCrLf
          Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
          Response.Write "</td>" & vbCrLf
          Response.Write "</tr>" & vbCrLf
      End If
    Next 
    %>
  </table>
</font> 
</td>
  </tr>
</table>

</body>
</html>

    esse foi o primeiro script que eu achei aki na minha maquina. mais já testa o CDONTS, se voce der uma procurada no forum vai encontrar mais scripts que verificam quais componentes estão instalados, se não me engano peguei um aki uma vez que testa mais de 50 componentes, sõ não lembro onde salvei o infeliz

  24. Gerar Senha

    em ASP

    Postado

    acho que não é uma boa ideia

    fiz besteira

    aiuhoaiuhaiuhaoia

    tá gerando sempre a mesma senha, e to tentando desobrir o motivo!

    como eu sou burro!

    auiihaoiuha

    Se estiver usando RND de uma olhada se voce esta colocou um Randomize antes

  25. Gerar Senha

    em ASP

    Postado

    mais um exemplo (totalmente aleatório):

    <%
randomize
caracteres="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
matriz=split(caracteres,",")
for x = 1 to 6
   valor = matriz(Ubound(matriz) * rnd)
   senha = senha & valor
next
response.write senha
%>

×
×
  • Criar Novo...