主页 > 知识库 > ASP中文本文件与数据库文件的数据交换(FSO)

ASP中文本文件与数据库文件的数据交换(FSO)

热门标签:Mysql连接数设置 电子围栏 团购网站 阿里云 服务器配置 科大讯飞语音识别系统 Linux服务器 银行业务
ASP中文本文件与数据库文件的数据交换

网络数据库的应用是WWW上一个很重要的组成部分,可以这样说,如果缺少了数据库,网络也就失去了灵魂。大家可以想象一下,如果没有象YAHOO,SOHU等搜索引擎的话,那么在网上寻找一个目标变得多么困难,大家在茫茫网海里变得不知所往,动辄迷失方向。其实,这些搜索引擎是网络数据库的最典型的应用,在ASP(Active Server Pages)技术里对数据库的直接操作是比较多的,下面讲述一种由文本文件向数据库文件传递数据的方法。
这个文本文体是由终端采集传送到服务器的一个固定目录下,由服务器去读取数据并存放在本机数据库里,转换完后删除掉这个文本文件。这样终端负责采集数据,并按给定的格式上传到服务器的指定目录下,服务器端的数据库对终端来讲是完全不透明的,保障了服务器的安全,对现在的网络数据库应用来讲或许有点帮助。
Txttolib.asp
html>

head>
meta http-equiv="refresh" 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">
title>[把文本文件转换成数据库文件]/title>
/head>

body bgcolor="#FFFFFF">
align="center">
p align="center">font color="#FF0000">正在处理数据,请稍候!
br>
/font>font color="#000000">align="center">%
str=server.mappath("/") ‘取得服务器的根目录
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(str "\thetext")
Set fc = f.Files
k=1
For Each f1 in fc
file(k)=f1.name ‘得到此路径下的所有文件名
k=k+1
next
%>% ii=1%>%
set fs = CreateObject("Scripting.FileSystemObject")%>%
while iik
response.write file(ii) "br>"
set textinstance=fs.opentextfile(str "\thetext\&; file(ii),1,false,false)‘打开文件来读数据
while textinstance.atendofstream> true ‘如果文件没有结束
visitornum=textinstance.readline ‘读进一行数据
j=0
cd=len(visitornum)
for i=1 to cd
if mid(visitornum,i,1)="," then ‘数据与数据之间以“,”隔开
j=j+1
else
select case j‘分别取得各数据值
case 0
me1=me1+mid(visitornum,i,1)
case 1
me2=me2+mid(visitornum,i,1)
case 2
me3=me3+mid(visitornum,i,1)
case 3
me4=me4+mid(visitornum,i,1)
case 4
me5=me5+mid(visitornum,i,1)
case 5
me6=me6+mid(visitornum,i,1)
end select
end if
next
response.write me1 " " me2 " " me3 " " me4 " " me5 " " me6 " " "br>"
set cn=server.createobject("adodb.connection")
cn.open "water","",""
set rs=server.createobject("adodb.recordset")
sql="select * from watertable"
rs.open sql,cn,3,3‘打开数据库进行追加操作
if rs.eof=true then
on error resume next
'rs.movelast
rs.movefirst
on error resume next
end if
rs.addnew‘增加一条记录
rs("wvalue")=me1
rs("wdate")=me2
rs("wtime")=me3
rs("zxz")=me4
rs("jdh")=me5
rs("czh")=me6
rs.update‘更新数据
rs.close
me1=""
me2=""
me3=""
me4=""
me5=""
me6=""
wend
ii=ii+1
wend %>align="center">/font>font color="#FF0000">数据处理完毕!/font>
/p>
/body>
/html>

deltext.asp
html>

head>
meta http-equiv="refresh" content="30;url=txttolib.asp">
meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
title>[删除文件]/title>
/head>

body bgcolor="#FFFFFF">

p align="center">font color="#FF0000">正在删除文件,请稍候!br>
/font>font color="#000000">%
dim file(50)‘定义最大文件数
str=server.mappath("/")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(str "\thetext\&;)
Set fc = f.Files
k=1
For Each f1 in fc
file(k)=f1.name
response.write file(k) "br>"
k=k+1
next
%>% i=1
while ik
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(str "\thetext\&; file(i))
i=i+1
wend
%>/font>font color="#FF0000">文件删除完毕!/font>/p>
/body>
/html>
这两个小程序在NT4上作者都调试通过。但有几点要认清,一个是文本文件大小的规划(文本文件的数量多少也是如此),如果数据量大,那么在转换时的时间大小要调整;二是转换文本文件到数据库文件时的程序调试一定要严谨,如果程序有误,在数据转换过程中没有全部转换,而后又删除了这个文本文件,则会有所损失。所以这两点一定要注意,不能马虎。

您可能感兴趣的文章:
  • php中关于codeigniter的xmlrpc的类在进行数据交换时的类型问题
  • Flash与后台数据交换方法整理
  • 使用JavaScript构建JSON格式字符串实现步骤
  • 前后台交互过程中json格式如何解析以及如何生成
  • PHP json格式和js json格式 js跨域调用实现代码
  • asp.net中各种类型的JSON格式化
  • jQuery asp.net 用json格式返回自定义对象
  • asp.net转出json格式客户端显示时间
  • 在.NET使用JSON作为数据交换格式实例演示

标签:大理 衡水 江苏 枣庄 蚌埠 萍乡 广元 衢州

巨人网络通讯声明:本文标题《ASP中文本文件与数据库文件的数据交换(FSO)》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266