シンプルなASPは、静的なホームページサンプルコードを生成します
<%
dim objxmlhttp、binfiledata、objadostream
objxmlhttp = server.createobject(microsoft.xmlhttp)を設定します
objxmlhttp.open get、http://&request.servervariables(http_host)&/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 = Nothingを設定します
objxmlhttp =何も設定しません
Response.Write <Script Language = javascript> alert( 'ホームページ生成が完了!');
%>