053288628280
您的当前位置:首页 > 技术支持 > 建站知识 >

asp网站静态化之简单asp生成html的代码

时间:2014-08-28

asp网站静态化之简单asp生成html的代码


我们常需要对网站静态化处理,方便收录 。seo推广。现在很多程序都直接实现静态生成。而以前老网站如何静态化,下面就是简单asp生成html的代码 方便网站首页静态。不足就是只能静态生成首页,方便我们只需要静态生成首页的朋友 分享一下
<% 
'----------------------------------------------------------
'使用XMLHTTP生成静态首页的代码
'Curl 为你的首页地址,确保你的空间支持FSO
'-----------------------------------------------------------
dim read,Curl,content
Curl="http://www.qdql.net/index.asp"
read=getHTTPPage(Curl) 
if read<>"" then
  content=read
  call makeindex()
end if
sub makeindex()
  Set Fso = Server.CreateObject("Scripting.FileSystemObject")
  Filen=Server.MapPath("index.html")
  Set Site_Config=FSO.CreateTextFile(Filen,true, False)
  Site_Config.Write content
  Site_Config.Close
  Set Fso = Nothing
  Response.Write("<script>alert('ok!')</script>")
end sub
Function getHTTPPage(url) 
  dim http 
  set http=Server.createobject("Microsoft.XMLHTTP") 
  Http.open "GET",url,false 
  Http.send() 
  if Http.readystate<>4 then
    exit function 
  end if 
  getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
  set http=nothing
  if err.number<>0 then err.Clear 
End function
Function BytesToBstr(body,Cset) 
  dim objstream
  set objstream = Server.CreateObject("adodb.stream")
  objstream.Type = 1
  objstream.Mode =3
  objstream.Open
  objstream.Write body
  objstream.Position = 0
  objstream.Type = 2
  objstream.Charset = Cset
  BytesToBstr = objstream.ReadText 
  objstream.Close
  set objstream = nothing
End Function
%>


代码简单,保存asp文件,上传到后台的根目录下 ,点击生成就可以了
相关文章

Copyright © 2009-2017 千龙网络 版权所有  鲁ICP备09004053号 TAG SITEMAP