|
 |
| 类型 |
标题 |
受理单位 |
咨询对象 |
来信时间 |
<%
set rs=Server.CreateObject("adodb.recordset")
sql="select * from advice where flag=1 order by adddate desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.Write"没有相关记录！ "
else
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize =15
total = rs.RecordCount
mypagesize=rs.pagesize
rs.absolutepage = page
dim i
i=1
do while not rs.eof and mypagesize>0
%>
|
><%=rs("type")%>
|
><%=rs("title")%> |
|
><%=rs("person")%> |
><%=rs("adddate")%> |
<%
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop%>
|
|
<%
end if
rs.close
set rs=nothing
%>
|
|
| |
|