Copy Code code as follows:
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& "&" &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
