08
2008
01

ASP生成静态HTML

今天看了下ASP生成静态HTML技术的文章,总结了以下几点:

 1.asp生成静态HTML技术的前提是建立HTML文件。利用FSO组件建立和写入文件。代码如下:
<%
'生成HTML页面
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath("文件夹名称")) '建立文件架
Set mecca = fso.CreateTextFile(Server.MapPath("HTML文件路径和名称"))'建立文件
mecca .WriteLine "HTML内容"  '写入文件内容
mecca .close
%>
 2.asp生成静态HTML技术关键之二就是调模版啦。没有模版的话就那生成出来的东西是没有用的。这里主要是把模版HTML代码存入数据库,在调出的时候替换掉其中的关键字符就行。可以用replace(mb_code,"$cntop{LogContent}lt;",now())
 
<%'打开模板代码,并将其中特殊代码转变为接受值
sql1="select m_id,m_html from c_moban where m_id=1"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
mb_code=rs1("m_html")
rs1.close
set rs1=nothing
conn.close
set conn=nothing
c_title=htmlencode(c_title)
c_content=htmlencode(c_content)
mb_code=replace(mb_code,"$cntop{LogContent}lt;",now())
mb_code=replace(mb_code,"$cnleft{LogContent}lt;",c_title)
mb_code=replace(mb_code,"$cnright{LogContent}lt;",c_content)
%>
 3.asp生成静态HTML技术关键之三,调用模版时的一个关键函数
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "<br>")
fString = Replace(fString, CHR(10), "<br>")
HTMLEncode = fString
end function
用来保持数据格式不变的函数。
睡觉去了,简单的概述了下。朋友了有时间自己好好钻研。
« 上一篇下一篇 »

相关文章:

asp制作多国语言网站  (2008-3-21 16:13:32)

网站即将改版  (2008-2-24 23:47:48)

SEO工具,站长必备  (2008-2-19 22:55:22)

css三栏布局浏览器兼容问题   (2008-1-15 10:18:24)

评论列表:

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。