无锡网络公司主营:微信公众号开发 视频主持人无锡网站建设无锡网站推广、400电话、淘宝店铺装修

无锡网站建设 >建站套餐

您当前的位置:明翔网络首页 >最新动态

建站套餐
功能开发
网站维护
网站推广
用户体验
域名主机
网络服务

asp首页生成静态化htm文件的方法


『作者:明翔 』『2011/3/20』

许多人首页调用数据库内容较多,导致首页打开速度很慢,明翔特地放上asp首页生成静态化htm文件的方法的源码,希望对大家有所帮助:

<%
Response.Expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
Response.Buffer = True
Response.Clear
Server.ScriptTimeOut=999999999
on error resume next
'***************************************************************
'*                         定义 从模板从读取首页 函数
'* 说明:模板文件名为:index.asp
'***************************************************************
Function GetPage(url)
         Set Retrieval = CreateObject("Microsoft.XMLHTTP")
         With Retrieval
         .Open "Get", url, False, "", ""
         .Send
         GetPage = BytesToBstr(.ResponseBody)
         End With
         Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
         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 = "GB2312"
         BytesToBstr = objstream.ReadText
         objstream.Close
         set objstream = nothing
End Function

'***************************************************************
'* 生页首页,文件名为:index.htm
'***************************************************************
dim Tstr
Tstr = GetPage("http://121.234.118.58:8081/index.asp")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath(".")&"/index.htm")
fout.Write Tstr
fout.close
    Response.write"<script>alert(""生成首页成功!\n\n文件名为:index.htm"");</script>"
    Response.Redirect "http://www.seopets.com/"
    Response.end
%>
这上面便是生成首页静态化文件的源码了,我另一个网站也做的是无锡网站建设,测试了没有什么问题,欢迎大家和我交流!


tags:

上一篇企业网站推广关键词才是核心第一步 下一篇话说新浪seo培训的那点事
文章作者:明翔
本文地址:http://www.seopets.com/news.asp?id=439
版权所有-转载时必须以链接形式注明作者和原始出处!

主机租用
无锡明翔网络保证提供给客户的虚拟主机速度快、稳定,虚拟主机由中国频道提供服务器配置。
企业邮局
自主管理邮箱设定支持别名及邮件分组列表功能,传输加密收发可靠,安全及反攻击设备
网络推广
百度优化推广是一种自然正规的网络网络推广方式,价格和竞价相比便宜和竞价相比便宜。
域名注册
IDN(国际化域名名称)标准,全面支持A、CNAME、MX记录及URL转发,拥有全部域名管理权。

Copyright 2009-2014 All Rights Reserved @ 明翔网络 地址:无锡市新区旺庄路
邮政编码:214000 客服电话:180-3629-6280 经营性许可证:苏ICP备11043233号 客服邮箱:admin@seopets.com