动态网站首页的静态生成方法

原创 2005年02月28日 23:29:00

方法一

<%

'常用函数
'1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.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

'2、转换乱玛,直接用xmlhttp调用有中文字符的网页得到的将是乱玛,可以通过adodb.stream组件进行转换
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

 

txtURL=server.MapPath("../index.asp")

sText = getHTTPPage(txtURL)

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立
openFile.writeline(sText)
Set OpenFile=nothing

%>
<script>
alert("静态网页生成完毕");
history.back();
</script>

方法二:

 resourcefile=server.MapPath("../index.asp")
  targetfile=server.MapPath("../index.htm")
  Set html = Server.CreateObject("CDO.Message")
  html.CreateMHTMLBody resourcefile,31
  indexcode=html.HTMLBody
  Set html = Nothing
if instr(indexcode,"</BODY></HTML>")<=0 then
  response.Write("首页生成失败")
  response.End()
 else
   Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
   Set outfile=oFileSys.CreateTextFile(targetfile)
   outfile.WriteLine indexcode
   outfile.close  
   Set outfile=nothing
   set oFileSys=nothing
     response.Write("首页生成完毕!")
end if

动态网站首页的静态生成方法

方法一常用函数1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码function getHTTPPage(url)dim Httpset Http=server.crea...
  • lohoo
  • lohoo
  • 2005年03月05日 17:38
  • 640

动态网站首页的静态生成方法

方法一常用函数1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码function getHTTPPage(url)dim Httpset Http=server.crea...
  • loyos
  • loyos
  • 2006年08月07日 20:36
  • 880

动态网站首页的静态生成方法

 方法一常用函数1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码function getHTTPPage(url)dim Httpset Http=server.cre...
  • tcomsj
  • tcomsj
  • 2005年07月14日 21:18
  • 402

【Zanuck 镇】WordPress页面静态化

我对wordpress的赞美真的可以说是词穷了。 wordpress做为世界上最流行的php博客平台,不管是从界面还是功能上来说,都做到了非常完美的境界。可以说一般的cms根本就不能和wordp...
  • ztyzly00
  • ztyzly00
  • 2016年10月30日 09:56
  • 3021

动态网站如何生成静态页面

      本文从一个ASP程序员的角度用大量实例祥细介绍了动态网站如何生成静态页面原理,又从一个采集程序开发者的角度去祥细介绍了网站数据采集的原理及功防策略。        关于网站生成静态页面,为...
  • feishanm
  • feishanm
  • 2006年12月23日 17:21
  • 7335

织梦DedeCms网站首页不生成html文件动态显示方法

“首页可以直接用PHP文件动态显示的,方便的地方就是你在做修改的时候,不需要生成html文件。修改方法,编辑打开根目录下的index.php,用下面代码全部替换里面的所有内容。...
  • powmxypow
  • powmxypow
  • 2016年07月28日 13:43
  • 1811

DEDECMS首页自动生成静态文件index.html

DEDECMS首页自动生成静态文件index.html
  • netuser1937
  • netuser1937
  • 2017年01月09日 14:45
  • 521

静态网页/动态网页/伪静态网页/动态HTML

所谓"静态"指的是网页内容"固定不变",当浏览者通过互联网的HTTP协议向Web服务器请求替换网页内容时,服务器仅仅是将原来已经设计好的静态HTML文档传送给用户的流量器,其页面的内容使用仅仅是标准的...
  • wumenglu1018
  • wumenglu1018
  • 2017年03月14日 10:39
  • 2064

ecshop生成纯静态页

1. 打开index.php 找到 $smarty->display('index.dwt', $cache_id),并将其注释掉。   2. 在 includes/cls_template.ph...
  • qqahanson
  • qqahanson
  • 2014年02月24日 13:23
  • 1644

phpcmsv9后台管理生成首页静态模板技术ob系列函数实现

phpcmsv9后台管理生成首页 m=
  • yhjztoucher
  • yhjztoucher
  • 2014年06月05日 10:41
  • 2114
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:动态网站首页的静态生成方法
举报原因:
原因补充:

(最多只允许输入30个字)