- ")
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%>
[首頁]
[上一頁]
<%if page
[下一頁]
[尾頁]
<%else%>
[下一頁] [尾頁]
<%end if%>
<%else%>
[首頁] [上一頁]
[下一頁]
[尾頁]
<%end if %>
<%else%>
[首頁] [上一頁] [下一頁] [尾頁]
<%end if%>
[頁次:<%=page%>/<%=oRs.PageCount%>]
[共<%=oRs.RecordCount%>篇 <%=oRs.PageSize%>篇/頁]
<%oRs.close()%>