动画载入中...loading
专业做网站的服务宗旨:您的满意,我的追求!

ASP动态文件生成静态html文件函数

标签: 生成静态 ASP生成html      更新时间: 2010-02-05     点击次数: 89936
 

上海网站制作工作室提供一个由ASP动态文件生成静态html文件的函数
可以借助循环语句来完成批量生成静态。
以下代码中的“‘”和“’”都转化成英文字符“‘”

<%
on error resume next

Function GetPage(url)
 ‘获得文件内容
 dim Retrieval
 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

‘///生成静态页函数,html_Url:要读取的页面地址;html_folder:存储的路径;html_file:文件名
Sub  Asp_to_html(html_Url,html_folder,html_file)
 html_file=html_folder&html_file
 wstr = GetPage(html_Url)
 if not html_fs.FolderExists(server.MapPath(html_folder)) then ‘如果文件夹不存在就生成文件夹
   html_fs.CreateFolder(server.MapPath(html_folder))‘
 end if
 dizhi=server.MapPath(html_file)‘存储的路径
 ‘If (html_fs.FileExists(dizhi)) Then
 ‘html_fs.DeleteFile(dizhi)
 ‘End If
 Set CrFi=html_fs.CreateTextFile(dizhi)
 Crfi.Writeline(wstr)
 set CrFi=nothing
End sub

 

‘/////正方程序开始////////////////
Set html_fs=Server.CreateObject('Scripting.FileSystemObject')

‘/////可以配合数据库来完成批量
html_Url='http://www.91021.cn要读取的页面地址
html_folder='/html/html/'‘存储的路径
html_file='test3.htm'‘文件名
call Asp_to_html(html_Url,html_folder,html_file)


set html_fs=nothing

response.write '...<font color=red>更新完成!</font>'
%>

当前网址:http://www.449cg.com/news_show.asp?id=152
上篇文章: HTML代码转化函数HTMLEncode()
下篇文章:上海外贸网站建设、中英双语企业网站制作,价格底质量保证
返回顶部
>>> 文章中心
→ 建站知识  Knowledge
→ 建站动态  News
→ 建站心得  Experience
  • Tel:13167085087(张先生)
  • QQ:374150234 (往日随风)
  • Email:clover168@163.com
  • Postcode:200000