ASP website static function code html

ASP website static code HTML, you can test the specific features.

Function HTMLL (Mulu, HTMLMULU, FILENAME, FILEFROM, HTMLA, HTMLB, HTMLC, HTMLD)

if mulu = then mulu =/

if htmlmulu = then htmlmulu =/

Mulu = Replace (Sysrootdir & Mulu, //, /)

htmlmulu = replace (sysrootdir & htmlmulu, //, /)

Filepath = server.mappath (mulu) &/& filename

Do_url = http: //

Do_url = Do_url & Request.servervariables (Server_name) & HTMLMULU & Filefrom

Do_url = Do_url &? & HTMLA & HTMLB &&& d HTMLC & HTMLD

strurl = do_url

set objxmlhttp = server.createObject (microsoft.xmlhttp)

objxmlhttp.open get, strUrl, false

objxmlhttp.send ()

binfiledata = objxmlhttp.Responsebody

Set objxmlhttp = Nothing

set objadostream = server.createObject (Adodb. & Stream)

objadostream.type = 1

objadostream.open ()

objadostream.write (binfiledata)

objadostream.savetofile filepath, 2

objadostream.close ()

set objadostream = Nothing

End function