生成静态页面

< %
filename = " ../index.html "
if  request( " body " ) <> ""   then
    body = request( " body " )

     Set  fso  =  Server.CreateObject( " Scripting.FileSystemObject " )
     Set  fout  =  fso.CreateTextFile(server.mappath( "" & filename & "" ))
    fout.Write body

    fout.close
     set  fout = nothing
     set  fso = nothing
end   if
% >

 

< textarea  > <!-- #include file="index_mb.asp" --> </ textarea >