只要养成良好的书写习惯，使得新闻的名称遵照1的要求，再把写好的文件存入news文件夹，新闻栏就会自动显示出最新的10条新闻了。
二、公告栏
除了新闻栏之外，较常用的就是公告栏了，公告栏主要用来显示一些重要的通知。当然这些通知是要经常变化的。让用户每次更改公告内容时都到源程序里去修改吗？当然不行，我们必须提供一个维护的界面给用户，使得用户只要输入通知，网页上的公告栏里自然就会显示通知内容了。
1.解决这一问题的关键在于灵活应用FileSystemObject对象和TextStream对象。在实际应用中，你无需自行建立TextStream对象，因为只要利用FileSystemObject对象打开了文件，系统便自动建立TextStream对象。也就是说，一旦调用OpenTextFile或CreateTextFile方法，便会传回TextStream对象。
2.所需相关文件有三个：更新.asp、公告.asp、维护文本.txt，把它们存入d:/ASP/maintain目录下。
3．三个文件的主要功能和源程序段：
1）更新.asp
主要功能是让用户输入欲显示的公告，检验输入内容是否为空，若不为空，则提交给”公告.asp”程序处理。
以下为引用的内容：
①
语句①中的action="公告.asp"部分，指出了在form提交后要启动的程序为“公告.asp”。
2）公告.asp
通过FileSystemObject对象和TextScream对象对"维护文本.txt"文件进行读写操作，使得此文件最上面5行的内容为要在公告栏里显示的公告。
以下为引用的内容：
<%
dim str
str=request.form(t1)
dim s(5)
const forreading=1,forwriting=2
dim fso,myfile
set fso=server.createobject("scripting.FileSystemObject")
set myfile=fso.opentextfile("维护文本.txt",forreading)'以Reading模式打开文件
for i=1 to 5 '公告栏共显示5条公告
s(i)=myfile.readline'读取文件内容
next
myfile.close
set myfile=fso.opentextfile("维护文本.txt",forwriting,true) '以writing模式打开文件
myfile.writeline str
for i=1 to 4
myfile.writeline s(i) '将数据写回文件
next
myfile.close
%>
3）维护文本.txt
此文件开始为空，从“更新.asp”显示的界面输入公告后，此文件内容被自动写入。
- 怎么判断一个网站设计的好与不好呢？
- 中小型企业网站解决方案
- 网上电子商城网站建设方案
- 大型上市企业应用门户网站建设方案
- 展会网站建设解决方案
- 幼儿园网站建设方案
- 物流管理网站建设方案
- 汽车行业网站建设方案
- 网络媒体网站设计方案
- B2B电子商务平台网站设计方案
- 人才招聘行业网站解决方案
- 房地产行业网站制作解决方案
- 中小型企业无纸化办公自动系统解决方案
- 企业信息网站解决方案
- 教育培训类门户网站解决方案
- 旅游类行业网站解决方案
- 校园门户网站解决方案
- 书画艺术网站解决方案
- 图书采购平台解决方案
- 医院门户网站解决方案
- 行业商务门户解决方案
- 电子商务门户解决方案
- 集团企业门户解决方案
- 政府信息门户网站解决方案