Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Lendo arquivo CVS

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

do nosso membro luizsnpjr

 

default.asp

<head>
<meta http-equiv="Content-Language" content="pt-br">
</head>

<script language="javascript">
function ajaxInit() {
        var req;
        try {
            req = new ActiveXObject("Microsoft.XMLHTTP");
        } catch(e) {
            try {
                req = new ActiveXObject("Msxml2.XMLHTTP");
            } catch(ex) {
                try {
                    req = new XMLHttpRequest();
                } catch(exc) {
                    alert("Esse browser não suporta Ajax");
                    req = null;
                }
            }
        }
        return req;
    }

    function lerValor(caminho,arquivo){
        valor = ajaxInit();
        valor.open("GET",'arquivo.asp?caminho='+caminho+'&arquivo='+arquivo, true);
        valor.onreadystatechange=function() {
              if (valor.readyState==1){
            document.getElementById("vvalor");
            }
            if ((valor.readyState==4) && (valor.status==200)){
        
            document.getElementById("ler_Valor").innerHTML = valor.responseText;
            }
        }
        valor.send(null);
    }
</script>

<div id="vvalor"></div>
<div id="ler_Valor"></div>
<form name="formulario" id="formulario" method="POST" action="javascript:CadastrarDados();" enctype="multipart/form-data">
	<p>CAMINHO: <input type="text" id="caminho" size="50"><br> ARQUIVO:  <input type="text" id="arquivo" size="30"></p>
	<p><input type="button" value="Enviar" name="B1" onClick="lerValor(document.getElementById('caminho').value,document.getElementById('arquivo').value);"></p>
</form>

arquivo.asp

<%
CAMINHO = request.querystring("caminho")
ARQUIVO = request.querystring("arquivo")

Set RS_CVS = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)}; Dbq="&CAMINHO&"; Persist Security Info=False;"

RS_CVS.Open "Select * From "&ARQUIVO, Conn

	Do
		If RS_CVS.Eof = True Then Exit Do
Response.Write "Nome: " & RS_CVS("Nome") & "<br>"
response.write "Email: " & RS_CVS("Email") & "<br><br>"
	RS_CVS.Movenext
	Loop
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito