Échange de données entre les fichiers texte et les fichiers de base de données dans ASP
L'application des bases de données réseau est un composant très important de WWW. On peut dire que si une base de données est manquante, le réseau perdra son âme. Vous pouvez imaginer à quel point il est difficile de trouver un objectif en ligne sans moteurs de recherche comme Yahoo et Sohu. Tout le monde devient confus et perd son chemin dans la vaste mer d'Internet. En fait, ces moteurs de recherche sont les applications les plus typiques des bases de données réseau. Il existe de nombreuses opérations directes sur les bases de données dans la technologie ASP (Pages du serveur actif). Ce qui suit décrit une méthode de passage des données des fichiers texte vers les fichiers de base de données.
Ce formulaire de texte est collecté et transmis à un répertoire fixe du serveur par le terminal. Le serveur lit les données et les stocke dans la base de données locale. Après la conversion, le fichier texte est supprimé. De cette façon, le terminal est responsable de la collecte de données et de la téléchargement dans le répertoire désigné du serveur dans le format donné. La base de données côté serveur est complètement opaque au terminal, garantissant la sécurité du serveur, et peut être quelque peu utile pour les applications de base de données réseau actuelles.
TxtTolib.asp
<html>
<adal>
<meta http-equiv = rafraîchissement contenu = 30; url = delText.asp>
<Meta Http-Equiv = Type de contenu
contenu = text / html; charse = gb_2312-80>
<méta-name = contenu du générateur = Microsoft FrontPage Express 2.0>
<Title> [Convertir les fichiers texte en fichiers de base de données] </Title>
</ head>
<corps bgcolor = # ffffff>
<align = centre>
<P align = Center> <Font Color = # FF0000> Les données sont en cours de traitement, veuillez patienter!
<br>
</font> <Font Color = # 000000> <Align = Center> <%
str = server.mappath (/) 'Obtenez le répertoire racine du serveur
Set fso = createObject (scripting.fileSystemObject)
Set f = fso.getfolder (str & / thetext)
Définir FC = F.Files
k = 1
Pour chaque F1 en FC
Fichier (k) = f1.name 'Obtenez tous les noms de fichiers sous ce chemin
k = k + 1
suivant
%> <% ii = 1%> <%
set fs = createObject (scripting.fileSystemObject)%> <%
tandis que ii <k
Réponse.WRITE Fichier (II) & <br>
Définir TextInstance = Fs.OpenTextFile (STR & / THETXT / & FILE (II), 1, FAUX, FAUX) 'Ouvrez le fichier pour lire les données
tandis que textinstance.atendofstream <> true 'si le fichier ne finit pas
Visitornum = textinstance.readline 'Lire une ligne de données
j = 0
CD = Len (Visitornum)
pour i = 1 à CD
Si Mid (Visitornum, i, 1) =, alors «les données sont séparées par», »
J = J + 1
autre
Sélectionner le cas J 'obtient chaque valeur de données séparément
cas 0
ME1 = ME1 + MID (Visitornum, I, 1)
cas 1
me2 = me2 + mid (Visitornum, i, 1)
cas 2
me3 = me3 + mid (Visitornum, i, 1)
cas 3
me4 = me4 + mid (Visitornum, i, 1)
cas 4
ME5 = ME5 + MID (Visitornum, I, 1)
cas 5
me6 = me6 + mid (Visitornum, i, 1)
fin de sélection
terminer si