Código estático do site ASP HTML, você pode testar os recursos específicos.
Função htmll (mulu, htmlmulu, nome do arquivo, filefrom, htmla, htmlb, htmlc, htmld)
Se mulu = então mulu =/
Se htmlmulu = então htmlmulu =/
Mulu = substituir (sysrootdir & mulu, //, /)
htmlmulu = substituir (sysrootdir & htmlmulu, //, /)
Filepath = server.mappath (mulu) &/& filename
Do_url = http: //
Do_url = do_url & request.servervariables (server_name) & htmlmulu & filefrom
Do_url = do_url &?
strurl = do_url
Definir objxmlHttp = server.createObject (Microsoft.xmlHttp)
objxmlhttp.open get, strurl, falso
objxmlhttp.send ()
binfiledata = objxmlHttp.Responsebody
Definir objxmlhttp = nada
Definir objadosTream = server.createObject (adodb. & stream)
objadosTream.type = 1
objadosTream.open ()
objadostream.write (binfiledata)
objadosTream.Savetofile FilePath, 2
objadosTream.close ()
definir objadosTream = nada
Função final