<!--#include file="../inc/conn.asp" -->
<%
	Dim sql,rs,id,query,ID1,ID2,typearr
    page = be("get", "page"): page = chkSql(page, True)
    query = Request.ServerVariables("QUERY_STRING")
    
	If app_arttopicviewtype = 0 Or app_arttopicviewtype = 3 Then
		ID1 = replaceStr(query, "." & app_vodsuffix & "", "")
		If InStr(ID1, "-") > 0 Then
			ID2 = Split(ID1, "-")
			id = ID2(0)
			If UBound(ID2) >= 1 Then page = ID2(1) Else page = 1
		Else
			id = ID1
			page = 1
		End If
	ElseIf app_arttopicviewtype = 1 Then
		id = be("get", "id")
	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
    
    curarttopicid = cint(id)
    typearr = getValueByArray(cachearttopic, curarttopicid)
    objTemplate.loadtopic "art", typearr
    writeA objTemplate.html
    dispseObj()
%>