作家
登录

asp 网站静态化函数代码html

作者: 来源:www.28hudong.com 2013-03-30 08:21:12 阅读 我要评论

复制代码 代码如下: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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)