此文件开始为空,从”更新.asp”显示的界面输入公告后,此文件内容被自动写入。
4.在主页文件(通常是default.asp)欲显示公告位置的代码段中加入如下代码,即可显示出更新后的公告。
以下为引用的内容:
- <marquee scrollamount="2" scrolldelay="50" direction="up" width="223"
- height="133" id="a" onmouseover="a.stop()" onmouseout="a.start()">''公告栏上下滚动
- <%
- Dim s(20)
- Dim fso, MyFile
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set MyFile = fso.OpenTextFile("D:/ASP/maintain/维护文本.txt",1,true)
- for i=1 to 5
- ReadLineTextFile=MyFile.ReadLine
- s(i)=ReadLineTextFile
- response.write "★ " & s(i)
- response.write "<br>"
- next
- %>
- </marquee>
上述两个小技巧举一反三,可以解决很多此类问题。网页设计爱好者们不妨一试。