以下是生产静态页面的一种方法,下面是源码:
<%
dim fso,musicname
musicname="今夜你会不会来"
set fso=server.CreateObject("scripting.filesystemobject")
set sourcefile=fso.opentextfile(server.MapPath("music.html"))
sourcetext=sourcefile.readall
sourcefile.close
set sourcefile=nothing
sourcetext=replace(sourcetext,"{$musicname$}",musicname)
newfilefoldername=server.MapPath("/")&"\music\"
if(fso.folderexists(newfilefoldername))=true then
else
fso.createfolder(newfilefoldername)
end if
newfilename="\"&musicname&".html"
newfilename=newfilefoldername&newfilename
set newfile=fso.opentextfile(newfilename,2,true)
newfile.write sourcetext
newfile.close
set newfile=nothing
%>
music.html是模板:如果是变量的话就用{$musicname$}