当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP中文本文件与数据库文件的数据交换

ASP
ASP六大对象介绍
使用Filter实现信息的二次检索
让弹出窗口变得“听话”一些
在ASP中利用“正则表达式” 对象实现UBB风格的论坛
“Web 匿名用户”帐户密码的位置
对一些编程初学者的良言警句
ASP编程中15个非常有用的例子
精彩:ASP遗留的二十大积习
关于Asp代码与页面的分离
教大家如何利用ASP打造网站论坛DIY(1)
教大家如何利用ASP打造网站论坛DIY(2)
网站安全:防范ASP木马的十大基本原则
用ASP设计一个留言薄
趣味访客计数器设计两则
我的ASP之旅—二级联动菜单制作
ASP编程--新手上路篇:ASP技术简介
用ASP实现网上考试系统
请注意!常见的ASP脚本攻击及防范技巧
ASP开发的WAP格式简易邮件系统实例
asp基础教程:网页间数据传递方法小结

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 157 ::
收藏到网摘: n/a

  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)
     &nbs