栏目导航

热点推荐

阅览排行

当前位置：主页>网络编程>ASP教程>资讯:asp 网站静态化函数代码html

asp 网站静态化函数代码html

www.jz123.cn 2010-01-07 来源: 中国建站责任编辑(袁袁) 我要投递新闻

　　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

顶一下

上一篇：asp自带的内存缓存 application 下一篇：ASP所有的Session变量获取实现代码

栏目导航

热点推荐

阅览排行

asp 网站静态化函数代码html

相关文章列表

评论总数：0 条 [ 查看全部 ] 网友评论