<html><head><title>基于文本的消息发布系统</title></head>
<body>
<table border="1" cellspacing="0" cellpadding="1" bordercolorlight="#dfdfdf" bordercolordark="#ffffff" align="center">
<tr bgcolor="#cccce6">
<td algin="center" colspan="2">最新消息</td>
</tr>
<%
Set fso=Server.CreateObject("ing.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("message.txt"))
'打开message.txt
Do While fp.AtEndOfStream<>true
s=fp.ReadLine '读取一条数据
p=Instr(s,"*") '取得*号的位置
Messagetitle=Mid(s,1,p-1) '取得*号前边的字符串（消息标题）
s=Mid(s,p+1,Len(s)-p) '设变量s为*号后边的字符串
p=Instr(s,"*")
MessageUrl=Mid(s,1,p-1) '取得*号后边的字符串（链接地址）
s=Mid(s,p+1,Len(s)-p)
ttime
=s '设定消息发布时间ttime为s简单的方法
<%
dim fso,f
set fso=server.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("1.txt"),1)
Do While Not f.AtEndOfStream
response.write f.readline
loop
f.close
set f=nothing
set fso=nothing
%>
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。