|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。fso|数据|数据库|中文ASP中文本文件与数据库文件的数据互换
收集数据库的使用是WWW上一个很主要的构成部分,能够如许说,假如短少了数据库,收集也就得到了魂灵。人人能够设想一下,假如没有象YAHOO,SOHU等搜刮引擎的话,那末在网上寻觅一个方针变很多么坚苦,人人在茫茫网海里变得不知所往,动辄丢失偏向。实在,这些搜刮引擎是收集数据库的最典范的使用,在ASP(ActiveServerPages)手艺里对数据库的间接操纵是对照多的,上面报告一种由文本文件向数据库文件传送数据的办法。
这个文本体裁是由终端收罗传送到服务器的一个流动目次下,由服务器往读取数据并寄存在本机数据库里,转换完后删撤除这个文本文件。如许终端卖力收罗数据,并按给定的格局上传到服务器的指定目次下,服务器真个数据库对终端来说是完整不通明的,保证了服务器的平安,对如今的收集数据库使用来说也许有点匡助。
Txttolib.asp
<html>
<head>
<metahttp-equiv="refresh"content="30;url=deltext.asp">
<metahttp-equiv="Content-Type"
content="text/html;charset=gb_2312-80">
<metaname="GENERATOR"content="MicrosoftFrontPageExpress2.0">
<title>[把文本文件转换成数据库文件]</title>
</head>
<bodybgcolor="#FFFFFF">
<align="center">
<palign="center"><fontcolor="#FF0000">正在处置数据,请稍候!
<br>
</font><fontcolor="#000000"><align="center"><%
str=server.mappath("/")‘获得服务器的根目次
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.GetFolder(str&" hetext")
Setfc=f.Files
k=1
ForEachf1infc
file(k)=f1.name‘失掉此路径下的一切文件名
k=k+1
next
%><%ii=1%><%
setfs=CreateObject("Scripting.FileSystemObject")%><%
whileii<k
response.writefile(ii)&"<br>"
settextinstance=fs.opentextfile(str&" hetext"&file(ii),1,false,false)‘翻开文件来读数据
whiletextinstance.atendofstreamtrue‘假如文件没有停止
visitornum=textinstance.readline‘读进一行数据
j=0
cd=len(visitornum)
fori=1tocd
ifmid(visitornum,i,1)=","then‘数据与数据之间以“,”离隔
j=j+1
else
selectcasej‘分离获得各数据值
case0
me1=me1+mid(visitornum,i,1)
case1
me2=me2+mid(visitornum,i,1)
case2
me3=me3+mid(visitornum,i,1)
case3
me4=me4+mid(visitornum,i,1)
case4
me5=me5+mid(visitornum,i,1)
case5
me6=me6+mid(visitornum,i,1)
endselect
endif
next
response.writeme1&""&me2&""&me3&""&me4&""&me5&""&me6&""&"<br>"
setcn=server.createobject("adodb.connection")
cn.open"water","",""
setrs=server.createobject("adodb.recordset")
sql="select*fromwatertable"
rs.opensql,cn,3,3‘翻开数据库举行追加操纵
ifrs.eof=truethen
onerrorresumenext
rs.movelast
rs.movefirst
onerrorresumenext
endif
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><fontcolor="#FF0000">数据处置终了!</font>
</p>
</body>
</html>
deltext.asp
<html>
<head>
<metahttp-equiv="refresh"content="30;url=txttolib.asp">
<metahttp-equiv="Content-Type"
content="text/html;charset=gb_2312-80">
<metaname="GENERATOR"content="MicrosoftFrontPageExpress2.0">
<title>[删除文件]</title>
</head>
<bodybgcolor="#FFFFFF">
<palign="center"><fontcolor="#FF0000">正在删除文件,请稍候!<br>
</font><fontcolor="#000000"><%
dimfile(50)‘界说最年夜文件数
str=server.mappath("/")
Setfso=</p>因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。 |
|