Troca de dados entre arquivos de texto e arquivos de banco de dados no ASP
A aplicação de bancos de dados de rede é um componente muito importante do www. Pode -se dizer que, se falta um banco de dados, a rede perderá sua alma. Você pode imaginar como é difícil encontrar uma meta on -line sem mecanismos de pesquisa como Yahoo e Sohu. Todo mundo fica confuso e perde o vasto mar da Internet. De fato, esses mecanismos de pesquisa são os aplicativos mais típicos dos bancos de dados de rede. Existem muitas operações diretas nos bancos de dados na tecnologia ASP (Páginas do Servidor Ativo). A seguir, descreve um método de transmitir dados de arquivos de texto para arquivos de banco de dados.
Este formulário de texto é coletado e transmitido para um diretório fixo do servidor pelo terminal. O servidor lê os dados e o armazena no banco de dados local. Após a conversão, o arquivo de texto é excluído. Dessa forma, o terminal é responsável por coletar dados e carregá -los no diretório designado do servidor no formato fornecido. O banco de dados do lado do servidor é completamente opaco para o terminal, garantindo a segurança do servidor e pode ser um pouco útil para os aplicativos atuais de banco de dados de rede.
Txttolib.asp
<html>
<head>
<meta http-equiv = refresh content = 30; url = deltext.asp>
<meta http-equiv = content-type
content = texto/html; charset = gb_2312-80>
<meta nome = conteúdo do gerador = Microsoft FrontPage Express 2.0>
<title> [Converter arquivos de texto em arquivos de banco de dados] </ititle>
</head>
<corpo bgcolor =#ffffff>
<align = Center>
<p align = Center> <font color =#ff0000> Os dados estão sendo processados, aguarde!
<br>
</font> <font color =#000000> <align = Center> <%
str = server.mappath (/) 'Obtenha o diretório raiz do servidor
Set fso = createObject (script.filesystemObject)
Set f = fso.getFolder (str & /theText)
Definir FC = F.Files
k = 1
Para cada F1 no FC
arquivo (k) = f1.name 'Obtenha todos os nomes de arquivos neste caminho
k = k+1
próximo
%> <%ii = 1%> <%
set fs = createObject (script.filesystemoBject)%> <%
enquanto ii <k
Response.Write File (ii) & <br>
Definir textInstance = fs.opentExtFile (str & / theText / & file (ii), 1, false, false) 'Abra o arquivo para ler os dados
enquanto textInstance.atendofstream <> true 'se o arquivo não terminar
visitornum = textInstance.readline 'Leia uma linha de dados
j = 0
CD = Len (VisitorNum)
para i = 1 para CD
Se mid (visitornum, i, 1) =, então 'os dados são separados por ","
j = j+1
outro
Selecione o caso J 'obtém cada valor de dados separadamente
Caso 0
me1 = me1+mid (visitornum, i, 1)
Caso 1
me2 = me2+mid (visitornum, i, 1)
Caso 2
me3 = me3+mid (visitornum, i, 1)
Caso 3
me4 = me4+mid (visitornum, i, 1)
Caso 4
me5 = me5+mid (visitornum, i, 1)
Caso 5
me6 = me6+mid (visitornum, i, 1)
final Selecione
final se