当前位置: 首页 > 图文教程 > 网络编程 > ASP > 通过XMLHTTP实现模板式静态页生成

ASP
ASP+XML实例演练编程代码
asp下利用XMLHTTP 从其他页面获取数据的代码
asp下实现IP限制函数代码
asp下IP地址分段计算函数
asp身份证验证代码函数
用Asp隐藏文件路径,实现防盗链 的代码
ASP生成柱型体,折线图,饼图源代码提供了
用asp实现网址和邮件地址的转换函数
asp下最简洁的多重查询的解决方案
asp下用datediff实现计算两个时间差的函数
asp下实现记录集内随机取记录的代码
asp下轻松实现将上传图片到数据库的代码
[原创]站长感慨asp编程究竟何去何从
fso asp生成静态html的代码
ASP版实现cookies注入加速工具
ASP实现网页打开任何类型文件都提示保存的方法附代码
asp下使用数组存放数据的代码
一句话 asp木马加密版 彻底突破杀毒软件
asp清空application的方法
使用asp下的adodb.stream 下载文件而不是打开

ASP 中的 通过XMLHTTP实现模板式静态页生成


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 281 ::
收藏到网摘: n/a

前两天在给自己的一个网站(www.cfsoft.com.cn)做一个文章发布程序,为了使网站更容易被搜索网站收录所以将内容都生成为静态页

一、xxfb表结构如下

type   类型,在我的网站中用来区分几个栏目,我那里有一个技术,一个新闻

pagetitle页面标题

keywords页面关键字

description页面mata里的描述

doctitle 文章标题

doctext文章内容

thedate发布时间

orderid排序代号

commend标注是否为推荐文章

二、每一个类型定义一个list_加类型名的目录模板页面,一个temp_加类型名的文章模板页面

三、以下为静态页生成主体程序

以下为引用的内容:
If Trim(request("flag"))="BUILD" Then
'---生成目录------
sql="select distinct type from xxfb"
Set objrs=conn.execute(sql)
While Not objrs.eof
url = siteurl&"/admin/list_"&Trim(objrs("type"))&".asp"
set http=Server.createobject("Msxml2.XMLHTTP")
Http.open "GET",url,false
Http.send()
set objStream = Server.CreateObject("ADODB.Stream")
objStream.type = 1
objStream.open
objstream.write http.responseBody
objstream.saveToFile server.mappath("/"&Trim(objrs("type"))&"/"&Trim(objrs("type"))&".htm"),2
objstream.close
Set objstream=Nothing
   objrs.movenext
Wend
Set objrs=Nothing

sql="select * from xxfb order by thedate desc"
Set objrs=conn.execute(sql)
While Not objrs.eof
   url = siteurl&"/admin/temp_"&Trim(objrs("type"))&".asp?id="&Trim(objrs("id"))
   set http=Server.createobject("Msxml2.XMLHTTP")
   Http.open "GET",url,false
   Http.send()
   set objStream = Server.CreateObject("ADODB.Stream")
   objStream.type = 1
   objStream.open
   objstream.write http.responseBody
   objstream.saveToFile server.mappath("/"&Trim(objrs("type"))&"/"&Trim(objrs("id"))&".htm"),2
   objstream.close
   Set objstream=Nothing
   objrs.movenext
wend
Response.Write "生成静态网页成功!"
End if