<!--#include file="../inc/conn.asp" -->
<%
	Dim id,query,ID1,ID2
    If app_artcontentviewtype = 0 Or app_artcontentviewtype = 3 Then
        query = Request.ServerVariables("QUERY_STRING")
        ID1 = replaceStr(query, "." & app_artsuffix & "", "")
        ID2 = Split(ID1, "-")
        id = ID2(0)
        Select Case UBound(ID2)
			Case 1: page = ID2(1)
        End Select
    ElseIf app_artcontentviewtype = 1 Then
        id = be("get", "id")
        page= be("get","num")
    Else
        
    End If
    If Not isNum(id) Then showMsg "请勿传递非法参数！", "../index.asp"
    If Not isNum(page) Then page = 1 Else page = CInt(page)
    If page < 1 Then page = 1
    Dim rs, sql,typearr
    sql = "SELECT * FROM {pre}art WHERE a_hide=0 and a_id=" & id
    Set rs = objdb.DB(sql, "rs1")
    If rs.EOF Then showMsg "找不到此数据", "../"
    curartid = clng(id)
    curarttypeid = rs("a_type")
    typearr = getValueByArray(cachearttype, rs("a_type"))
    objTemplate.loadart rs,typearr
    objdb.C (rs)
    writeA objTemplate.html
    dispseObj()
%>