📄 0132.htm

📁 ASP教程宝典书籍语言：简体中文书籍类型：网络编程授权方式：免费软件书籍大小： 500 KB
💻 HTM
字号:
<html>

<head>
<title>新时代软件教程:操作系统 主页制作 服务器 设计软件 网络技术 编程语言 文字编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body, table {font-size: 9pt; font-family: 宋体}
a {text-decoration:none}
a:hover {color: red;text-decoration:underline}
.1  {background-color: rgb(245,245,245)}
-->
</style>
</head>
<p align="center"><script src="../../1.js"></script></a>
    <p align="center"><big><strong>ASP中文本文件与数据库文件的数据交换</strong></big></p>

<div align="right">---摘自《ChinaASP》</div>

网络数据库的应用是WWW上一个很重要的组成部分，可以这样说，如果缺少了数据库，网络也就失去了灵魂。大家可以想象一下，如果没有象YAHOO，SOHU等搜索引擎的话，那么在网上寻找一个目标变得多么困难，大家在茫茫网海里变得不知所往，动辄迷失方向。其实，这些搜索引擎是网络数据库的最典型的应用，在ASP（Active Server Pages）技术里对数据库的直接操作是比较多的，下面讲述一种由文本文件向数据库文件传递数据的方法。<br>
这个文本文体是由终端采集传送到服务器的一个固定目录下，由服务器去读取数据并存放在本机数据库里，转换完后删除掉这个文本文件。这样终端负责采集数据，并按给定的格式上传到服务器的指定目录下，服务器端的数据库对终端来讲是完全不透明的，保障了服务器的安全，对现在的网络数据库应用来讲或许有点帮助。<br>
Txttolib.asp<br>
&lt;html&gt;<br>
&lt;head&gt;<br>
&lt;meta http-equiv=&quot;refresh&quot; content=&quot;30;url=deltext.asp&quot;&gt;<br>
&lt;meta http-equiv=&quot;Content-Type&quot;<br>
content=&quot;text/html; charset=gb_2312-80&quot;&gt;<br>
&lt;meta name=&quot;GENERATOR&quot; content=&quot;Microsoft FrontPage Express 2.0&quot;&gt;<br>
&lt;title&gt;[把文本文件转换成数据库文件]&lt;/title&gt;<br>
&lt;/head&gt;<br>
<br>
&lt;body bgcolor=&quot;#FFFFFF&quot;&gt;<br>
&lt;align=&quot;center&quot;&gt;<br>
&lt;p align=&quot;center&quot;&gt;&lt;font color=&quot;#FF0000&quot;&gt;正在处理数据，请稍候！<br>
&lt;br&gt;<br>
&lt;/font&gt;&lt;font color=&quot;#000000&quot;&gt;&lt;align=&quot;center&quot;&gt;&lt;%<br>
str=server.mappath(&quot;/&quot;) ‘取得服务器的根目录<br>
Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)<br>
Set f = fso.GetFolder(str &amp; &quot;\thetext&quot;)<br>
Set fc = f.Files<br>
k=1<br>
For Each f1 in fc<br>
file(k)=f1.name ‘得到此路径下的所有文件名<br>
k=k+1<br>
next<br>
%&gt;&lt;% ii=1%&gt;&lt;%<br>
set fs = CreateObject(&quot;Scripting.FileSystemObject&quot;)%&gt;&lt;%<br>
 while ii&lt;k&nbsp;&nbsp;<br>
 response.write file(ii) &amp; &quot;&lt;br&gt;&quot;&nbsp;&nbsp;&nbsp;<br>
 set textinstance=fs.opentextfile(str &amp; &quot;\thetext\&quot; &amp; file(ii),1,false,false)‘打开文件来读数据<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while textinstance.atendofstream&lt;&gt; true ‘如果文件没有结束<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;visitornum=textinstance.readline ‘读进一行数据<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;j=0<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cd=len(visitornum)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for i=1 to cd<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if mid(visitornum,i,1)=&quot;,&quot; then ‘数据与数据之间以“，”隔开<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;j=j+1<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;select case j‘分别取得各数据值<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 0<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me1=me1+mid(visitornum,i,1)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 1 <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me2=me2+mid(visitornum,i,1)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 2&nbsp;&nbsp;&nbsp;&nbsp;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me3=me3+mid(visitornum,i,1)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 3<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me4=me4+mid(visitornum,i,1)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 4<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me5=me5+mid(visitornum,i,1)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 5<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me6=me6+mid(visitornum,i,1)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end select<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.write me1 &amp; &quot; &quot; &amp; me2 &amp; &quot; &quot; &amp; me3 &amp; &quot; &quot; &amp; me4 &amp; &quot; &quot; &amp; me5 &amp; &quot; &quot; &amp; me6 &amp; &quot; &quot; &amp; &quot;&lt;br&gt;&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set cn=server.createobject(&quot;adodb.connection&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cn.open &quot;water&quot;,&quot;&quot;,&quot;&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;set rs=server.createobject(&quot;adodb.recordset&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sql=&quot;select * from watertable&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs.open sql,cn,3,3‘打开数据库进行追加操作<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if rs.eof=true then<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;on error resume next<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'rs.movelast<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs.movefirst<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;on error resume next<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs.addnew‘增加一条记录<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs(&quot;wvalue&quot;)=me1<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs(&quot;wdate&quot;)=me2<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs(&quot;wtime&quot;)=me3<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs(&quot;zxz&quot;)=me4<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs(&quot;jdh&quot;)=me5<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs(&quot;czh&quot;)=me6<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs.update‘更新数据<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs.close<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me1=&quot;&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me2=&quot;&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me3=&quot;&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me4=&quot;&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me5=&quot;&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;me6=&quot;&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;wend <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ii=ii+1<br>
wend&nbsp;&nbsp;%&gt;&lt;align=&quot;center&quot;&gt;&lt;/font&gt;&lt;font color=&quot;#FF0000&quot;&gt;数据处理完毕！&lt;/font&gt;<br>
&lt;/p&gt;<br>
&lt;/body&gt;<br>
&lt;/html&gt;<br>
<br>
deltext.asp<br>
&lt;html&gt;<br>
<br>
&lt;head&gt;<br>
&lt;meta http-equiv=&quot;refresh&quot; content=&quot;30;url=txttolib.asp&quot;&gt;<br>
&lt;meta http-equiv=&quot;Content-Type&quot;<br>
content=&quot;text/html; charset=gb_2312-80&quot;&gt;<br>
&lt;meta name=&quot;GENERATOR&quot; content=&quot;Microsoft FrontPage Express 2.0&quot;&gt;<br>
&lt;title&gt;[删除文件]&lt;/title&gt;<br>
&lt;/head&gt;<br>
<br>
&lt;body bgcolor=&quot;#FFFFFF&quot;&gt;<br>
<br>
&lt;p align=&quot;center&quot;&gt;&lt;font color=&quot;#FF0000&quot;&gt;正在删除文件，请稍候！&lt;br&gt;<br>
&lt;/font&gt;&lt;font color=&quot;#000000&quot;&gt;&lt;%<br>
dim file(50)‘定义最大文件数<br>
str=server.mappath(&quot;/&quot;)<br>
Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)<br>
Set f = fso.GetFolder(str &amp; &quot;\thetext\&quot;)<br>
Set fc = f.Files<br>
k=1<br>
For Each f1 in fc<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;file(k)=f1.name<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.write file(k) &amp; &quot;&lt;br&gt;&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;k=k+1<br>
next<br>
%&gt;&lt;% i=1<br>
&nbsp;&nbsp;&nbsp;&nbsp;while i&lt;k<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fso.DeleteFile(str &amp; &quot;\thetext\&quot; &amp; file(i))<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;i=i+1<br>
&nbsp;&nbsp;&nbsp;&nbsp;wend<br>
%&gt;&lt;/font&gt;&lt;font color=&quot;#FF0000&quot;&gt;文件删除完毕！&lt;/font&gt;&lt;/p&gt;<br>
&lt;/body&gt;<br>
&lt;/html&gt;<br>
这两个小程序在NT4上作者都调试通过。但有几点要认清，一个是文本文件大小的规划（文本文件的数量多少也是如此），如果数据量大，那么在转换时的时间大小要调整；二是转换文本文件到数据库文件时的程序调试一定要严谨，如果程序有误，在数据转换过程中没有全部转换，而后又删除了这个文本文件，则会有所损失。所以这两点一定要注意，不能马虎。

  </table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -