-
<%
For i = 1 to oRs.PageSize
if oRs.EOF then
Exit For
end if
Title=oRs("d_title")
dclass=oRs("d_classid")
if Len(Title)>35 then
NTitle=left(oRs("d_title"),2)&"..."
else
NTitle=oRs("d_title")
end if
d_time=split(oRs("d_time")," ")
dl_time=split(d_time(0),"-")
ds_time=""
for j=0 to 2
if len(dl_time(j))<2 then
ds_time=ds_time&"-0"&dl_time(j)
else
ds_time=ds_time&"-"&dl_time(j)
end if
next
ds_time=right(ds_time,10)
response.Write("
- ·"&ds_time&"|"&NTitle&"") if i=5 or i=10 then response.Write(" ") end if oRs.movenext Next %>
<%=C_Class%>
<%if oRs.pagecount<>1 and oRs.pagecount<>0 then%>
<%if page>1 then%>
[首頁(yè)]
[上一頁(yè)]
<%if page
[下一頁(yè)]
[尾頁(yè)]
<%else%>
[下一頁(yè)] [尾頁(yè)]
<%end if%>
<%else%>
[首頁(yè)] [上一頁(yè)]
[下一頁(yè)]
[尾頁(yè)]
<%end if %>
<%else%>
[首頁(yè)] [上一頁(yè)] [下一頁(yè)] [尾頁(yè)]
<%end if%>
[頁(yè)次:<%=page%>/<%=oRs.PageCount%>]
[共<%=oRs.RecordCount%>篇 <%=oRs.PageSize%>篇/頁(yè)]
<%oRs.close()%>