4.在主页文件(通常是default.asp)欲显示公告位置的代码段中加入如下代码,即可显示出更新后的公告。
以下为引用的内容:
'公告栏上下滚动<% 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 ""
next %>
上述两个小技巧举一反三,可以解决很多此类问题。网页设计爱好者们不妨一试。
上一页[1] [2] [3]