Rem niky_,asp伪静态处理 Rem 10-09-18 Rem http://wei0523123.iteye.com/ On Error Resume Next Dim query_string,param_str,arrParams,module,mod_url Dim arrItems query_string = Request.QueryString() param_str = Replace(query_string,".html","") '以"_"分割param_str arrParams = Split(param_str,"_",-1,1) module = arrParams(0) '如果不存在,默认首页index If Err Then err.Clear module = "index_" End If '页面文件名数组,可以在网站初始化时存在放缓存中 '或者可以用Select的形式 Set arrItems = Server.CreateObject("Scripting.Dictionary") arrItems.add "index_","index_.asp" arrItems.add "news","news.asp" arrItems.add "about","about.asp" If arrItems.Exists(module) Then mod_url = arrItems.Item(module) Else mod_url = "index_.asp" End If '页面处理 Server.Transfer(mod_url) If Err Then Err.Clear Response.Write("不存在文件:"&mod_url&"<a href=""/"">返回首页</a>") End If
其原理也就是解析QueryString,然后进行重定向Server.Transfer(mod_url)
简单的企业站演示: http://www.li-nong.com/