Asp static function code html

Copy codeThe Code is 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