asp 网站静态化函数代码html


复制代码 代码如下:

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



相关阅读:
Windows2003系统十例最新配置技巧
CSS入门常见问答
F#教程:不变性
微软开始提供Vista SP2更新拦截工具
Oracle 11g新特性之INTERVAL分区
Javascript延迟执行实现方法(setTimeout)
用ASP做的DNS LOOKUP程序
Windows XP操作系统崩溃,如何挽救?
磁盘分区格式变成RAW格式怎么办
十天学会php之第七天
全选并改变TR颜色的javascript实现代码
Linux系统下文件的压缩命令详解
javascript cookies 设置、读取、删除实例代码
ASP中实现对MediaPlayer控件播放文件地址隐藏的解决方案
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4