个人中心
文章发布
退出
作者热门文章
- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
25
4
CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章ASP中文本文件与数据库文件的数据交换(FSO)由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.
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 ii<k 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 i<k Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(str & "\thetext\" & file(i)) i=i+1 wend %></font><font color="#FF0000">文件删除完毕！</font></p> </body> </html> 这两个小程序在NT4上作者都调试通过。但有几点要认清，一个是文本文件大小的规划（文本文件的数量多少也是如此），如果数据量大，那么在转换时的时间大小要调整；二是转换文本文件到数据库文件时的程序调试一定要严谨，如果程序有误，在数据转换过程中没有全部转换，而后又删除了这个文本文件，则会有所损失。所以这两点一定要注意，不能马虎。 。
最后此篇关于ASP中文本文件与数据库文件的数据交换(FSO)的文章就讲到这里了,如果你想了解更多关于ASP中文本文件与数据库文件的数据交换(FSO)的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。
25
4
0
ASP中文本文件与数据库文件的数据交换 网络数据库的应用是WWW上一个很重要的组成部分，可以这样说，如果缺少了数据库，网络也就失去了灵魂。大家可以想象一下，如果没有象YAHOO，SOH
FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题，至少我是这么认为的，还要别外做一个模板，麻烦！，我今天看见有一个方法可以解决这个问题 &nb
现在绝大多数的虚拟主机都禁用了 ASP 的标准组件：FileSystemObject，因为这个组件为 ASP 提供了强大的文件系统访问能力，可以对服务器硬盘上的任何文件进行读、写、复制、删除、改名等
本来生成这个xml文档是为了开发一个ftp的搜索,后来由于没有资料参考怎么搜索xml文档,也就放弃了.其中最重要的是递归的算法.生成文件列表的速度很快.这个程序可以用于生成播放列表之类的东东.需要I
在我的代码段中，当我编写文件名脚本时，它给了我一个权限被拒绝 在以下行: Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, F
我编写的代码可以将文件名显示到工作表中，但我想在显示时删除扩展名。我知道这应该是一个小小的修正，但我已经厌倦了尝试的选择。有人可以告诉我我必须在哪里添加我错过的代码吗？我在下面的代码尝试。网上有很多类
是否可以在文件夹路径中添加通配符？文件夹有 4 级。 Main_folder:路径已知子文件夹 1:文件夹名称部分已知。在我的示例 4 中。有一个文件夹 4.1 和 4.2(还有 5.1、5.2、6.
是否有 FSO(文件系统对象)方法可以在 JavaScript 或 VBScript 中创建或删除文件夹？还接受任何其他 JavaScript 或 VBScript 方法来创建或删除适用于 HTA 的
我正在使用以下代码循环访问目录中的“.csv”文件并将它们移动到新目录(strRootDir 和 strTargetDir 是已启动的局部变量): Dim objFile As file Dim ob
我在 C:\Weblogic\wlserver\server\lib 中有两个文件 weblogic.jar 和 weblogic.policy。使用第一种方法，脚本会找到它们并显示文件名: Set
我正在尝试使用经典 asp fso 删除/移动文件，但出现此错误: Microsoft VBScript runtime error '800a0046' Permission denied 该文件位
我正在尝试使用 FSO.js 访问客户端文件。目前，我的代码如下所示: function foo(){ var fso = new F
' FSO 文件操作相关 ' FSO 参数详解： ' Fso.IsRootFolder=True|False '是否为根目录
我正在尝试从 "X" 重命名文件至"XY"在同一个文件夹中。我曾尝试使用文件系统对象和 Name X as Y 函数，但两者都不起作用。我确实安装了 Microsoft Scripting Runti
所有试图寻找此问题解决方案的搜索结果都与我正在寻找的相反。我不需要从文件夹内的搜索中排除文件，而是将它们全部包含在内。 我的问题是，我的搜索返回文件夹内除 1 之外的所有文件。每次未找到的 1 个文件
我正在目录中构建文件索引。第 1 列包含文件夹名称，第 2 列包含文件名 我已经设法获取实际的文件名并超链接该文件名。但我在使用包含其子文件夹的相对路径列出第 1 列中的文件路径时遇到问题。 假设我有
我有一个 fso 对象，可以获取目录中的所有文件。 我想创建一个包含文件名、大小和创建日期的记录集，以便我能够按日期对记录集进行排序。 我试过的是: Dim rs set rs=Server.Crea
我刚刚经历过这样的时刻之一，你走出杂草，检查你的代码并问自己“我为什么要那样做？” 我有一个脚本，它使用 FileSystemObject 创建一个包含多个子文件夹和文件的文件夹。一切正常，但我想我一
例如: var a = " "; var b = ""; b = a * 8; alert(b +"this far to the right"); 注意:我不想使用 ，因为 ActiveX FSO
有人知道 activex 文件系统对象是否被阻止或在新的 windows8/ie10 中不起作用吗？ 示例代码:(javascript) fso = new ActiveXObject("Script
我是一名优秀的程序员,十分优秀！