ASP:关于生成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写入!

ASP:关于生成HTML文件的新闻系统相关推荐

生成静态文件的新闻系统核心代码
在网上看了许多能生成静态页的新闻系统,但基于asp.net的系统极少,闲下时间来自己写了一个,发出来,大家一起研究,代码没做什么优化,只是实现了功能 using System; using Syste ...
制作生成静态页面的新闻系统
利用PHP生成静态HTML页面的好处很多: 1.静态页面不需要Web服务器解释执行,用户打开网页的速度会快些: 2.打开静态页面时,Web服务器不需要访问数据库,减轻了对数据库访问的压力: 3.静态H ...
asp自动生成html文件的方法
1,设计数据库testmb.mdb 新建表moban:字段m_id(自动编号,主关键字):字段m_html(备注类型) 2,假设第一模板内容代码将下列代码拷贝到m_html字段中以下是代码片段: ...
Asp.net生成Excel文件并下载（解决使用迅雷下载页面而不是文件的问题）
这里采用的是在服务端先生成Excel文件,然后利用文件地址下载的方法. 先试用Response.WriteFile的方法: FileInfo fi = new FileInfo(excelFile); ...
【原】Asp.net生成Excel文件并下载（更新：解决使用迅雷下载页面而不是文件的问题）...
这里采用的是在服务端先生成Excel文件,然后利用文件地址下载的方法. 生成Excel文件的方法,见:[原].Net创建Excel文件(插入数据.修改格式.生成图表)的方法先试用Response.W ...
java迅雷下载excel,Asp.net生成Excel文件并下载（更新：解决使用迅雷下载页面而不是文件的问题）...
(一) 如果在迅雷的下载对话框中点取消,则会使用IE的下载,这里的文件又是正确的了: 怀疑迅雷是根据下载对话框中的网址重新请求下载,与发起请求的页面已经无关,而IE又不会把ViewState信息传到迅 ...
Asp.net生成Excel文件并下载（更新：解决使用迅雷下载页面而不是文件的问题）...
这里采用的是在服务端先生成Excel文件,然后利用文件地址下载的方法. 生成Excel文件的方法,见:[原].Net创建Excel文件(插入数据.修改格式.生成图表)的方法先试用Response.W ...
asp.net生成csv文件，并在客户端点击下载（文件流直接输出到客户端而不是先生成保存在服务端再下载）
1>.定义生成csv文件的model public class CSVModel{public int Id { get; set; }public string ProductNum { ge ...
itextsharp c# asp.net 生成 pdf 文件
一切的开始必须要有2个dll, 可以通过nuget 包xiazai, 关键字是itextsharp. using iTextSharp.text; using iTextSharp.text.pdf; ...

ASP:关于生成HTML文件的新闻系统

ASP:关于生成HTML文件的新闻系统相关推荐

最新文章

热门文章