Ir para conteúdo
Fórum Script Brasil

DELPHI-Man32

Veteranos
  • Total de itens

    895
  • Registro em

  • Última visita

Sobre DELPHI-Man32

  • Data de Nascimento 18/09/1982

Contatos

  • MSN
    mf_vagner@hotmail.com
  • Website URL
    http://www.voetasp.com.br
  • ICQ
    0

Perfil

  • Gender
    Male
  • Location
    Jacundá-PA
  • Interests
    tecnologia

DELPHI-Man32's Achievements

0

Reputação

  1. para gravar no banco de dados; nome = request.form("nome") idade = request.form("nome") sql = "insert into tabela(nome,idade) values('"&nome&"',"&idade&") conexao.execute(sql) response.write "Você cadastrou o nome: "&nome&", de "&idade&" anos." fechar conexao e destruir objeto Conexao.close set Conexao = nothing Obs: O chave primaria da tabela deve ser definida como um campo auto-increment, ou então criar uma rotina para incrementar o valor, que normalmente é um "ID" tipo integer;
  2. <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0" width="728" height="90"> <param name="movie" value="arquivo.swf" /> <param name="quality" value="best" /> <param name="menu" value="true" /> <param name="allowScriptAccess" value="sameDomain" /> <embed src="arquivo.swf" quality="best" menu="true" width="728" height="90" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" allowScriptAccess="sameDomain" /> </object> Acho que o ASP não tem nada a ver com isso, esse codigo ai não resolveria?
  3. Se apenas para somar e saber a quantidade de registros, SQL no inicio e coloca o valor numa variavel, depois imprimi ela onde você quiser na pagina. sql = "select count(id) as total from tabela" set rs = conexao.execute(sql) total = rs("total") na hora de mostrar: <%=total%>
  4. mas se eu passar nesse formato a data, o script não atualizado o contador, fica parado, não decrementa, se eu voltar ao formato Date(); ai sim ele atualiza o contador. estou criando a variavel e colocando o valor da data: no JS estou colocando o valor var hoje = new Date(<%=hojeASP%>); ele mostra o tempo que falta, mas fica parado sem atualizar. alguém sabe me dizer o por quê?
  5. olá sebastiao, obrigado pela resposta, mas o que eu quero é saber qual o formato que sai dessa função Date() do java script, pra que colocar uma igual. ex. formado de saida da função dia 20/4/2011 e hora 15h00m25s quero saber como fica a saída da função, eu sei que ela pega a data do cliente e quero por exemplo usar as função do asp para montar o dia e colocar dentro dessa função, assim como você pode perceber na variavel "futuro". Thu Apr 21 16:05:42 UTC+0430 2011 <-- esse é o furmato, usando a função write.
  6. <script type="text/javascript"> function atualizaContador(YY,MM,DD,HH,MI,saida) { var SS = 00; var hoje = new Date(); var futuro = new Date(<%=OfertaDia("v_ano")%>,<%=OfertaDia("v_mes")%>-1,<%=OfertaDia("v_dia")%>,23,59,59); var ss = parseInt((futuro - hoje) / 1000); var mm = parseInt(ss / 60); var hh = parseInt(mm / 60); var dd = parseInt(hh / 24); ss = ss - (mm * 60); mm = mm - (hh * 60); hh = hh - (dd * 24); var faltam = 'Faltam: '; //faltam += (dd && dd > 1) ? dd+' dias, ' : (dd==1 ? '1 dia, ' : ''); faltam += (toString(hh).length) ? hh+':' : ''; faltam += (toString(mm).length) ? mm+':' : ''; faltam += ss; if (dd+hh+mm+ss > 0) { document.getElementById(saida).innerHTML = faltam; setTimeout(function(){atualizaContador(YY,MM,DD,HH,MI,saida)},1000); } else { document.getElementById(saida).innerHTML = ''; setTimeout(function(){atualizaContador(YY,MM,DD,HH,MI,saida)},1000); } } window.onload=function(){ atualizaContador('<%=OfertaDia("v_ano")%>','<%=OfertaDia("v_mes")%>-1','<%=OfertaDia("v_dia")%>','23','59','elemento'); } </script> Olá pessoal, estou com esse script ai para fazer uma contafem regressiva de uma oferta num site, porém preciso informar ao script a data atual do servidor e não do computador cliente que roda o javascript, pois posso incorrer no erro da data do pc do visitante esteja errada, ai ele não mostrará o tempo restante, é tipo esse lance dos sites de compra coletiva. como posso colocar a data do servidor, tipo a data que vem do banco de dados como já esta no script? var hoje = new Date(); <<---------- aqui, pois pega a data atual do pc, quero colocar ai a do servidor, usando asp. qualq seria o formado dessa data ai em JS? abraços.
  7. 'rapidim... sql = "select sum(comissao) as total from vendas" set rs = conexao.execute(sql) comissao_vendedor = rs("total") response.write "R$ "& comissao_vendedor não resolve isso ai em cima?
  8. olá pessoal, o q quero é o seguine! numa página ASP, receberei varios registros, e para cada registro será criado um checkbox com valor do id do registro! nessa mesma página quero uma função em javascript para criar um array onde os elementos serão os valores dos ids que estao nos checkbox's! tipo: os checkbox's [ ] João, id=1 [ ] Pedro, id=2 [ ] Carlos, id=7 ai quando o usuario clicar nos checkbox's chama a função q vai incrementar o array com os valores seleionados (id); Ex. Se for clicado em: joao e pedro, nessa orderm! o array terá: Array[1,2]; caso seja carlos e pedro Array[7,2]; depois do array montado, ele será jogado num url passando para outra asp a qual ira inserir noutra tabela esses valores dos ids tipo: grava.asp?arrayID=7,2 ou grava.asp?arrayID=1,2 beleza?
  9. amigo você pode! Dim Data Data = Now 'retorna daa e hora Dim Dia, Mes, Ano, Data Dia = Day(now) Mes = Month(now) Ano = Year(now) Data= Dia&"/"&Mes&"/"&Ano
  10. DELPHI-Man32

    Que erro esse?

    não sei, mas pode ser tamanho do campo menor que o conteudo! dê uma olhada também no sql! executar= "update noticias set conteudo = '"&VarDesc&"',data = '"&vdata&"',fonte = '"&vfonte&"',titulo = '"&vtitulo&"' where codigo = "&id&"" separa os campos do update! executar= "update noticias set conteudo = '"& VarDesc &"', data = '"&vdata&"', fonte = '"&vfonte&"', titulo = '"&vtitulo&"' where codigo = "& id &""
  11. feriadao de carnaval, tava off!!! mas eu no mesmo dia eu resolvi! funçei ate arrumei! agora a certinho! abração Rafa! obrigado!
  12. me pareve um erro de concatenaçao da string... '9:43:53,IpAlterado='192.168.0.1' WHERE ID=17' -------------^
  13. valeu Rafa! eu tinha feito isso, mas acontece um erro que não sei porquê! veja só! quando desenho a imagem no relatório, ele fica desorganizado os dados do loop que pegaos valores do banco de dados! já quando eu deixo sem imagem, ele gera o raltório certinho! segue os links! Com a imagem no relatorio! pdf com imagem sem a imagem sem imgame com logo, mas sem os dados do banco(sem loop) com logo, mas sem os dados do banco(sem loop) veja ai e me diz! o que pode estae errado... abração segue o script! <%@LANGUAGE="VBSCRIPT"%> <% Dim RelatorioPDF, i,a,y Dim RelatorioPDF_numRows 'variaveis com as coordenadas para impressao de textos do loop i = 40 'coordenadas gerais a = 10 y = 30 z = 35 Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "PROVIDER=Microsoft.JET.OLEDB.4.0; Data Source="& Server.MapPath("*********") Set RelatorioPDF = Conn.Execute("select * from ESCOLAS order by nome asc") Set TotalEscolas = Conn.Execute("select count(id) as Total from ESCOLAS") Set TotalSalas = Conn.Execute("select SUM(salas) as Salas from ESCOLAS") RelatorioPDF_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RelatorioPDF_numRows = RelatorioPDF_numRows + Repeat1__numRows %> <!--#include file="fpdf.asp"--> <% dim pdf, caminho '// criando o pdf logo = "logo.jpg" set pdf = CreateJsObject("FPDF") '// aki poderemos adcionar várias funções como titulos padroes para todas as páginasm numeração de páginas e etc. '// montando o corpo do pdf, setando o tipo da folha, tipo de medida e o tamanho da folha pdf.CreatePDF "P","mm","A4" pdf.SetPath("fpdf/") pdf.Open() '// adcionando página pdf.AddPage() '// setando grossura da linha pdf.SetLineWidth(0.3) '// setando fonte e tamanho pdf.SetFont "Arial","B",12 'texto do topo do documento pdf.Text "10","15","PREFEITURA MUNICIPAL DE JACUNDÁ" pdf.SetFont "Arial","",10 pdf.Text "10","19","SECRETARIA MUNICIPAL DE EDUCAÇÃO" pdf.Text "10","23","SIMAE - Sistema Integrado de Matrículas e Acompanhamento Escolar" pdf.Text "10","29","Relatório Simplificado: ESCOLAS CADASTRADAS" '// setando linhas, reapare que, as medidas são feitas em x1, y1, x2 e y2, començando no ponto inicial de x e y e finalizando nos mesmo. '// criamos aki uma linha horizontal, a linha pode ser feita de qualquer jeito, vertical, diagonal e td mais, somente setando os valores de x e y. pdf.Line "10",31,"200",31 pdf.SetFont "Arial","B",8 '// escrevendo um texto pdf.Text "10",z,"TIPO:" pdf.Text "25",z,"NOME:" pdf.Text "75",z,"LOCALIZAÇÃO:" pdf.Text "100",z,"CÓD. INEP:" pdf.Text "129",z,"SALAS:" pdf.Text "145",z,"DIRETOR:" pdf.Line "10",36,"200",36 pdf.SetFont "Arial","",8 While NOT RelatorioPDF.EOF pdf.Text "10",i,RelatorioPDF.Fields.Item("moda").Value pdf.Text "25",i,RelatorioPDF.Fields.Item("nome").Value pdf.Text "75",i,RelatorioPDF.Fields.Item("localiza").Value pdf.Text "100",i,RelatorioPDF.Fields.Item("inep").Value pdf.Text "130",i,RelatorioPDF.Fields.Item("salas").Value if RelatorioPDF.Fields.Item("diretor").Value = "" then pdf.Text "145",i,"*******************" else pdf.Text "145",i,RelatorioPDF.Fields.Item("diretor").Value end if i = i+5 RelatorioPDF.MoveNext() Wend pdf.Line "10",i,"200",i pdf.Text "10",i+5,"Total de Escolas: "& TotalEscolas("Total") &", Total de Salas de Aula: "& TotalSalas("Salas") pdf.Text "10",i+10,"Relatório Gerado em: "& Day(Now)&"/"&Month(Now)&"/"&Year(Now) &" às "& Time() pdf.Close() pdf.Output() %> <% RelatorioPDF.Close() Set RelatorioPDF = Nothing %>
  14. olá pessoa, fiz uma busca e encontrei em parte o que preciso, gerar pdf com dados do mdb! ok, encontrei e adaptei. mas não encontrei nada sobre a função Image() do Fpdf! tentei usar, mas não da certo, estou usando o ASP para gerar o arquivo; gostaria de uma luz para poder insetir uma logo da empresa no relatorio, no topo acima do noma da empresa!!!! tentei. pdf.image("logo.jpg",10,50,0,0) mas deu erro dizendo que não posso usar parenteses para chamar a função! valeu
×
×
  • Criar Novo...