<!--#include file="../inc/conn.asp" -->
<%
	Dim id,query,ID1,ID2,typearr
    page = be("get", "page")
    query = Request.ServerVariables("QUERY_STRING")
    
    If app_vodlistviewtype = 0 Or app_vodlistviewtype = 3 Then
        ID1 = replaceStr(query, "." & app_vodsuffix & "", "")
        If InStr(ID1, "-") > 0 Then
            ID2 = Split(ID1, "-")
            id = ID2(0)
            Select Case UBound(ID2)
                Case 1
                    page = ID2(1)
                Case 2
                    page = ID2(1): searcharea=ID2(2)
                Case 3
                    page = ID2(1): searcharea=ID2(2): searchyear=ID2(3):
                Case 4
                    page = ID2(1): searcharea=ID2(2): searchyear=ID2(3): order = ID2(4)
                Case 5
                	page = ID2(1): searcharea=ID2(2): searchyear=ID2(3): order = ID2(4): by = ID2(5)
            End Select
            searcharea = UrlDecode(searcharea)
    		searchyear = UrlDecode(searchyear)
        Else
            id = ID1
            page = 1
        End If
    ElseIf app_vodlistviewtype = 1 Then
        id = be("get", "id")
        searcharea = be("get", "area")
        searchyear = be("get", "year")
        order = be("get", "order")
        by = be("get", "by")
    Else
    
    End If
    
    If Not isNum(id) Then showMsg "请勿传递非法参数！", "../"
    If Not isNum(page) Then page = 1 Else page = CInt(page)
    If page < 1 Then page = 1
    searcharea = chkSql(searcharea,true)
    searchyear = chkSql(searchyear,true)
    
    If app_user = 1 Then
        If Not getUserPopedom(curvodtypeid, "list") Then showMsg "您没有权限浏览此内容!", "../user/"
    End If
    curvodtypeid = cint(id)
    typearr = getValueByArray(cachevodtype, curvodtypeid)
    curvodtypepid = typearr(4)
    objTemplate.loadlist "vod", typearr
    writeA objTemplate.html
    dispseObj()
%>