【内容摘要】：http://www.xxx.xxx/index.asp?aa=11bb=22cc=33 改成 伪静态地址 通过rewrite通常是 http://www.xxx.xxx/index/aa/11/bb/22/cc/33.htm 而现在我的办法把链接地址改成如下的 类 伪静态地址 http://www.xxx.xxx/index.asp?/{aa-11}{bb-22}{cc-33}.htm君泽君东莞网络公司(w..
东莞君泽君网络科技公司是东莞十佳网站设计公司之一，具有多年的先进的管理理念以及拥有一批长期从事网页设计的专业网页设计师。我们用精湛技术满足东莞中小企业的网站建设要求,网站设计我们用品牌和实力来说话,我们始终相信“诚信服务客户，专业缔造完美”，为您提供一流的网站制作与网站设计服务,如果客户您想做一个适合网络营销的好网站，那么请来电咨询：0769-89046712 13728246800
网站伪静态化正规的方式是通过服务器安装 isapi rewrite 或者 mod rewrite 对dll文件进行重写 达到伪静态，可是有多少网站有自己装有的服务器来发布网站呢，我想大多数站长和我一样只是使用虚拟主机，服务商却不肯装isapi rewrite 服务，为此而发愁，不过现在我想说的 以后大家不必为此而愁了，通过下面我介绍的方式照样可以实现伪静态，或者说 这个方法准确的叫 类伪静态比如说一个地址
http://www.xxx.xxx/index.asp?aa=11&bb=22&cc=33
改成 伪静态地址 通过rewrite通常是
http://www.xxx.xxx/index/aa/11/bb/22/cc/33.htm
而现在我的办法把链接地址改成如下的 类 伪静态地址
http://www.xxx.xxx/index.asp?/{aa-11}{bb-22}{cc-33}.htm
君泽君东莞网络公司(www.e68cn.com)认为：第一种不用组件实现静态化办法：
1.单参数
功能:
把:[url]www.123.com/index.asp?id=123[/url]
伪静态为:[url]www.123.com/index.asp?/123.html[/url]
代码:
-------------------------------
<%
id=request.QueryString("id")
If id="" Then
serversc=Request.ServerVariables("QUERY_STRING")
id=replace(serversc,"/","")
id=replace(id,".html","")
End If
%>
-------------------------------
2.多参数
功能:
把:[url]www.123.com/index.asp?id=123&page=1&order=2[/url]
伪静态为:[url]www.123.com/index.asp?/123-1-2.html[/url]
代码:
-------------------------------
<%
If id="" and page="" and order="" Then
serversc=Request.ServerVariables("QUERY_STRING")
id=replace(serversc,"/","")
id=replace(id,".html","")
arr=split(id,"-")
id=arr(0)
page=arr(1)
order(2)
End If
%>
-------------------------------
君泽君东莞网络公司(www.e68cn.com)认为：使用方法: 把代码加到需要传递参数的asp页的 类似于
"id=request.QueryString("id") " 代码后面就可以了
请把 id, page, order 修改你所需要的参数即可。
第二种不用组件实现静态化：
<%
’*-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-*
’* [=ASP URL伪静态链接=] *
’* 不使用Url ReWrite 或 Mod ReWrite *
’*-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-*
Function fRequest(letKeyWord)
Dim regEx, Match, Matches
Dim sUrlRewrite,bitRegVal,sRegVal
sUrlRewrite =Request.ServerVariables("QUERY_STRING")
Set regEx = New RegExp
regEx.Pattern
"{"&letKeyWord&"-.*?}"
regEx.IgnoreCase = True
regEx.Global = True
bitRegVal =regEx.Test(sUrlRewrite)
If bitRegVal Then
Set Matches = regEx.Execute(sUrlRewrite)
For Each Match in Matches
sRegVal = sRegVal & Match.Value
Next
sRegVal =Replace(sRegVal,"{"&letKeyWord&"-","")
sRegVal =Replace(sRegVal,"}","")
If Len(sRegVal)<1 Then sRegVal =false
Else
sRegVal =false
End If
fRequest = sRegVal
End Function
%>
<a href="?/{aa-1B1}{bb-33}{aaa-}.htm">测试链接</a><br />
而我们获取参数
<%
Dim rAa,rBb,rCc
rAa =fRequest("aa")
rBb =fRequest("bb")
rCc =fRequest("aaa")
Response.Write rAa &"----"&rBb&"-----"&rCc
%>
和平常没什么区别
PS ： 我把参数不存在或为空的情况都设成了 false状态
大家不喜欢可以修改
个人爱好 个人习惯而已·
上一篇：防止网页被盗用的一些方法 下一篇：网站静态化设计之rewrite,pathinfo
我们的优势 
