ASP -Website statischer Code HTML, Sie können die spezifischen Funktionen testen.
Funktion htmll (Mulu, Htmlmulu, Dateiname, Dateifrom, HTMLA, HTMLB, HTMLC, HTMLD)
Wenn mulu = dann mulu =//
Wenn htmlmulu = dann htmlmulu =///
Mulu = ersetzen (sysrootdir & mulu, //, /)
htmlmulu = ersetzen (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
Setzen Sie objxmlHttp = server.createObject (microsoft.xmlhttp)
objxmlhttp.open Get, streurl, falsch
objxmlhttp.send ())
binfiledata = objxmlhttp.ResponseBody
Setzen Sie objxmlhttp = nichts
Setzen Sie objadostream = server.createObject (adodb. & stream)
objadostream.type = 1
objadostream.open ()
Objadostream.write (Binfiledata)
Objadostream.Savetofile Filepath, 2
objadostream.close ()
objadostream einstellen = nichts
Endfunktion