<% Dim ArtClassID,FoundErr,ErrMsg ArtClassID=Trim(Request("ArtClassID")) If ArtClassID="" Then ArtClassID=0 End If If IsNumeric(ArtClassID) = False Then GoError "文章分類ID參數錯誤,請不要試圖破壞此系統。" 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 "無此文章欄目,請添加后在來!" else ckey1=ors("ckey1") ckey2=ors("ckey2") ckey3=ors("ckey3") WebTitle=ors("ClassName") End If oRs.Close End If %> <%if ckey1<>"" then%><%=ckey1%>-<%else%><%=WebTitle%>-<%end if%><%= WebName%> <%=ckey3%><%else%><%=W_WebSiteIntr%><%end if%>">
<% 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 "分頁參數錯誤,請不要試圖破壞此系統。" 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 <%if ors("D_Picture")<>"" then%> <%end if%> <% oRs.MoveNext i=i+1 Loop %> <% Else %> <% End If oRs.Close %>
.htm" ><%=oRs("D_Title")%> <%if int(ArtClassID)=1 then%>[<% = formatdatetime(oRs("D_Time"),vblongdate)%>]<%end if%>
<%=ors("jianjie")%> " width="100">
<% Response.Write "共"&totalPut&"篇文章 " k=currentPage if k<>1 then response.write "["+"首頁] " response.write "["+"上一頁] " else Response.Write "[首頁] [上一頁]" end if if k<>n then response.write "["+"下一頁] " response.write "["+"尾頁] " else Response.Write "[下一頁] [尾頁]" end if Response.Write " 頁次:"¤tpage&"/"&n&"頁 "&W_ArtRecoNum&"篇文章/頁" %> 轉到:
暫無信息!