<%
dim rs1,strsql1,page
page=0
strsql1="select * from news Order By 时间 Desc"
set rs1= Server.CreateObject("ADODB.Recordset")
rs1.pagesize=20
rs1.open strsql1,oConn,3,3
page=CLng(request("page"))
if page<1 then page=1
if page>rs1.pagecount then page=rs1.pagecount
if not rs1.eof then rs1.absolutepage=page
if rs1.eof then
else
for i=1 to 20
title=rs1.fields("标题")
title=Trim(title)
if Len(title)>27 then
title=left(title,27)
title=title & "..."
end if
%>