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