方法一
方法二：
resourcefile=server.MapPath("../index.asp")
targetfile=server.MapPath("../index.htm")
Set html = Server.CreateObject("CDO.Message")
html.CreateMHTMLBody resourcefile,31
indexcode=html.HTMLBody
Set html = Nothing
if instr(indexcode,"")<=0 then
response.Write("首页生成失败")
response.End()
else
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set outfile=oFileSys.CreateTextFile(targetfile)
outfile.WriteLine indexcode
outfile.close
Set outfile=nothing
set oFileSys=nothing
response.Write("首页生成完毕!")
end if
动态网站首页的静态生成方法
最新推荐文章于 2026-06-17 22:45:00 发布
扫一扫
959
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
