探讨ASP转化成静态数据网页页面的一些方式小结

摘要: 大家都知道,静态数据的网页页面通常比动态性的网页页面更为有益于提升,同时也非常容易被百度搜索百度收录。如今也是有许多伪静态数据的网站。下边就和大伙儿详细说明一下...

  大家都知道,静态数据的网页页面通常比动态性的网页页面更为有益于提升,同时也非常容易被百度搜索百度收录。如今也是有许多伪静态数据的网站。下边就和大伙儿详细说明一下ASP转化成静态数据网页页面的方式。
function  createHTML(ID)
'''''''''''''''''''''''''''''''''''''''''''''''''载入数据信息库有关信息内容
dim title,NewsType,Content
mydb.Sql= SELECT * FROM [News] WHERE [ID]= ID
mydb.LockType=2
Set Rsnews=mydb.GetRs()
if not Rsnews.eof then
title = Rsnews( title )
Content = Rsnews( Content )
else
end if
Rsnews.close
set Rsnews = nothing
'''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''载入模板
dim tUrl
rootpath = server.MapPath( / )
tUrl=rootpath+ /
Dim objFSO,objCountFile,FiletempData,contentr
Set objFSO = Server.CreateObject( Scripting.FileSystemObject )
Set objCountFile = objFSO.OpenTextFile(tUrl,1,True)
FSOFileRead = objCountFile.ReadAll
contentr = replace(FSOFileRead , {$News_Title} ,title)
contentr = replace(contentr, {$Content} ,Content)
contentr = replace(contentr, {$RecommendNews} ,title)
'''''''''''''''''''''''''''''''''转化成新文档相对路径
dim newFilepath

response.Write(ID)
response.Write(title)
response.Write(newFilepath)
response.End()
'''''''''''''''''''''''''''''''''转化成新文档并载入文档
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fsor, fr, tsr
Set fsor = CreateObject( Scripting.FileSystemObject )
fsor.CreateTextFile  newFilepath  '建立一个文档。
Set fr = fsor.GetFile(newFilepath)
Set tsr = fr.OpenAsTextStream(ForWriting, TristateUseDefault)
tsr.Write contentr
tsr.Close
end function


共享到:


联系我们

全国服务热线:4000-399-000 公司邮箱:343111187@qq.com

  工作日 9:00-18:00

关注我们

官网公众号

官网公众号

Copyright?2020 广州凡科互联网科技股份有限公司 版权所有 粤ICP备10235580号 客服热线 18720358503