Простой, ASP генерирует пример статической домашней страницы
<%
Dim objxmlhttp, binfiledata, objadostream
Установить objxmlhttp = server.createObject (microsoft.xmlhttp)
objxmlhttp.open get, http: //&request.servervariables (http_host) &///////e index1.asp, false
objxmlhttp.send ()
binfiledata = objxmlhttp.responsebody
Установить objadoStream = server.createObject (adodb.stream)
objadoStream.type = 1
objadostream.open ()
objadostream.write (binfiledata)
objadoStream.savetofile server.mappath (../ index.html), 2
objadostream.close ()
Установить ObjadoStream = ничего
Установить objxmlhttp = ничего
response.write <сценарий языка = javascript> alert («Генерация домашней страницы завершена!»);
%>