Intercambio de datos entre archivos de texto y archivos de base de datos en ASP
La aplicación de bases de datos de red es un componente muy importante de www. Se puede decir que si falta una base de datos, la red perderá su alma. Puedes imaginar lo difícil que es encontrar un objetivo en línea sin motores de búsqueda como Yahoo y Sohu. Todos se confunden y pierden su camino en el vasto mar de Internet. De hecho, estos motores de búsqueda son las aplicaciones más típicas de las bases de datos de red. Hay muchas operaciones directas en bases de datos en la tecnología ASP (Páginas Active Server). A continuación se describe un método para pasar datos de archivos de texto a archivos de base de datos.
Este formulario de texto es recopilado y transmitido a un directorio fijo del servidor por el terminal. El servidor lee los datos y los almacena en la base de datos local. Después de la conversión, se elimina el archivo de texto. De esta manera, el terminal es responsable de recopilar datos y cargarlo al directorio designado del servidor en el formato dado. La base de datos del lado del servidor es completamente opaca para el terminal, asegurando la seguridad del servidor, y puede ser algo útil para las aplicaciones actuales de la base de datos de red.
Txttolib.asp
<html>
<Evista>
<meta http-oquiv = actual contenido = 30; url = deltext.asp>
<meta http-outiv = contenido-type
contenido = texto/html; Charset = GB_2312-80>
<meta name = generador content = Microsoft FrontPage Express 2.0>
<title> [Convertir archivos de texto en archivos de base de datos] </title>
</ablo>
<Body bgcolor =#ffffff>
<Align = Center>
<p align = center> <font color =#ff0000> Los datos se están procesando, ¡espere!
<br>
</font> <font color =#000000> <align = center> <%
str = server.mappath (/) 'Obtenga el directorio raíz del servidor
Establecer fso = createObject (scripting.filesystemObject)
Establecer F = fso.getfolder (str & /thetext)
Establecer FC = F.Files
K = 1
Para cada F1 en FC
Archivo (k) = f1.name 'Obtenga todos los nombres de archivo en esta ruta
K = K+1
próximo
%> <%ii = 1%> <%
establecer fs = createObject (scripting.filesystemObject)%> <%
Mientras que ii <k
Response.Swrite File (ii) y <br>
Establecer textInstance = fs.opeNextFile (str & / thetext / & file (ii), 1, falso, falso) 'Abra el archivo para leer los datos
mientras que TextInstance.atendofStream <> true 'si el archivo no termina
visitOrnum = textInstance.Readline 'Lea una línea de datos
J = 0
CD = Len (Visitornum)
para i = 1 a CD
Si Mid (visitornum, i, 1) =, entonces 'los datos se separan por ",", ",
j = j+1
demás
Seleccionar el caso J 'obtiene cada valor de datos por separado
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, yo, 1)
Caso 5
me6 = me6+mid (visitornum, yo, 1)
final seleccionar
final si