判断动态页面所跟参数情况

  Dim strurl,str_url,strrd_url,filename,search_str,result_url<br />
  search_str = &quot;page=&quot;<br />
  strurl = Request.ServerVariables(&quot;URL&quot;)<br />
  Strurl = split(strurl,&quot;/&quot;)<br />
filename = UBound(strurl,1)<br />
str_url = strurl(filename)  &amp;#39;得到当前页面文件名<br />
str_params = Trim(Request.ServerVariables(&quot;QUERY_STRING&quot;))<br />
If str_params = &quot;&quot; Then<br />
result_url = str_url &amp; &quot;?page=&quot;<br />
Else<br />
If InstrRev(str_params,search_str) = 0 Then<br />
result_url = str_url &amp; &quot;?&quot; &amp; str_params &amp;&quot;&amp;page=&quot;<br />
Else<br />
strrd_url = InstrRev(str_params,search_str) - 2<br />
If strrd_url = -1 Then<br />
result_url = str_url &amp; &quot;?page=&quot;<br />
Else<br />
str_params = Left(str_params,strrd_url)<br />
result_url = str_url &amp; &quot;?&quot; &amp; str_params &amp;&quot;&amp;page=&quot;<br />
End If<br />
End If<br />
End If<br />
pageself = result_url