保定网络公司+保定网站建设+保定做网站 保定市网络公司 保定市网站设计 保定市网站建设 保定市网站制作 保定市网站推广
保定制作网站,保定建设网站,保定优化网站的公司 设为首页
保定市网站设计,保定市网站建设,保定市网站优化,保定市网站推广
保定网站设计,保定网站建设,保定网站优化,保定网站推广 给我留言
首页       关于我们   作品展示   项目服务   域名空间   公司新闻   建站学院   SEO优化   网站建设   建站知识   联系我们   
保定建站真心为您服务!承接网站建设 + 网页设计 + FLASH设计 + 网站开发 + 平面设计,专业技术人员一对一服务让建站更加专业更加放心……二十小时服务热线:+86)13730168216。欢迎来电咨询…… 现在时间是
文章展示
网站建设 网站推广 一切竟掌握

简单的asp静态页面批量生成代码

发布者:网站建设 保定做网站  发布时间:2009-6-6    点击次数:29756
在做网站的时候遇上了将数十万条数据全部生成静态页面的情况,就写了这个简单的页面生成代码,通过多次http请求,将过多的记录集分割成很多小块来分别执行,以下是我整理过的代码:

模板文件中要替换的内容均以{...}括起来

为力求简洁,去掉了错误处理代码(replace中要来替换的字符串参数不能为null值,当然fso也应该做错误检查)。

<% 
’ ---------------------------------------------------------------------------------------------------------------------
’ http://www.591design.cn
’ ----------------------------------------------------------------------------------------------------------------------
Dim start                 ’该变量为指针将要指向的记录集位置,通过参数动态获得
Dim Template       ’模板文件将以字符串读入该变量
Dim   content           ’替换后的字符串变量
Dim objConn          ’连接对象
Dim ConnStr          ’连接字符串
Dim sql                    ’查询语句
Dim cnt:cnt = 1 ’本轮循环计数器初始化

start   = request("start") ’获取本轮指针的开始位置
If IsNumeric(start) Then start = CLng(start) Else start=1
If start=0 Then start = 1 ’如果start

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("DataBase.mdb")
sql = "select * from table_name"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open ConnStr

set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,objConn,1,1             ’打开数据集
rs.AbsolutePosition = start ’最关键的一步,将指针指向start,start通过参数动态获得

Template = getTemplate(Server.MapPath("template.html"))’ template.html为模板文件,通过函数getTemplate读入到字符串,模板文件中要替换的内容均以{...}括起来

While Not rs.eof And cnt<= 500 ’500是设定一次请求生成页面的循环次数,根据实际情况修改,如果太高了,记录集很多的时候会出现超时错误
       content = Replace(Template,"{filed_name_1}",rs("filed_name_1")) ’用字段值替换模板内容
       content = Replace(content,"{filed_name_2}",rs("filed_name_2")) 
       ......
       content = Replace(content,"{filed_name_n}",rs("filed_name_n")) 

       genHtml content,Server.MapPath("htmfiles/"&rs("id")&".html") ’将替换之后的Template字符串生成HTML文档,htmfiles为存储静态文件的目录,请手动建立

       cnt = cnt + 1   ’计数器加1
       start = start + 1 ’指针变量递增
rs.movenext
wend

If Not rs.eof Then ’通过刷新的方式进行下一轮请求,并将指针变量start传递到下一轮
response.write "<meta http-equiv=’refresh’ content=’0;URL=?start="&start&"’>"
Else
response.write "生成HTML文件完毕!"
End if

rs.Close()
Set rs = Nothing 
objConn.Close()
Set objConn = Nothing 

Function getTemplate(template)’读取模板的函数,返回字符串,template为文件名
Dim fso,f
set fso=CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(template)
getTemplate=f.ReadAll
f.close
set f=nothing
set fso=Nothing
End Function 

Sub genHtml(content,filename)’将替换后的内容写入HTML文档,content为替换后的字符串,filename为生成的文件名
Dim fso,f
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
Set f = fso.CreateTextFile(filename,true)’如果文件名重复将覆盖旧文件
f.Write content
f.Close
Set f = Nothing
set fso=Nothing
End Sub
%>
 
相关文章展示: 关键词: asp  静态页面  批量  生成代码  html  htm  fso 
Asp编码优化技巧8则 [38227]
asp生成UTF-8格式的文件 [37926]
ASP利用缓存提高数据显示效率 [39603]
DIV自适应高度如何来控制 [34443]
JS判断新旧密码一致 [33196]
解决网站被反复挂马的问题 [28638]
Jmail组件发送asp页表单到邮箱 [30229]
符合XHTML带关闭按钮的对联广告代码 [28165]
100个ASP错误提示 [27606]
ASP无法更新ACCESS数据库解决方法 [27520]
 
保定建站欢迎您的咨询
详细地址
  资询热线:
  0312-5975933
业务咨询QQ
业务咨询QQ
业务咨询QQ
空间域名QQ
技术支持QQ
MSN客服
推荐文章
查看更多
· 蛇形溯源-通过话题链接,跨平台获取相关话题的关键词与出现频次
· 社群营销第一人:陈艺明【社群推广首选】社群宣传费用
· 信息发布技巧:产品诱人,卖点突出
· 保定网络公司哪家好?保定最好的网络公司
· 高阳经济开发区与我公司司签订网站建设服务
· 保定微营销报名啦!落地操作(微生活学院)别和钱较劲- 陈艺明
· 保定微营销【最好的】微营销活动报名开始了,陈艺明讲述微生活营
· 保定微营销:陈艺明F2F微生活营销课程开始了!保定微营销最好
· 保定做网站最便宜的多少钱?保定哪家做网站最便宜?
· 保定手机网站建设,保定APP手机网站制作
· 祝贺保定职业技术学院武术协会与我司签订网站建设
· 陈老师讲解:保定中小企业网络微营销的困难困难“解决”低小丑的
   最新作品
亿家能商贸(中英文网站制作-美国服务器)-北京网站建设
亿家能商贸(中英文网站制作-美国服务器)
(网站设计)北京君闻香酒业有限公司-北京网站建设
(网站设计)北京君闻香酒业有限公司
河北保定博时广告(网站设计)-北京网站建设
河北保定博时广告(网站设计)
保定IDO婚庆公司(网站优化)-北京网站建设
保定IDO婚庆公司(网站优化)
保定天生桥牌红枣贡酒(网站设计)-北京网站建设
保定天生桥牌红枣贡酒(网站设计)
保定党史研究史(网站制作)-北京网站建设
保定党史研究史(网站制作)
保定达瑞设备有限公司(网站优化)-北京网站建设
保定达瑞设备有限公司(网站优化)
VI设计公司(网站设计制作)-北京网站建设
VI设计公司(网站设计制作)
|   网站建设  |   关于我们  |   建站学院  |   域名空间  |   作品展示  |   招聘岗位  |   服务项目  |   联系我们  |   建站常识  |   建站论坛  |  

客服中心:河北省保定市永华路与西大街交汇处(查看地图路线)秀兰公寓B座4楼右转即到(428号)。
网络公司联系电话:0312-5975933 / 2035252 / 3146161 二十小时联系电话:13730168216   网络公司售后服务电话:15603212829 传真:0312-3146161
工作时间:周一至周六.上午:8:00-12:00 下午:2:00-6:00 周日全天服务电话:13730168216
客服企业邮箱:kefu@jihewang.com   技术企业邮箱:jishu@jihewang.com   经理企业邮箱:admin@jihewang.com
网络公司名称:   工商注册号:130604000010106   邮编:07100
保定网络公司永久网址:http://www.jihewang.com
Copyright © 2003-2012 保定建站 All rights reserved. 冀ICP备05000154号
本公司业务:保定网站建设_保定网站制作_保定网站推广_保定网页网站设计_保定400电话_软件群发_保定网络公司以敬业、负责的态度为您做网站,以客户的成功为成功。

    
客服
客服
技术
域名
空间
售后
咨询
MSN
电邮