繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP中文本文件与数据库文件的数据交换
- ASP
- asp中利用数组实现数据库记录的批量录入方法
- vbs(asp)的栈类
- 加密處理使密碼更安全[CFS編碼加密]
- 在asp中通过vbs类实现rsa加密与解密
- 披著羊皮的大野狼 - Session
- 简体中文编码对应器
- len(),lift(),right()不能正常识别中文的解决方法
- 实现WEB中的@虚拟域名系统(原理篇)
- 巧用ASP生成PDF文件
- 二级域名原理以及程序，申请即可开通
- 无组件上传图片到数据库中，最完整解决方案
- 在ASP中使用SQL语句之1:SELECT 语句
- 在ASP中使用SQL语句之2:用WHERE子句设置查询条件
- 在ASP中使用SQL语句之3:LIKE、NOT LIKE和 BETWEEN
- 在ASP中使用SQL语句之4:联合语句
- 在ASP中使用SQL语句之5:开始执行
- 在ASP中使用SQL语句之6:存储查询
- 在ASP中使用SQL语句之7:ORDER BY
- 在ASP中使用SQL语句之8:随机数
- 在ASP中使用SQL语句之9:表单操作
ASP中文本文件与数据库文件的数据交换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 126 ::
收藏到网摘: n/a
网络数据库的应用是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
评论 (0) All
