Datenaustausch zwischen Textdateien und Datenbankdateien in ASP
Die Anwendung von Netzwerkdatenbanken ist eine sehr wichtige Komponente von www. Man kann sagen, dass das Netzwerk seine Seele verliert, wenn eine Datenbank fehlt. Sie können sich vorstellen, wie schwierig es ist, online ein Ziel ohne Suchmaschinen wie Yahoo und Sohu zu finden. Jeder wird verwirrt und verliert sich im riesigen Meeresmeer. Tatsächlich sind diese Suchmaschinen die typischsten Anwendungen von Netzwerkdatenbanken. Datenbanken in der ASP -Technologie (Active Server Pages) gibt es viele direkte Vorgänge. Im Folgenden wird eine Methode zum Übergeben von Daten von Textdateien an Datenbankdateien beschrieben.
Dieses Textformular wird vom Terminal gesammelt und an ein festes Verzeichnis des Servers übertragen. Der Server liest die Daten und speichert sie in der lokalen Datenbank. Nach der Konvertierung wird die Textdatei gelöscht. Auf diese Weise ist das Terminal für das Sammeln von Daten und das Hochladen in das angegebene Verzeichnis des Servers im angegebenen Format verantwortlich. Die serverseitige Datenbank ist für das Terminal vollständig undurchsichtig, um die Sicherheit des Servers zu gewährleisten, und ist möglicherweise für aktuelle Netzwerkdatenbankanwendungen etwas hilfreich.
Txttolib.asp
<html>
<kopf>
<meta http-äquiv = aktualisiertinhalte = 30; url = deltext.asp>
<meta http-äquiv = content-type
content = text/html; charset = gb_2312-80>
<meta name = Generator content = microsoft FrontPage Express 2.0>
<titels> [Konvertieren Sie Textdateien in Datenbankdateien] </title>
</head>
<Body Bgcolor =#ffffff>
<align = center>
<P Align = Center> <font color =#ff0000> Die Daten werden verarbeitet, bitte warten!
<br>
</font> <font color =#000000> <align = center> <%
STR = Server.Mappath (/) 'Erhalten Sie das Stammverzeichnis des Servers
Setzen Sie fso = createObject (scripting.filesystemObject)
Setzen Sie f = fso.getFolder (STR & / /thetext)
Setzen Sie FC = F. Files
K = 1
Für jeden F1 in FC
Datei (k) = f1.name 'Rufen Sie alle Dateinamen unter diesem Pfad ab
K = K+1
nächste
%> <%ii = 1%> <%
Setzen Sie fs = createObject (scripting.FilesSystemObject)%> <%
während ii <k
Antwort.Write -Datei (ii) & <br>
Setzen Sie textInstance = fs.opentextFile (STR & / / thetext / & Datei (ii), 1, false, false) 'Öffnen Sie die Datei, um die Daten zu lesen
während textInstance.atendofstream <> true ', wenn die Datei nicht endet
Visitornum = textInstance.readline 'Lesen Sie eine Datenzeile
J = 0
CD = Len (Visitornum)
für i = 1 bis cd
Wenn Mitte (Visitornum, i, 1) =, dann werden die Daten durch ",", "," getrennt "
J = J+1
anders
Wählen Sie den Fall J 'jedem Datenwert separat ab
Fall 0
me1 = me1+mid (Visitornum, ich, 1)
Fall 1
me2 = me2+Mid (Visitornum, ich, 1)
Fall 2
me3 = me3+mid (Visitornum, ich, 1)
Fall 3
me4 = me4+Mid (Visitornum, ich, 1)
Fall 4
me5 = me5+Mid (Visitornum, ich, 1)
Fall 5
me6 = me6+Mid (Visitornum, ich, 1)
Ende auswählen
Ende wenn