ASP+FSO+框架实现ASP生成HTM并分页的方式-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

ASP+FSO+框架实现ASP生成HTM并分页的方式
还是第一次在CSDN写文章,本人文采和理论知识有限,写得不准确的地方欢迎指正。其实网上已经有很多ASP生成htm的文章了
，有一种方式是ASP+XML的生成方式，虽然有一种好处就是不用程序写模版就可以直接引用原来的要生成页面源码使用，但
本人进行此方式测试时，发现其稳定性差和网速要求高(当然不是在服务器上了)。特殊是虚拟空间上常常报错，有可能在本
人在此方式上代码处理不足的原因吧。长话短说，这篇文章使用大家常用的另一种方式ASP+FSO，这里还应用了框架就是为
了处理大量分页时减少生成时间使用的，这种方式是针对一些页面量较大的ASP文件。

这里我引用一个简朴实例：（旅游电子商务）全国各大城市酒店应用静态页(htm)分页显示

1.应用系统环境:win2000+ASP+MSSQL/ACCESS(数据库基本没有关系了通用的)+iis5.0

2.1个城市列表(CityHtml):包括定义静态htm名称共三个字段(城市ID（自动编号）,城市名称(CityName例如北京),生成htm前缀名(HtmlStartName例如beijing))

3.1个全国酒店列表(Hotel):这里我只建立三个字段（酒店ID(自动编号)，城市名称(City),酒店名称(HotelName)）方便来引用实例。

4.1个ASP页面(ToHtm.asp)(生成htm使用)

5.1个循环框架页面(IframeToHtm.asp)，应用框架批量生成htm

以下给出两个页面的源码

循环框架进行批量生成的页面:IFrameToHtm.asp

\\\'连接数据库
<%
dim rs,sql,j
set rs=Server.CreateObject("adodb.recordset")
sql="select * from CityHtml"\\\'打开全国城市列表
rs.open sql,conn,1,1
do until rs.eof\\\'循环各大城市%>

<IFRame name="LoadRcHtm<%=j%>" frameborder=0 width=100% height=30 scrolling=no src="ToHtml.asp?City=<%=cstr(rs("city"))%>&HtmlStartName=<%=rs("HtmlStart")%>"></IFrame>

<%rs.movenext
loop%>

生成程序页面:ToHtm.asp 我在源码大概写上注释**

\\\'数据连接文件
<%
On Error Resume Next\\\'容错处理
Dim City\\\'定义取得要生成页面的城市
City=Request.Querystring("City")\\\'获取生成的城市酒店值从框架传过来的在后面将介绍
HtmlStartName=Request.Querystring("HtmlStartName")\\\'获得生成htm文件名前缀
Dim sql\\\'搜索字符串,这里我就直接打开表不用搜索变量了，搜索条件按自己写就可以
sql="select * from Hotel where [City] = \\\'" & City & "\\\' "
Dim oRs\\\'数据操作对象
Dim PageCounts\\\'实现分页生成必须得知呀有多少页
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open Sql,oConn,1,1\\\'找开酒店等于City变量的表
oRs.pagesize=10\\\'十个记录为一页
PageCounts=oRs.pagecount\\\'得出要生成多少个页面，循环生成使用
Dim fs\\\'定义fso文件对象
Dim folders\\\'存放生成静态页的文件夹名称
Dim Filestart\\\'定义生成htm文件前缀
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Dim i
for i=1 to PageCounts\\\'开始循环生成页面,也就是分页生成了
page=i
oRs.absolutepage=i\\\'页码
rowcount=oRs.pagesize\\\'当页记录数
folders=server.mappath("CityHtml")
if (fs.FolderExists(folders)) then\\\'判定文件夹是否存在
else
fs.CreateFolder(folders)\\\'不存在则创建CityHtml文件夹
end if
if i=1 then
Filestart=HtmlStartName\\\'假如为第一页则定义文件名为传值名.例如beijing则为beijing.htm
else
Filestart=HtmlStartName&i\\\'假如第二页则为beijing+1例如有两页也就是i等于2则为 beijing2.htm如此类推...(.htm后缀就在后面加上)
end if
Dim files\\\'定义生成文本文件名称变量
Dim filez\\\'定义文件路径名称变量
files=Filestart&".txt"\\\'本文件名称
filez=folders&""&"files\\\'文本文件路径
\\\'册除文件
Dim checkfile\\\'检查文本文件是否已经存在,是则删除
checkfile=server.mappath("CityHtml"&Filestart&".htm")\\\'检查htm文件是否已经存在,是则删除
if (fs.FileExists(checkfile)) then\\\'检查htm文件是否已经存在,是则删除
Dim df\\\'定义文件对象*删除文件使用*
Set df=fs.GetFile(checkfile)\\\'定义要册除的文件
df.delete\\\'册除文件
end if\\\'判定结束
Dim ts\\\'定义写入文件对象
set ts = fs.createtextfile(filez,true) \\\'开启写入文件内容**我在正文只简朴写入酒店名称和静态数字分页显示**
ts.write("<Html><Head><Title>生成"&City&"城市酒店</Title>"&vbcrlf)\\\'之后就是要生成的正文件内容了跟使用Response.write
ts.write("<META http-equiv=Content-Type content=text/html; charset=gb2312>"&vbcrlf)
ts.write("<meta name=keywords content="&city&"酒店>"&vbcrlf)
ts.write("<link href=\\\'/Style/style.css\\\' rel=\\\'stylesheet\\\' type=\\\'text/css\\\'></head><body topmargin=0>"&vbcrlf)
ts.Write("<TABLE WIDTH=760 cellspacing=0 cellpadding=0 align=center>"&vbcrlf&_
"<TR><TD width=\\\'100%\\\'>"&vbcrlf)
\\\'分页输出开始
\\\'数字分页程序原理在这我就不多说了,不懂的朋友可在网上搜索一下
Dim page\\\'当前页
Dim Page2\\\'数字分页变量
Dim s\\\'数字分页变量
if page=1 then
ts.write (" [首页] [前一页] ")
else
ts.write (" <a href="&HtmlStartName&".htm"&" class=blue>[首页]</a> <a href="&HtmlStartName&Replace(page-1,1,"")&".htm"&" class=blue>前一页</a> ")
end if
page2=(page-(page mod 10))/10
if page2<1 then page2=0
for s=page2*10-1 to page2*10+10
if s>0 then
if s=cint(page) then
ts.write (" <font color=\\\'#000000\\\'>["& s & "]</font>")
else
if s=1 then
ts.write (" <a href="&HtmlStartName&replace(s,1,"")&".htm"&" class=blue>["& s &"]</a>")
else
ts.write (" <a href="&HtmlStartName&s&".htm"&" class=blue>["& s &"]</a>")
end if
end if
if s=ors.pagecount then
exit for
end if
end if
next
if cint(page)=ors.pagecount then
ts.write (" [后一页] [尾页]")
else
ts.write (" <a href="&HtmlStartName&page+1&".htm"&" class=blue>[后一页]</a> <a href="&HtmlStartName&ors.pagecount&".htm"&" class=blue>[尾页]</a>")
end if
ts.write("</TD></TR>")
\\\'分页输出结束
do while not ors.eof and rowcount>0 \\\'输出酒店名称
ts.write("<TR><TD width=\\\'100%\\\'>"&oRs.Fields("Chinese_Name")&"</TD></TR>"&vbcrlf)
oRs.movenext
rowcount=rowcount-1\\\'当页记录数-1 loop
ts.write("</Table></body></html>"&vbcrlf)
ts.close
set ts=nothing \\\'释放对象
Dim EditFile\\\'定义改写文件变量
Set EditFile = fs.GetFile(filez)\\\'设置改写文件对象
EditFile.name= left(EditFile.name,len(EditFile.name)-4)&".htm" \\\'改写文本文件成htm
next\\\'循环生成结束(分页生成)
set EditFile=nothing \\\'释放对象
set fs=nothing\\\'释放对象
if err.number<>0 then \\\'处理生成错误
Response.write(City&"更新时发生未知错误<A href=ToHtml.asp?City="&City&"&HtmlName="&HtmlStartName&">重新更新</A>")
else
Response.Write(City&"酒店更新已完成 "&Now())
end if
%>

返回类别: 教程
上一教程: 用ASP实现支持附件的EMAIL系统(2)
下一教程: ASP最新SQL防注入过滤涵数

您可以阅读与"ASP+FSO+框架实现ASP生成HTM并分页的方式"相关的教程:
· ASP+FSO+框架实现ASP生成HTM并分页的方式(批量)
· ASP生成静态网页的方式
· 在ASP中通过GETROWS实现数据库记录分页的一段代码
· ASP实现在WEB中显示电子表格数据(二)生成HTML表格
· 在ASP中，用JSCRIPT脚本实现分页的另类办法


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接