ASP自动生成HTML文件方法

最新推荐文章于 2021-06-07 14:50:09 发布
最新推荐文章于 2021-06-07 14:50:09 发布
阅读量106 收藏
点赞数
文章标签： 数据库
首先这项技术的优点是：(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的创建文件方法在服务器创建一个网页文件..
然后把代码写到创建的文件里...就是这样..
weixin_34113237
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
asp生成html函数
01-16
asp生成html函数，绝对可以用，，试试就知道，好用就好评哦。。
Asp生成HTML方法大全
01-02
方法一:FSOSet fs = CreateObject(“Scripting.FileSystemObject”)NewFile=Server.MapPath(“/asp/chap06/at/newfile.html”)‘新建一文件/newfile.html,若该文件已存在，则覆盖它Set a = fs.CreateTextFile(...
使用ASP生成HTML文件
tcomsj的专栏
07-14 614
 使用ASP生成HTML文件使用ASP生成HTML文件共有两个页面index.htm是首页.程序比较简单，主要是用了ASP里的文件操作对象。Untitled Documentcharset=gb2312">发送消息//send.asp function chan_time(shijian)转换日期时间函数s_year=year(shijian)if len(s_year)=2 then s_
asp自动生成html文件的方法
lijian910wolf的专栏
09-17 1929
1，设计数据库testmb.mdb 新建表moban：字段m_id（自动编号，主关键字）；字段m_html（备注类型） 2，假设第一模板内容代码 将下列代码拷贝到m_html字段中 以下是代码片段： testmb $ cntop$ $ cnleft$ $ cnright$ 注意$ cntop$ 、$ cnleft$ 、$ cnright$ ，它们将要实现某些具体的程
Asp生成HTML
iasky的专栏
03-25 1275
方法一:FSOSet fs = CreateObject("Scripting.FileSystemObject")NewFile=Server.MapPath("/asp/chap06/at/newfile.html")新建一文件/newfile.html,若该文件已存在，则覆盖它Set a = fs.CreateTextFile(NewFile, True)Response.Write"
asp生成html
happmaoo的专栏
06-18 196
目前已经有很多生成html的新闻系统，但是都是用的模板，本函数实现把asp页面产生的html代码保存成为一个html文件，这样就没有必要改动原来的页面就可以轻松完成一个生成html的新闻系统了。^_^ 由于代码比较短，这里就不进行注释了 &lt;% '当目标页面的包含文件即#include的页面里边存在response.End()的时候本程序有问题 '注意：本文件一定要放在...
asp生成带有样式的word文件方法
01-02
asp生成word文件举例</title><body>欢迎光临www.jb51.net(软件开发网)</span></body></html>” filename= “2008.doc” Set act = fso.CreateTextFile(server.mappath(filename), ...
asp如何自动生成html文件.pdf
10-05
总结来说，ASP自动生成HTML文件的过程包括以下几个步骤： 1. 设计数据库结构并存储HTML模板。 2. 创建数据库连接文件，如`conn.asp`，用于处理数据库操作。 3. 编写辅助库文件，如`lib.asp`，定义实现动态功能的子...
C#自动生成.cs文件
01-02
自动生成.cs文件的方法有多种，其中最常见的是使用文本模板引擎和代码生成库。以下是一些关键技术点： 1. **文本模板引擎**： - **T4 Text Templates**：这是Visual Studio内置的一种模板引擎，允许开发者在模板中...
asp如何自动生成html文件[借鉴].pdf
10-11
总结来说，ASP自动生成HTML文件的关键步骤包括： 1. 设计数据库结构并存储HTML模板。 2. 创建数据库连接文件，以便读取和写入数据。 3. 编写库文件，包含处理特殊字符串的函数或子程序。 4. 在ASP页面中调用数据库中...
asp直接生成html源码
01-05
asp生成html源码 <% function chan_time(shijian)'转换日期时间函数 s_year=year(shijian) if len(s_year)=2 then s_year="20"&s_year s_month=month(shijian) if s_month<10 then s_month="0"&s_month s_day=day(shijian) if s_day<10 then s_day="0"&s_day s_hour=hour(shijian) if s_hour<10 then s_hour="0"&s_hour s_minute=minute(shijian) if s_minute<10 then s_minute="0"&s_minute chan_time=s_year & s_month & s_day & s_hour & s_minute end function function chan_data(shijian) '转换日期时间函数 s_year=year(shijian) if len(s_year)=2 then s_year="20"&s_year s_month=month(shijian) if s_month<10 then s_month="0"&s_month s_day=day(shijian) if s_day<10 then s_day="0"&s_day chan_data=s_year & s_month & s_day end function function chan_file(shijian)'转换日期时间函数 s_month=month(shijian) if s_month<10 then s_month="0"&s_month s_day=day(shijian) if s_day<10 then s_day="0"&s_day s_hour=hour(shijian) if s_hour<10 then s_hour="0"&s_hour s_minute=minute(shijian) if s_minute<10 then s_minute="0"&s_minute s_ss=second(shijian) if s_ss<10 then s_ss="0"&s_ss chan_file = s_month & s_day & s_hour & s_minute & s_ss end function top="<html><head><title>news</title><meta http-equiv=Content-Type content=text/html; charset=gb2312></head><body>" botom="</body></html>" msg=request.Form("msg") msg=replace(msg,vbcrlf,"") msg=replace(msg,chr(9),"") msg=replace(msg," "," ") msg=replace(msg,"\r\n","<br>") msg=replace(msg,"\n","<br>") msg=top&msg;&botom; Set fs=Server.CreateObject("Scripting.FileSystemObject") all_tree2=server.mappath("news")&"\"&chan;_data(now) if (fs.FolderExists(all_tree2)) then'判断今天的文件夹是否存在 else fs.CreateFolder(all_tree2) end if pass=chan_file(now) randomize '使用系统计时器来初始化乱数产生器 pass=rnd(pass) pass=get_pass(pass) pass=left(pass,10) file1=pass files=file1&".txt" filez=all_tree2&"\"&files; set ts = fs.createtextfile(filez,true) '写文件 for z=1 to len(msg) write_now=mid(msg,z,1) ts.write(write_now) next ' ts.writeline(all_msg) ts.close set ts=nothing '文件生成 if err.number<>0 or err then%> [removed] alert("不能完成") [removed] <%else%> [removed] alert("已完成") history.back(); [removed] <%end if Set MyFile = fs.GetFile(filez) all_tree2=server.mappath("news")&"\"&chan;_data(now) if (fs.FolderExists(all_tree2)) then else fs.CreateFolder(all_tree2) end if MyFile.name= left(MyFile.name,len(MyFile.name)-4)&".html" set MyFile=nothing set fs=nothing set fdir=nothing function get_pass(pass) pass=cstr(pass) pass=replace(pass," ","") pass=replace(pass," ","") pass=replace(pass,"-","") pass=replace(pass," ","") pass=replace(pass,":","") pass=replace(pass,".","") pass=replace(pass,"+","") pass=replace(pass,"_","") pass=replace(pass,"<","") pass=replace(pass,">","") pass=replace(pass,"!","") pass=replace(pass,"@","") pass=replace(pass,"#","") pass=replace(pass,"$","") pass=replace(pass,"%","") pass=replace(pass,"^","") pass=replace(pass,"&","") pass=replace(pass,"*","") pass=replace(pass,"(","") pass=replace(pass,")","") pass=replace(pass,"=","") pass=replace(pass,"\","") pass=replace(pass,"/","") pass=replace(pass,"|","") get_pass=pass end function %>
ASP自动生成HTML页
08-13
语言：ASP 数据库：ACCESS 功能：保存数据时自动生成HTML页面。
asp开发工具-asp基本语句自动生成，不用手写
06-20
asp基本语句自动生成，不用手写，大家可以拿去看看，绝对好东西
asp静态页生成程序，在线html静态页批量生成程序,网站转html程序代码
06-18
这是一个网站html静态页生成程序(asp代码)，将该asp文件上传至网站根目录下访问和使用即可！打开该asp页面即可一键生成整站html静态页。
asp生成htm插件 v1.5
11-22
asp生成htm插,一个简单使用方便的ASP生成静态插件,无须安装,也无须整合到你后台
asp生成html文件代码
guigangsky的专栏
01-14 1122
on error resume next            Const adTypeBinary = 1Const adTypeText = 2Function Bytes2bStr(vin)Dim BytesStream,StringReturnSet BytesStream = Server.CreateObject("ADODB.Stream")With BytesStream.Type
ASP生成静态Html文件技术
chinajobs的专栏
05-13 1389
现在网站网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度.  像www.aspid.cn的主站就采用了TSYS生成html文件! 所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获. 1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html
asp自动生成html文件器,比较ASP生成静态HTML文件的几种方法
weixin_42374930的博客
05-31 177
将动态页面转换生成静态Html文件有许多好处，比如生成html网页有利于被搜索引擎收录(特别是对接受动态参数的页面)。前台访问时，脱离了数据访问,减轻对数据库访问的压力，加快网页打开速度。当然，凡事有利必有弊，生成HTML页面无形中也耗费大量的磁盘空间以存放这些静态文件，在编辑页面过程中除读写数据库外，也要读写服务器磁盘，页面样式的改动必须重新生成全部HTML文件，等等。像很多搜索引擎，都可以提交...
asp 生成html文件,用ASP生成静态Html文件
weixin_42407739的博客
06-07 273
网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全。前台脱离了数据访问，减轻对数据库访问的压力，加快网页打开速度。1.下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件filename="test.htm"ifrequest("body")<>""thensetfso=Server.Create...
ASP办公自动化系统：开发、设计与功能详解
系统基于ASP（Active Server Pages）技术，这是一种服务器端脚本语言，可以嵌入到HTML中，用于动态生成网页内容。数据库技术作为关键支撑，用于存储和管理各类办公信息，确保数据的安全性和高效性。用户界面简洁易用...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值