<!--#include file="../inc/conn.asp" -->
<%
	Dim id,query,ID1,ID2,typearr
    page = be("get", "page")
    query = Request.ServerVariables("QUERY_STRING")
    If app_artlistviewtype = 0 Or app_artlistviewtype = 3 Then
        ID1 = replaceStr(query, "." & app_artsuffix & "", "")
        If InStr(ID1, "-") > 0 Then
            ID2 = Split(ID1, "-")
            id = ID2(0)
            Select Case UBound(ID2)
                Case 1
                    page = ID2(1)
                Case 2
                    order = ID2(1): by = ID2(2)
                Case 3
                    page = ID2(1): order = ID2(2): by = ID2(3)
            End Select
        Else
            id = ID1
            page = 1
        End If
    ElseIf app_artlistviewtype = 1 Then
        id = be("get", "id")
        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
    curarttypeid = cint(id)
    typearr = getValueByArray(cachearttype, curarttypeid)
    curarttypepid = typearr(4)
    objTemplate.loadlist "art", typearr
    writeA objTemplate.html
    dispseObj()
%>