Обмен данными между текстовыми файлами и файлами базы данных в ASP
Применение сетевых баз данных является очень важным компонентом www. Можно сказать, что если база данных отсутствует, сеть потеряет свою душу. Вы можете представить, как трудно найти цель в Интернете без поисковых систем, таких как Yahoo и Sohu. Каждый становится запутанным и теряет свой путь в огромном море Интернета. Фактически, эти поисковые системы являются наиболее типичными приложениями сетевых баз данных. Существует много прямых операций по базам данных в технологии ASP (Active Server Pages). Ниже описывается метод передачи данных из текстовых файлов в файлы базы данных.
Эта текстовая форма собирается и передается в фиксированный каталог сервера терминалом. Сервер читает данные и хранит их в локальной базе данных. После преобразования текстовый файл удаляется. Таким образом, терминал отвечает за сбор данных и загрузку их в назначенный каталог сервера в данном формате. База данных на стороне сервера полностью непрозрачна для терминала, обеспечивая безопасность сервера и может быть несколько полезна для текущих приложений сетевых баз данных.
Txttolib.asp
<html>
<голова>
<meta http-equiv = revelesh content = 30; url = delText.asp>
<meta http-equiv = content-type
Content = text/html; charset = gb_2312-80>
<meta name = Generator Content = Microsoft FrontPage Express 2.0>
<TILE> [конвертировать текстовые файлы в файлы базы данных] </title>
</head>
<body bgcolor =#ffffff>
<align = center>
<p align = center> <font color =#ff0000> Данные обрабатываются, подождите!
<br>
</font> <font color =#000000> <align = center> <%
STR = Server.mappath (/) 'Получить корневой каталог сервера
Установить fso = createObject (scripting.filesystemobject)
Установите f = fso.getFolder (str & /theText)
Установить fc = f.files
k = 1
Для каждого F1 в FC
file (k) = f1.name 'Получить все имена файлов по этому пути
k = k+1
следующий
%> <%ii = 1%> <%
Установить fs = createObject (scripting.filesystemobject)%> <%
В то время как II <k
response.write file (ii) и <br>
SET TextInstance = fs.opentextfile (str & / / thetext / & file (ii), 1, false, false) 'Откройте файл, чтобы прочитать данные
в то время как TextInstance.atendofstream <> true ', если файл не заканчивается
vitionOrnum = textInstance.readline 'Прочитайте линию данных
j = 0
CD = LEN (VITENORMUM)
для i = 1 к CD
Если середина (посетитенум, i, 1) =, то «данные разделены», «
J = J+1
еще
Выберите Case J 'Получить каждое значение данных отдельно
Случай 0
me1 = me1+mid (vitionOnmum, i, 1)
Случай 1
me2 = me2+mid (визит, я, 1)
Случай 2
me3 = me3+mid (визит, я, 1)
Случай 3
me4 = me4+mid (визит, я, 1)
Случай 4
me5 = me5+mid (визит, я, 1)
Случай 5
me6 = me6+mid (визит, я, 1)
конец выбора
конец, если