Code statique du site Web ASP HTML, vous pouvez tester les fonctionnalités spécifiques.
Fonction htmll (mulu, htmlmulu, nom de fichier, filefrom, htmla, htmlb, htmlc, htmld)
Si mulu = alors mulu = /
Si htmlmulu = alors htmlmulu = /
Mulu = remplacer (sysrootdir & mulu, //, /)
htmlmulu = remphier (sysrootdir & htmlmulu, //, /)
Filepath = server.mappath (mulu) & / & nom de fichier
Do_url = http: //
Do_url = do_url & request.servervariables (server_name) & htmlmulu & filefrom
Do_url = do_url &?
strurl = do_url
Définir objxmlhttp = server.createObject (Microsoft.xmlhttp)
objxmlhttp.open get, strurl, false
objxmlhttp.send ()
binfiledata = objxmlhttp.Responsebody
Définir objxmlhttp = rien
Définir ObjadoStream = Server.CreateObject (Adodb. & Stream)
objadostream.type = 1
objadostream.open ()
objadostream.write (binfiledata)
objadostream.savetofile filepath, 2
objadostream.close ()
définir objadostream = rien
Fonction finale