伪静态

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

'//* 文章浏览 *//
Public Function ShowChannelView(Vid,IsHtml)
'初始载入
'If Cls.Is_Null(vid)="" Then vid=Cls.Code_ID("id")
'--------------伪静态--------------------------
Dim rkurls
vid=Trim(Request.Querystring("id"))
If vid="" Then
rkurls=Request.ServerVariables("QUERY_STRING")
vid=Fix(replace(replace(rkurls,"/",""),".html",""))
'vid=Cls.Code_ID("vid")
Else
If Cls.Is_Null(vid)="" Then
vid=Cls.Code_ID("id")
End if
End If
'----------------------------------------