| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1492 人关注过本帖
标题:asp动态页面静态化
只看楼主 加入收藏
dw786270365
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-7-30
收藏
得分:0 
回复 7楼 yms123
我想用模板生成静态页面,这个模板还有就是替换模板的内容有点不清楚啊
2010-08-04 13:06
dw786270365
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-7-30
收藏
得分:0 
回复 2楼 gupiao175
对于我那个站我主要是模板生成啊,template.htm ' //模板文件
<html>
<head>
<title>$title$ by </title>
</head>
<body>
$body$
</body>
</html> ?
TestTemplate.asp '// 生成Html

<%
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件,读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=htmlwrite.ReadAll
htmlwrite.close
strTitle="生成的网页标题"
strContent="生成的网页内容"
'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "生成静态页成功!"
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
%>


可是你那上面使用什么读取模板的啊??怎么都没看到捏,还有用于替换的内容这块
2010-08-04 13:08
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
收藏
得分:0 
<%
Function getHTTPPage(url)
 dim http
 set http=Server.createobject("Microsoft.XMLHTTP")
 Http.open "POST",url,false
 Http.send()
  if Http.readystate<>4 then
   exit function
  end if
 getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
 set http=nothing
 if err.number<>0 then err.Clear
End function
Function BytesToBstr(body,Cset)
 dim objstream
 set objstream = Server.CreateObject("adodb.stream")
 objstream.Type = 1
 objstream.Mode =3
 objstream.Open
 objstream.Write body
 objstream.Position = 0
 objstream.Type = 2
 objstream.Charset = Cset
 BytesToBstr = objstream.ReadText
 objstream.Close
 set objstream = nothing
End Function
%>
<%
dim httpurl
httpurl= "http://"&Request.ServerVariables("HTTP_HOST")
txtURL=httpurl&"/view.asp?id=94"
sText=getHTTPPage(txtURL)
set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="94_1.html"
Set openFile=FileObject.openTextfile(server.mappath(filename),2,true)'true为不存在就创建
openFile.writeline(sText)
set OpenFile=nothing
%>
可以生成静态页!

QQ:63572063
2010-08-04 20:43
dw786270365
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-7-30
收藏
得分:0 
回复 13楼 wangjy500
对于xmlhttp方法有时重复性太大啦啊。你习惯用这种方法嘛??   有些还是有点不明白,麻烦您加我QQ :786270365  有什么不懂的直接请教您哈
2010-08-05 08:53
aina
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:91
专家分:117
注 册:2009-9-22
收藏
得分:3 
不错,不学习。怎么能看懂呢
2010-08-05 08:55
dw786270365
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-7-30
收藏
得分:0 
回复 15楼 aina
那你把你的方法拿出来晒下啊
2010-08-05 12:12
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
收藏
得分:3 
重复性太大了是什么意思呀?

QQ:63572063
2010-08-05 12:40
dw786270365
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-7-30
收藏
得分:0 
回复 17楼 wangjy500
我每个url都要传个链接进去捏,像我几千个产品,用正则还是怎么样弄啊?
2010-08-05 15:04
gupiao175
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:40
帖 子:1787
专家分:7527
注 册:2007-6-27
收藏
得分:0 
以下是引用dw786270365在2010-8-5 08:53:52的发言:

对于xmlhttp方法有时重复性太大啦啊。你习惯用这种方法嘛??   有些还是有点不明白,麻烦您加我QQ :786270365  有什么不懂的直接请教您哈

两种方法都得用FSO,各有利弊,我个人感觉XMLHTTP方法,在分页上会显得轻松些!而前者对于界面上更合适些,比如经常早期看到的一些自住建站什么的,利用模板自己生成一些文件站点!但是分页和灵活性都不行,就是不能在那个死页面上分页!但是这些方法对有限的虚拟空间的其实都不太合适,频繁的ADO操作,FSO权限等,一不小心就出问题。如果只是单纯想静态化,而没有其他特殊要求,推荐还是用组件吧!在好一些空间都会提供这个组件的支持!

Q:1428196631,百度:开发地 即可找到我,有事请留言!
2010-08-05 16:19
快速回复:asp动态页面静态化
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042574 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved