Situs web ASP Static Code HTML, Anda dapat menguji fitur -fitur tertentu.
Fungsi htmll (mulu, htmlmulu, nama file, filefrom, htmla, htmlb, htmlc, htmld)
Jika mulu = maka mulu =/
jika htmlmulu = maka htmlmulu =/
Mulu = ganti (sysrootdir & mulu, //, /)
htmlmulu = ganti (sysrootdir & htmlmulu, //, /)
Filepath = server.mappath (mulu) &/& filename
Do_url = http: //
Do_url = do_url & request.serverVariable (server_name) & htmlmulu & filefrom
Do_url = do_url &?
strurl = do_url
Setel objxmlhttp = server.CreateObject (microsoft.xmlhttp)
objxmlhttp.open get, strurl, false
objxmlhttp.send ()
binfiledata = objxmlhttp.responseBody
Atur objxmlhttp = tidak ada
Set ObjadoStream = Server.CreateObject (Adodb. & Stream)
objadostream.type = 1
objadostream.open ()
Objadostream.write (Binfiledata)
Objadostream.savetofile Filepath, 2
objadostream.close ()
atur objadostream = tidak ada
Fungsi akhir