如何实现网站的伪静态化，不要插件的方法

[复制链接]

乄獨萊◇獨徍

电梯直达

1^#

发表于 2010-1-11 03:06:56 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

想实现网站的伪静态化，但是不要安装插件的，希望高人能提供源代码

收藏0

使用道具举报

城市之肺

2^#

发表于 2010-1-11 03:07:00 | 只看该作者

ASP.NET可以重写核心定向不需要插件，但在ASP中目前个人所知不使用插件无法实现伪静态。

回复支持反对

使用道具举报

1OOOO

3^#

发表于 2010-1-11 03:07:03 | 只看该作者

伪静态一般都采用 URL 重写技术，但是如果没有安装 URLREWRITE 的话是实现不了的，另外一种方式采用iframe

但是本人还是首推模板替换法来实现完全静态。
操作如下：
1.先编辑好HTM模板
2.使用替换法，生成新的HTM

Sub makepageII(demoname,savename,flag,content)
'参数说明
'demoname 要调用的模板
'savename 保存位置
'flag  模板的标签
'content 替换的内容
Dim fso,htmlwrite
Dim strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件，读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath(demoname))
strOut=htmlwrite.ReadAll
htmlwrite.close
'=============================================================================
strflag=split(flag,",")
for i = 0 to ubound(strflag)
strcont=split(content,"$")
strOut=Replace(strOut,strflag(i),strcont(i))
next
'// 用真实内容替换模板中的标记
'=============================================================================
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath(savename),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
end sub