<%'on error resume next
sql="select * from v_XX where bmi=0 order by plsx asc,fbrq desc,id desc"
'response.write sql
'response.end()
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
'set rs=conn.execute(sql)
%>
<%if not rs.eof then
page=request("page")
rs.pagesize=20
rowcount=0
if page="" then
page=1
rs.absolutepage=1
else
rs.absolutepage=page
end if%>
<%if rs.pagecount >1 then%>
<%end if%>
| 标题 |
发布日期 |
类别名称 |
排序 |
点击 |
发布人 |
审核 |
编 辑 |
<% while not rs.eof and rowcount < rs.PageSize
rowcount=rowcount+1 %>
| <%=rs("bt")%> |
<%=FormatDateTime(rs("fbrq"),1)%> |
<%=rs("lmmc")%>>><%=rs("lbmc")%> |
<%=rs("plsx")%> |
<%=rs("hits")%> |
<%=rs("uid")%> |
<%if rs("bmi")=1 then response.write "采用" else response.write "未采用" end if%> |
&lmid=<%=rs("lmid")%>&lbid=<%=rs("lbid")%>">审
')">删 |
<% rs.movenext
wend
%>
<%if rs.pagecount >1 then%>
|
<%if cint(page)>1 then %>
首
页 上一页
<%else
Response.Write "首 页 "
Response.Write "上一页 "
end if
if cint(page)
下一页
末
页
<% else
Response.Write "下一页 "
Response.Write "末 页 "
end if
%> |
<%end if %>
<% else
response.write"暂无未审核信息!"
end if
rs.close
conn.close %>
|
|