西安网站建设使用ASP+ACCESS将数据写入TXT文本减小数据库容量

14422012-11-17

ACCESS数据库在容量变大(50M左右)在性能上面就会受到影响,西安网站建设团队点墨网络竭诚为您服务。
西安网站建设为了减少数据库容量,可以将容量较大文本的字段,写入到TXT文件,达到优化数据库性能的目的。

具体代码:
例如有数据表大文本字段content是文章内容,同时有不重复唯一字段id,我们可以这样操作。

首先,在保存一条新信息的时候,按正常的SQL语句,将I标题写入到数据库,获取当前的ID,然后接收到的content内容能够写入到以这个ID命名的txt文件中。

rs.open "select * from table"
rs.addnew
rs("title") = "title"
rs.update
id=rs("id")


得到ID后,将传来的content写入到txt文件
content=trim(request.Form("content"))
call savetotxt(id,content)


function savetotxt(id,str)
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "gb2312" ’无论是UTF8还是gb2312,这里都用gb2312即可,因为这里创建的txt默认是ANSI编码的。
.Position = objStream.Size
.WriteText=str
.SaveToFile server.mappath("/txtfiles/"&id&".txt"),2 ‘参数2的意思是直接覆盖,在修改文章的保存时候更新整个文件。
.Close
End With
Set objStream = Nothing
end function

下面是读取:

<%=readtxtinfo(id)%>


function readtxtinfo(byval id)
   dim fso,f,str
   if id<>"" then
    set fso=server.CreateObject("Scripting.FileSystemObject")
    Set f =  fso.OpenTextFile(Server.MapPath("/txtfiles/"&id&".txt"),1) 
    Do  While  Not  f.AtEndOfStream   
    str=str & f.readline
    loop
    f.close
    set f=nothing
    set fso=nothing
 readtxtinfo=str
 end if
end function

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1