最新消息:新的一年,启动新的宽屏主题模版,关注更多的web前端!

asp自动生成HTML页面代码实例

网络技术 amason 4430浏览 0评论

<%
set fs=server.createobject(“scripting.filesystemobject”)
file=server.mappath(“time.txt”)
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
times=txt.ReadLine
Else
response.write “

HtmlPage = “time.txt” ‘//生成的HTML文件名
Template = NOW()
Set FSO = Server.CreateObject (“Scripting.FileSystemObject”)
Set FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))
FileOut.WriteLine Template
FileOut.Close
Set FSO = Nothing

end If

If datediff(“s”,times,NOW()) > 3600 Then ‘//上次更新到现在的时间 大于 3600秒 则 更新
response.write “

code = “这里是需要生成的html代码” ‘//如何得到代码的方式有很多

‘//用FSO生成HTML页面
HtmlPage = “index.html” ‘//生成的HTML文件名
Template = code
Set FSO = Server.CreateObject (“Scripting.FileSystemObject”)
Set FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))
FileOut.WriteLine Template
FileOut.Close
Set FSO = Nothing

‘//用FSO生成time.txt文件
HtmlPage = “time.txt” ‘//生成的HTML文件名
Template = NOW()
Set FSO = Server.CreateObject (“Scripting.FileSystemObject”)
Set FileOut = FSO.CreateTextFile(Server.MapPath (HtmlPage))
FileOut.WriteLine Template
FileOut.Close
Set FSO = Nothing

Else

response.write “

End If
%>

转载请注明:笑申爱设计|liushen.net » asp自动生成HTML页面代码实例

发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

网友最新评论 (1)

  1. 够猛,够强。
    高度近视2011-11-03 18:00 回复