复制代码 代码如下: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
推荐阅读
asp将table生成excel文件(xls)
复制代码 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if request("action")=1 then Response.ContentType="application/ms-excel" Response.AddHeader "content-disposition","attachment;filename=www>>>详细阅读
本文标题:asp 网站静态化函数代码html
地址:http://www.17bianji.com/kaifa2/ASP/32011.html
1/2 1