新闻内容生成HTML文件的方法

时间：2021-05-02

为了提高百度或google的收入，很多新闻网站都将内容生成静态页面，翔宇亭IT乐园选择的该篇文章就详细地介绍了生成HTML文件的新闻系统的创建方法。

一般的传递ID值的新闻系统见得比较多，制作起来也不是很复杂。但是我们在新浪或是其它的门户类网站看到到的新闻不是用ID传递的，而是一个HTML或是Shtml文件，难道手工加上去的吗？当然不是了，其实这用到的是ASP中的FileSystemObject对象的方法。

接着往下说说如何实现这一功能。

首先考虑文件名的格式及文件的存放路径。路径可以这样假设：

存放的路径：

如果把所有的HTML文件或是所有的SHTML文件都放在同一目录下，当同时访问的人增多以后，势必会影响服务器正常的运行，所以明智的方法就是把这些文件按加入的日期进行分类。

文件名的格式：

为了避免出现重名的文件，一般的命名规则是当天的日期+时间+随机数+后缀名。

function makefilename() fname = now() fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") randomize ranNum=int(90000*rnd)+10000 '生成随机数 fname = fname&fanNum makefilename=fname & ".shtml" end function

这段函数就可以生成所需要的文件名及生成的文件的后缀名，当前的后缀名为.shtml，您也可以改成HTML或是ASP。

刚提到的是文件的命名，现在再来说一下文件的存放路径!

前面提到了，每个文件按加入的日期进行分类，那如何确定路径呢？同样用FSO生成。

用FSO中的folderExists方面来判断目录是否存在，如果存在就不需要重建立了，只需将HTML写入该目录下(这是后话了)。如果folderExists方法取得的值为false则表示目录不存在，就要用createfolder方法生成了。

formPath=datepart("yyyy",now())&"_"&datepart("m",now())&"_"&datepart("d",now()) '建立目录名,生成的文件将按存放在此处

set objfso = server.createobject("scripting.filesystemobject") if not objfso.folderexists(server.mappath(formPath)) then '如果该目录不存在 objfso.createfolder(server.mappath(formPath)) '创建一个文件夹 end if set objfso = nothing

目录就这样建立了。每次FSO生成文件时都进行判断一下，不过这样不知道会不会影响效率，大家可以有什么好的想法可以谈一谈。

先看一个模板： <html> <head> <title>柠檬树下----[title]</title> </head> <body> [news_title] <br> 作者:[author] 来源:[source] 加入日期:[add_time] <br> [content] </body> </html>

这是一个最简单的模板了，里面的用[]括起来的是什么东东呢？那就是即将要被替换的新闻标题、内容、作者等等。

先不管这个模板漂不漂亮，先写入数据表，在后面的用的哟!

下面将谈谈核心部分了，如何生成HTML的呢？

把前面的模板写入数据表，这里给出表的结构，当然是简单的一种Template表

T_ID 'ID值，自动编号

T_name '模板名称

T_content '模板代码

在编辑器中写好新闻后，在处理页里的执行过程是这样的：

（1）取得表单中的各变量值

（2）从Template表中取得模板代码

（3）将模板中的[]括起来的东东替换成相应的表单值，如[autor]就替换成表单中取得的作者名

（4）FSO生成HTML文件

（5）将新闻写入数据表(为什么要写入？以便以后的编辑)

'这里查询模板

strsql = "select * from templet where T_name='"&templet_name&"' " objrs.open strsql,conn,1,1 content = objrs("content") objrs.close '开始替换，其中的title/strcontet都是从表单中取得的，前面的代码略去 content = replace(content,"[title]",title) content = replace(content,"[content]",strcontent) content = replace(content,"[source]",source) content = replace(content,"[author]",author) content = replace(content,"[add_time]",now()) '然后将新闻写入数据表 strsql = "insert into news---------------" conn.execute strsql,intno '执行之 if intno <> 0 then '如果执行结果不为0表示执行成功，则开始写入了 set objfso = server.createobject("scripting.filesystemobject") formPath=datepart("yyyy",now())&"_"&datepart("m",now())&"_"&datepart("d",now()) '建立目录名,生成的文件将按存放在此处 filename = server.mappath(formpath& "/" &makefilename) if objfso.folderexists(server.mappath(formPath)) then '如果该目录存在 Set file = objfso.CreateTextFile(formpath&"\"&fname) file.WriteLine content file.close else objfso.createfolder(server.mappath(formPath)) '创建一个文件夹 Set file = objfso.CreateTextFile(formpath&"\"&fname) file.WriteLine content file.close end if set objfso = nothing else response.write "写入数据失败!" response.end end if

编辑时无非就是重新从数据表中调用该新闻内容，update后重新用FSO写入!

该文章比较详细地介绍了典型新闻系统生成HTML文件的方法，希望对大家有所帮助。

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章