| |
|
|
|
<%=dttype%>小常识
|
|
| |
|
<%
set conn=server.CreateObject ("adodb.connection")
conn.Open localdb
page =request ("page")
if page="" then
page="1"
end if
set rst=server.CreateObject ("adodb.recordset")
strsql="select * from jst_wxby order by id desc"
' Response.Write strsql
rst.Open strsql,conn,1,1
if not rst.EOF then
rst.PageSize =20
rst.AbsolutePage =cint(page)
count=rst.PageCount
for i=1 to rst.PageSize
%>
|
|
" target="_blank"><%=rst("title")%>(<%=rst("decldate")%>)
|
<%
rst.MoveNext
if rst.EOF then
exit for
end if
next
end if %>
|
|
|
<%
page=cint(page)
if page =1 and rst.PageCount <>1 then
pages=1
pagex=page+1
else if page =1 and rst.PageCount =1 then
pages=1
pagex=1
end if
end if
if page >1 and page =rst.PageCount and rst.PageCount >1 then
pages=page-1
pagex=rst.PageCount
else if page >=rst.PageCount and rst.PageCount =1 then
pages=rst.PageCount
pagex=rst.PageCount
end if
end if
%>
|
|
上页 下页 (共<%=rst.PageCount %>条, <%=rst.PageCount %>页) |
<%rst.Close
set rst=nothing
conn.Close
set conn=nothing
%>
|
|