<%
Dim ArtClassID,FoundErr,ErrMsg
ArtClassID=Trim(Request("ArtClassID"))
If ArtClassID="" Then
ArtClassID=0
End If
If IsNumeric(ArtClassID) = False Then
GoError "文章分類ID參數(shù)錯誤，請不要試圖破壞此系統(tǒng)。"
End If
If ArtClassID<>0 Then
Set oRs=oConn.Execute("Select ClassID,ckey1,ckey2,ckey3,ClassName From NewsClass Where ClassID="&ArtClassID)
If oRs.Eof Then
GoError "無此文章欄目，請?zhí)砑雍笤趤恚?
else
ckey1=ors("ckey1")
ckey2=ors("ckey2")
ckey3=ors("ckey3")
WebTitle=ors("ClassName")
End If
oRs.Close
End If
%>
,<%=W_WebSiteKeyword%>">
"" then%><%=ckey3%><%else%><%=W_WebSiteIntr%><%end if%>">
亚洲av无码之日韩精品,ASS新版ASS毛茸茸PICS,亚洲精品一区人人爽
<%
If ArtClassID <>0 Then
Dim ChildID
sSql="Select ClassID,ClassName,ParentPath,Child From NewsClass Where ClassID="&ArtClassID
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
if oRs("ClassID")>0 then
if oRs("Child")>0 then
ChildID=""
set tClass=oConn.execute("select ClassID from NewsClass where ParentID=" & oRs("ClassID") & " or ParentPath like '" & oRs("ParentPath") & "," & oRs("ClassID") & ",%'")
do while not tClass.eof
if ChildID="" then
ChildID=tClass(0)
else
ChildID=ChildID & "," & tClass(0)
end if
tClass.movenext
loop
else
ChildID=ArtClassID
end if
end if
End If
oRs.Close
sSql="Select D_ID,D_ClassID,D_Title,D_Count,D_Time,jianjie,D_Picture From NewsData Where d_classid in ("&ChildID&") and d_recycle=false ORDER BY d_id DESC"
Else
sSql="Select D_ID,D_ClassID,D_Title,D_Count,D_Time,jianjie,D_Picture From NewsData Where d_recycle=false ORDER BY d_id DESC"
End If
oRs.Open sSql,oConn,1,1
dim MaxPerPage
dim totalPut
dim CurrentPage
dim TotalPages
dim i
MaxPerPage=W_ArtRecoNum
if not ors.eof then
ors.MoveFirst
end if
ors.pagesize=MaxPerPage
If trim(Request("Page"))<>"" then
If IsNumeric(trim(Request("Page"))) = False Then
GoError "分頁參數(shù)錯誤，請不要試圖破壞此系統(tǒng)。"
End If
CurrentPage= CLng(request("Page"))
If CurrentPage> ors.PageCount then
CurrentPage = ors.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=ors.recordcount
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage
