主页 > 知识库 > 从一个网站扒下的asp生成静态页面的代码 脚本之家特供版

从一个网站扒下的asp生成静态页面的代码 脚本之家特供版

热门标签:创意电话机器人 世界地图标注了哪些城市 济源电销外呼系统线路 外呼线路批发 java外呼系统是什么 石家庄慧营销外呼系统 梧州市地图标注 地图标注阳江 武穴地图标注
复制代码 代码如下:

%
webfolder="/"
host="index_cn.asp"'前台动态地址
folder="/"'文件夹
filename="index_cn.html"'生成静态文件名
Fso_info host,folder,filename
response.write"生成网站中文首页静态HTML完成.br />"
'生成html
Function Fso_info(host,folder,filename)
host="http://"+Request.ServerVariables("HTTP_HOST")webfolderhost
if SaveFile(""folderfilename"",""host"") then
response.Write ""folderfilename" 生成成功. br />"
else
Response.write ""folderfilename" 生成font color='#FF0000'>失败/font>,可能您的文件名含有特殊字符.br />"
end if
End Function
'生成文件
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microso" "ft.XM" "LHTTP") '//把单词拆开防止杀毒软件误杀
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Ado" "db.Str" "eam") '//把单词拆开防止杀毒软件误杀
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
if err > 0 then
SaveFile = false
err.clear
else
SaveFile = true
end if
End function
%>
您可能感兴趣的文章:
  • IIS6 中"ASP 0201 错误 无效的默认脚本语言" 的解决方法
  • 使用ASP控制指定站点解析脚本语言函数
  • 用InstallShield打包ASP程序的脚本
  • asp分页生成html的程序脚本代码
  • 隐藏修改文件时间和文件属性的ASP脚本
  • ASP.NET调用javascript脚本的常见方法小结
  • iis、apache与nginx禁止目录执行asp、php脚本的实现方法
  • ASP上传漏洞之利用CHR(0)绕过扩展名检测脚本
  • ASP中Server.Execute和Execute实现动态包含(include)脚本的区别
  • ASP.NET中后台注册js脚本使用的方法对比
  • ASP程序中常用的脚本语言

标签:淮北 滁州 唐山 迪庆 揭阳 甘南 南宁 来宾

巨人网络通讯声明:本文标题《从一个网站扒下的asp生成静态页面的代码 脚本之家特供版》,本文关键词  从,一个,网站,扒下,的,asp,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《从一个网站扒下的asp生成静态页面的代码 脚本之家特供版》相关的同类信息!
  • 本页收集关于从一个网站扒下的asp生成静态页面的代码 脚本之家特供版的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章