如何实现网站的伪静态化，不要插件的方法 - 编程论坛

#2

kira0072008-11-18 09:22

伪静态一般都采用 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

[[it] 本帖最后由 kira007 于 2008-11-18 10:39 编辑 [/it]]