请教一个asp生成静态页面的问题。
时间:2011-12-06
来源:互联网
我是用这样的方式生成静态页面的:
Do while not Rs.Eof
sitename = Rs("sitename")
'txtURL=server.MapPath("../index.asp")
txtURL=" http://www.xxxxx.com/city/province.asp"
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../"&Rs("sitename")&".html"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立
stext=Replace(stext,"$province$",Rs("province"))
stext =Replace(stext,"$title$",Rs("title"))
stext =Replace(stext,"$keywords$",Rs("keywords"))
stext =Replace(stext,"$description$",Rs("description"))
openFile.writeline(sText)
Set OpenFile=nothing
Rs.Movenext
Loop
'=======================
所以省份那个页面的内容基本上是固定的,但是我又想在不同的省份页面上面展示不同的城市的链接
效果就是下面这个网站这样,从每个省份点进去可以查看到每个省份的城市列表,每个城市也可以链接,而且都是生成的静态页面
参考网址是http://www.iishang.com/peisong.asp
城市层层递进。
Do while not Rs.Eof
sitename = Rs("sitename")
'txtURL=server.MapPath("../index.asp")
txtURL=" http://www.xxxxx.com/city/province.asp"
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../"&Rs("sitename")&".html"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立
stext=Replace(stext,"$province$",Rs("province"))
stext =Replace(stext,"$title$",Rs("title"))
stext =Replace(stext,"$keywords$",Rs("keywords"))
stext =Replace(stext,"$description$",Rs("description"))
openFile.writeline(sText)
Set OpenFile=nothing
Rs.Movenext
Loop
'=======================
所以省份那个页面的内容基本上是固定的,但是我又想在不同的省份页面上面展示不同的城市的链接
效果就是下面这个网站这样,从每个省份点进去可以查看到每个省份的城市列表,每个城市也可以链接,而且都是生成的静态页面
参考网址是http://www.iishang.com/peisong.asp
城市层层递进。
作者: xxw0901 发布时间: 2011-12-06
如果省市数据库在你手上的话,你可以先读模板.然后层层循环读出每个城市的下级城市.然后写入.
如果你没有数据库,是从别人那里抓过来的,那别人那里应该也有一个根据ID获取下级城市的链接地址.你根据这个来抓就可以了.
一样的道理啊
如果你没有数据库,是从别人那里抓过来的,那别人那里应该也有一个根据ID获取下级城市的链接地址.你根据这个来抓就可以了.
一样的道理啊
作者: ccppvv 发布时间: 2011-12-06
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28