<% '---------------------------------------------------------------------- '查询数据库,获得记录集 '---------------------------------------------------------------------- Sql_Type1 = "Select top 2 * From [resource_type] Where [IsValid] = 1 And [Style] = 1 Order By [SortOrder]" set Rs_Type1 = Server.CreateObject("Adodb.RecordSet") Rs_Type1.open Sql_Type1, conn, 1, 1 set TypeID1 = Rs_Type1("ID") set ResourceType1 = Rs_Type1("ResourceType") 'Response.Write(Rs2.RecordCount) 'Response.End() Sql_Type2 = "Select * From [resource_type] Where [IsValid] = 1 And [Style] = 2 Order By [SortOrder]" set Rs_Type2 = Server.CreateObject("Adodb.RecordSet") Rs_Type2.open Sql_Type2, conn, 1, 1 set TypeID2 = Rs_Type2("ID") set ResourceType2 = Rs_Type2("ResourceType") '---------------------------------------------------------------------- %> <% dim TypeID TypeID = Request("TypeID") If TypeID = "" Then call alertAndBack("没有接收到相应参数！") end if '---------------------------------------------------------------------- '查询数据库,获得记录集 '---------------------------------------------------------------------- ListSql = "Select * From [resource] Where [IsValid]=1 And [TypeID]="&TypeID&" Order By [LastUpdateTime] Desc" set RsList = Server.CreateObject("Adodb.RecordSet") RsList.open ListSql, conn, 1, 1 set strTypeID = RsList("TypeID") '---------------------------------------------------------------------- '定义日期加零函数 '---------------------------------------------------------------------- Function AddZero(str, n) If Len(str) < n then AddZero = string( n - Len(str), "0") & str Else AddZero = str End if End function '---------------------------------------------------------------------- '定义页号导航参数 dim intPageSize, intPageCount, intPageNo dim strPageNavigation %>

<%If Rs_Type1.Eof = True Then%> <%Else%> <% for nav_list = 1 to Rs_Type1.RecordCount %> <% Rs_Type1.MoveNext if (Rs_Type1.eof) then exit for end if next %> <%End If%> <%If Rs_Type2.Eof = True Then%> <%Else%> <% for nav_list2 = 1 to Rs_Type2.RecordCount %> <% Rs_Type2.MoveNext if (Rs_Type2.eof) then exit for end if next %> <%End If%> 暂时没有相关信息！ <% 'Response.Write(Rs_Type1("ID")) 'Response.End() If CInt(TypeID) = Rs_Type1("ID") Then Nav = " "&Rs_Type1("ResourceType")&" " Else Nav = " "&Rs_Type1("ResourceType")&" " End If %> <%=Nav%> 暂时没有相关信息！ <% If CInt(TypeID) = Rs_Type2("ID") Then Nav2 = " "&Rs_Type2("ResourceType")&" " Else Nav2 = " "&Rs_Type2("ResourceType")&" " End If %> <%=Nav2%> 关键字： 全部 按标题 按内容 <%If RsList.Eof = True Then%> 对不起，暂时没有相关信息！ <%Else%> <% intPageSize = 10 RsList.PageSize = intPageSize intPageCount = RsList.PageCount '检验页号 intPageNo = Request("PageNo") intPageNo = AdjustPageNo(intPageNo, intPageCount) RsList.AbsolutePage = intPageNo for i = 1 to intPageSize '给日期加零 '---------------------------------------------------------------------- dim datNow dim intMonth, intDay dim strMonth, strDay dim strNow datNow = RsList("LastUpdatetime") intMonth = month(datNow) intDay = day(datNow) strMonth = AddZero(intMonth, 2) strDay = AddZero(intDay, 2) strNow = year(datNow) & "-" & strMonth & "-" & strDay date1 = RsList("LastUpdateTime") date2 = Date() compare = DateDiff("d",date1,date2) If compare <= 5 Then srtLastUpdateTime = " " 'Response.Write(" 现在") Else srtLastUpdateTime = " " 'Response.Write(" ") End If %> " target="_blank" class="a_r_list" title="<%=Server.HTMLEncode(RsList("Title"))%>"><%=Left(RsList("Title"),30)%><%=srtLastUpdateTime%> <%=strNow%>     <%=Left(RsList("Summary"),90)%>   <% RsList.MoveNext if (RsList.eof) then exit for end if next '页号导航 strPageNavigation = GetPageNavigation(intPageNo, intPageCount,"list.asp?TypeID="&TypeID) %> 共 <%=RsList.RecordCount%> 条记录 <%= strPageNavigation %> <%end if%>