生成静态的ASP函数改进版

下面一段代码是生态静态网页的ASP函数，在南方数据V14与千博2011旗舰版中都有用到，但都不支持端口功能，现改进之，主要是

Request.ServerVariables("server_name")与Request.ServerVariables("http_host")变换一下

<%
dim FilePath,Do_Url,strUrl,objXmlHttp,binFileData,objAdoStream
Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld)
if mulu="" then mulu=""&SysRootDir&""
if htmlmulu="" then htmlmulu=""&SysRootDir&""
mulu=replace(mulu, "//", "/")
FilePath=Server.MapPath(mulu)&"\"&FileName
Do_Url="http://"
'Do_Url=Do_Url&Request.ServerVariables("server_name")&htmlmulu&filefrom '默认没有端口功能 localhost
Do_Url=Do_Url&Request.ServerVariables("http_host")&htmlmulu&filefrom '加入端口localhost:81
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
%>