Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld)
if mulu="" then mulu="/"
if htmlmulu="" then htmlmulu="/"
mulu=replace(SysRootDirmulu, "//", "/")
htmlmulu=replace(SysRootDirhtmlmulu, "//", "/")
FilePath=Server.MapPath(mulu)"\"FileName
Do_Url="http://"
Do_Url=Do_UrlRequest.ServerVariables("server_name")htmlmulufilefrom
Do_Url=Do_Url"?"htmlahtmlb""htmlchtmld
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