ASP生成HTML方法

来源：互联网发布：ios屏幕录制软件编辑：程序博客网时间：2024/06/06 02:44

ASP生成HTML方法一种ASP生成HTML方法一种这个例子是最基础的fso操作例子之一吧。

首先这项技术的优点是：(1)减轻数据库的压力;(2)把数据库和页面隔离开来
然后给大家讲一下实现原理..

ASP生成HTML其实是使用服务器的FSO内置对象..
其定义方法为
set fs=createobject("scripting.filesystemobject") '设置FSO对象

在建立FSO对象后就可以对服务器进行文件及文件夹管理操作...
所以在服务器新建一个网页文件也是很轻松的事...

sub SaveText(FileName,Data) '这是一个用于写文本文件的过程
dim fs,ts,path '定义变量
set fs=createobject("scripting.filesystemobject") '设置FSO对象
if instr(filename,":/")<>0 then '判断是不是绝对路径
path=filename
else
path=server.MapPath(FileName)
end if
set ts=fs.createtextfile(path,true) '创建文件对象
ts.writeline(data) '写数据
ts.close '关闭对象
set ts=nothing
set fs=nothing
end sub

这是一个建立所在类型文件的子程序..
对重要语句都给了一定的注释...
功能就是向服务器的指定路径创建一个文件并将数据写进去..
其调用方式为:
savetext "D:/chris.html","chris"
大家可以在自己的电脑上试一下..
第一个参数为Chris.html
文件内容为chris

了解了创建文件的原理之后就可以对网站进行批量网页生成..

但是在生成以前我们必须得为生成的页面制作一个模板...

下面我举个例子..

Mode.asp
------------------
<body onLoad="window.focus();">
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0" class="table">
<tr>
<td><br>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td style="LEFT: 0px; WIDTH: 600 xp; WORD-WRAP: break-word"><p><font size="2"><%=rs("bigclass")%> -> <%=rs("smallclass")%> -> <font color="#FF9B9B"><%=rs("title")%></font></font></p>
<p><font size="2"><%response.Write(ubbcode(rs("content")))%></font></p>
<p> </p>
<p align="right"><font size="2">摘自：<%=rs("path")%>　　</font></p></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="center"><font size="2"><br>
发布时间：<font color="#FF9B9B"><%=rs("time")%></font>　　浏览次数：<font color="#FF9B9B"><%=rs("browse")%></font></font></div></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>

这是一个模板文件....

下面要做的操作就是制作一个生成页面...

这个生成页面要做的工作是将Mode.asp的文件内容读出.然后将其需要动态替换的地方替换成需要的内容..

set fso=server.CreateObject("scripting.filesystemobject") '创建一个FSO对象
set myfile=fso.getfile(filepath) '设置一个文件对象..filepath就是这个模板文件的名称
set ts=myfile.openastextstream '设置一个文本对象..并打开这个对象...
if not ts.atendofstream then content=changecontent(ts.readline)
do while not ts.atendofstream
content=content+vbcrlf
content=content+changecontent(ts.readline)
loop

将模板文件的内容赋值到content变量里...

再对其模板内容处理后生成新的网页文件...

例如
Replace(content,"<%=rs("title")%"&">",title)
将模板文件的<%=Rs("title")%>替换为文章标题...

其他的Content,Time,Browse以此类推...

Content进行处理后就是一个完整的网页文件..
将其输出就完成了网页的生成..
sub SaveText(FileName,Data) '这是一个用于写文本文件的过程
dim fs,ts,path '定义变量
set fs=createobject("scripting.filesystemobject") '设置FSO对象
if instr(filename,":/")<>0 then '判断是不是绝对路径
path=filename
else
path=server.MapPath(FileName)
end if
set ts=fs.createtextfile(path,true) '创建文件对象
ts.writeline(data) '写数据
ts.close '关闭对象
set ts=nothing
set fs=nothing
end sub

savetext CreateFileName,Content '调用写文件子程序

使用模板自动生成原理基本上就是这样...
主要问题在于大家使用过程中的一些细节问题的注意...
一会儿我会让大家看一个比较成熟的FSO的展示程序...

set myfile=fso.getfile(uta(filepath))
----------------------
在FSO对象的基础上建立一个文件对象...

myfile=你指定的那个文件..

if not ts.atendofstream then content=changecontent(ts.readline) '判断文件是否为空.如果不为空才进行赋值操作
do while not ts.atendofstream 'AtEndOfStream判断是不是文件的末尾
content=content+vbcrlf
content=content+changecontent(ts.readline)
loop

FSO对象的属性和方法比较多...如果大家感兴趣可以参考一下VBS参考手册..
我在这里只是起一个引导作用...给大家讲解一下成生网页文件..

content=content+vbcrlf
content=content+changecontent(ts.readline)
是做什么的
------------------------------------
把文件按行读出来...

AtEndOfStream判断是不是文件的末尾刚才Chris已经讲了
do while not ts.atendofstream 'AtEndOfStream判断是不是文件的末尾 content=content+vbcrlf
content=content+changecontent(ts.readline)
loop
的意思就是说，把文件中的一行一行读出来

只是一个函数..
function uta(val)
uta=replace(val,"*","&")
end function

filepath是在哪里取的?

filepath就是你那个文件所在地呀

2005-07-09 15:36:19 偸米饭(44018790)
Chris
changecontent这个函数有什么用?

changecontent是一个函数，可能是替换里面的一些字符
那些都是一些Replace的替换操作...
你们根据自己需要进行处理...
不一定必须...

整体原理就是利用FSO的创建文件方法在服务器创建一个网页文件..
然后把代码写到创建的文件里

ASP生成Html文件静态页面网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度. 所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获.

1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件＜%

以下是引用片段：
filename="test.htm"
if request("body")＜>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>"
htmlwrite.write " ＜body>输出Title内容: " & request.form("title") & "＜br /> 输出 Body内容:" & request.form("body")& "＜/body>＜/html>"
htmlwrite.close
set fout=nothing
set fso=nothing
end if
%>
＜form name="form" method="post" action="">
＜input name="title" value="Title" size=26>
＜br>
＜textarea name="body">Body＜/textarea>
＜br>
＜br>
＜input type="submit" name="Submit" value="生成html">
＜/form>
2、但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法.
template.htm ' //模板文件＜html>
以下是引用片段：
＜head>
＜title>$title$ by aspid.cn＜/title>
＜/head>
＜body>
$body$
＜/body>
＜/html> ?
TestTemplate.asp '// 生成Html ＜%
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件，读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close
strTitle="生成的网页标题"
strContent="生成的网页内容"
'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "生成静态页成功！"
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
%>

3、第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者 Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对XMLHTTP吟清还不熟悉正在找资料了解. 找到一段XMLHTTP生成Html的代码参考一下.

以下是引用片段：
＜%
'常用函数
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate＜>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number＜>0 then err.Clear
end function

2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换

以下是引用片段：
Function BytesToBstr(body,Cset)
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 = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing

End Function

txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立
openFile.writeline(sText)
Set OpenFile=nothing
%>
＜script>
alert("静态网页生成完毕");
history.back();
＜/script>