|
|
为进一步发挥网站互动功能和作用，积极展开网上公共服务，本网站特开设在线访谈栏目，欢迎您的积极参与！
|
|
|
| |
<%
'Search &
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,session("sqlconnect"),1,1 ''记录移动、只读
cnt=rs.recordcount
rs.PAGESIZE=22
pagesize=rs.PAGESIZE
PgCounter=rs.PageCount
Page=SafeRequest("Page",1)
if pgcounter<>0 then
If Page="" Then
Pageno=1
Else
Pageno=Cint(Page)
End If
If Pageno<>1 Then
PageUp=Pageno-1
Else
PageUp=1
End If
If Pageno<>PgCounter Then
PageDown=Pageno+1
Else
PageDown=PgCounter
End If
If PgCounter>0 Then
rs.absolutepage=pageno 'pageno指示当前页
End If
else
pageno=0
end if
rowcount=RS.pagesize
do while not rs.eof and rowcount>0
%>
|
|
|
<%
rs.movenext
rowcount=rowcount-1
loop
rs.close
set rs=nothing
%>
|
费云良同志参加山东人民广播电台《阳光政务热线》访谈提纲
|
|
| |
|
|
