伪静态

'//* 文章浏览 *//
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
   '----------------------------------------

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: