Porem eu quero que ela funciona sem precisar click e nem nada, ou seja meu codigo ASP da um loop e eu quero essa função entre o loop. meu codigo se trata de uma importação ao banco de dados e quero que a cada registro cadastrado execute essa função so que não sei como fazer funcionar, sewgue meu codigo abaixo:
<div style="width:540px;margin : 0 auto; text-align:left;" >
<h1> </h1>
<div id="demo">
<p style="text-align: center">
<span style="color:#006600;font-weight:bold;">Status da Importação</span> <br/>
<span class="progressBar percentImage1" id="element1">0%</span>
<br/><br/>
</div>
</div>
</body>
</html>
<!--#include file="conn.asp"-->
<%
conta=0
conta2=0
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set leitura1 = fso.OpenTextFile(server.MapPath("teste.txt"), 1, False)
Do While not leitura1.AtEndOfStream
leitura1.readline
conta= conta+1
loop
result= 100/conta
leitura1.close
set leitura1= nothing
Set leitura = fso.OpenTextFile(server.MapPath("teste.txt"), 1, False)
Do While not leitura.AtEndOfStream
str= leitura.readline & vbcrlf
tipo= Mid(str,1,1)
tipo2= cint(tipo)
cpf= Mid(str,2,11)
valor= Mid(str,13,9)
valor2 = valor / 100
data= mid(str,28,2) & "/" & Mid(str,26,2) & "/" & Mid(str,22,4)
data2 = cdate(data)
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.open "select * from clientes", conn, 3, 3
rsuser.addnew
rsuser("tipo")=tipo2
rsuser("cpf")=cpf
rsUser("valor") = valor2
rsuser("data")=data2
rsUser.Update
conta2= conta2 + result
if conta2>= "99" then
conta2="100"
end if
%>
Aqui eu quero que execute a minha função... mas sozinha.. sem click...
<%
Loop
leitura.close
set leitura=nothing
rsUser.close
set rsUser = nothing
conn.close
%>
Pergunta
Roberto Carvalho
Tenho um arquivo js incluso na minha pagina asp porem quando chamo a função assim:
onclick="myJsProgressBarHandler.setPercentage('element1','1');return false;"
ela funciona normal.
Porem eu quero que ela funciona sem precisar click e nem nada, ou seja meu codigo ASP da um loop e eu quero essa função entre o loop. meu codigo se trata de uma importação ao banco de dados e quero que a cada registro cadastrado execute essa função so que não sei como fazer funcionar, sewgue meu codigo abaixo:
<div style="width:540px;margin : 0 auto; text-align:left;" > <h1> </h1> <div id="demo"> <p style="text-align: center"> <span style="color:#006600;font-weight:bold;">Status da Importação</span> <br/> <span class="progressBar percentImage1" id="element1">0%</span> <br/><br/> </div> </div> </body> </html> <!--#include file="conn.asp"--> <% conta=0 conta2=0 Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set leitura1 = fso.OpenTextFile(server.MapPath("teste.txt"), 1, False) Do While not leitura1.AtEndOfStream leitura1.readline conta= conta+1 loop result= 100/conta leitura1.close set leitura1= nothing Set leitura = fso.OpenTextFile(server.MapPath("teste.txt"), 1, False) Do While not leitura.AtEndOfStream str= leitura.readline & vbcrlf tipo= Mid(str,1,1) tipo2= cint(tipo) cpf= Mid(str,2,11) valor= Mid(str,13,9) valor2 = valor / 100 data= mid(str,28,2) & "/" & Mid(str,26,2) & "/" & Mid(str,22,4) data2 = cdate(data) Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.open "select * from clientes", conn, 3, 3 rsuser.addnew rsuser("tipo")=tipo2 rsuser("cpf")=cpf rsUser("valor") = valor2 rsuser("data")=data2 rsUser.Update conta2= conta2 + result if conta2>= "99" then conta2="100" end if %> Aqui eu quero que execute a minha função... mas sozinha.. sem click... <% Loop leitura.close set leitura=nothing rsUser.close set rsUser = nothing conn.close %>Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.