- ")
response.Write("
- ")
response.Write("
- ")
response.Write("
"&""&NTitle&"
") response.Write(""&rec_content&"
") response.Write(" ")
response.Write("
視頻新聞
<%
For i = 1 to oRs.PageSize
if oRs.EOF then
Exit For
end if
Title=oRs("C_SiteName")
if len(oRs("C_Description"))<60 then
rec_content=oRs("C_SiteDesc")
else
rec_content=oRs("C_Description")
end if
rec_content=replace(rec_content," ","")
rec_content=left(trim(ClearHtml(rec_content)),72)&"..."
if Len(Title)>25then
NTitle=left(Title,23)&"..."
else
NTitle=Title
end if
response.Write("
<%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()%>