由ASP读TXT文本文件而来的想法

    无论什么CMS，核心就一句话：写入数据，读取数据。一般来说数据都是存在数据库中，对应表段内存储相应的内容，那么是不是可以将正文内容存在 txt/ 文件夹下以 txt001.txt 的形式存在呢？答案是肯定的，那么接下来就是读取 txt/txt001.txt 的内容显示到内容页上了，如何实现？下面贴一段代码：

<%

Sub ReadFiles() 
Dim objFSO 
Dim objText 
Dim ObjFile
Dim strTextContent
Dim objDrive
'创建一个文件操作对象实例
Set objFSO = CreateObject("Scripting.FileSystemObject")
'要打开的文件
ObjFile = "test.txt"
ObjFile=server.mappath(ObjFile)
'Response.write ObjFile
'Response.end
IF objFSO.FileExists(ObjFile) then 
  '打开TXT文件，并赋值给变量
  Set objText = objFSO.OpenTextFile(ObjFile,1)
  'strTextContent = objText.ReadAll()
  '循环读取数据
While not objText.AtEndOfStream '到文件的末尾
'While not objText.AtEndOfLine '到一行的末尾
   strTextContent = objText.ReadLine()
   response.write strTextContent 
   'response.write "<br>"
  wend
  Call objText.Close
else
    response.write "文件不存在"
    response.end
end if
End Sub 
'调用过程，读取文件
readfiles()
%>

    具体怎么操作还在考虑中，有兴趣的朋友可以试试看，phpcms 好像就支持这么个功能。这样一来，数据库会大大的缩小，速度应该会快一些吧。

    抛砖引玉了，期待高手解决，能分享方法就更好了。