如何实现网站的伪静态化,不要插件的方法
想实现网站的伪静态化,但是不要安装插件的,希望高人能提供源代码
伪静态 一般 都采用 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]]