<!--#include file="../inc/conn.asp" -->
<%
	dim id,query,ID1,ID2
	query = Request.QueryString
    If app_vodcontentviewtype = 0 Or app_vodcontentviewtype = 3 Then
        ID1 = replaceStr(query, "." & app_vodsuffix & "", "")
        ID2 = Split(ID1, "-")
        id = ID2(0)
    ElseIf app_vodcontentviewtype = 1 Then
        id = be("get", "id")
    Else
         
    End If
    If Not isNum(id) Then showMsg "请勿传递非法参数！", "../"
    
    Dim sql, rs,typearr
    sql = "SELECT * FROM {pre}vod WHERE d_hide=0 and d_id=" & id
    
    Set rs = objdb.DB(sql, "rs1")
    If rs.eof and rs.bof Then showMsg "找不到此数据", "../"
    curvodid = clng(id)
    curvodtypeid = rs("d_type")
    If app_user = 1 Then
        If Not getUserPopedom(curvodtypeid, "vod") Then showMsg "您没有权限浏览此内容!", "../user/"
    End If
    typearr = getValueByArray(cachevodtype, rs("d_type"))
    objTemplate.loadvod rs, typearr, "view"
    objdb.C (rs)
    writeA objTemplate.html
    dispseObj()
%>