ASP中文字檔與資料庫檔案的資料交換(FSO)

來源:互聯網
上載者:User
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 =



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。