<!--#include file="../inc/conn.asp" -->
<%
	Dim query,ID1, ID2
    query = Request.ServerVariables("QUERY_STRING")
    If app_vodtopicviewtype = 0 Or app_vodtopicviewtype = 3 Then
        ID1 = replaceStr(query, "." & app_vodsuffix & "", "")
        If InStr(ID1, "-") > 0 Then
            ID2 = Split(ID1, "-")
            id = ID2(0)
            page = ID2(1)
        Else
            id = ID1
            page = 1
        End If
    ElseIf app_vodtopicviewtype = 1 Then
        page = be("get", "page")
    Else
    End If
    
    If Not isNum(page) Then page = 1 Else page = CInt(page)
    If page < 1 Then page = 1
    appid=12
    Dim t1: t1 = app_installdir & "template/" & app_templatedir & "/" & app_htmldir & "/vodtopic.html"
    objTemplate.html = getFileByCache("template_vodtopic", t1)
    objTemplate.topicpagelist()
    objTemplate.pageshow()
    objTemplate.mark()
    objTemplate.ifEx()
    objTemplate.run
    writeA objTemplate.html
    dispseObj()
%>