![]() |
#2
cnfarer2010-04-22 06:40
|

<%
set rst=server.createObject("adodb.recordset") '这里是公告
sql="select * from tbl_affiche order by a_id desc"
rst.open sql,conn,1,1
do while not rst.eof
%>
<tr>
<td><%=rst("a_id")%></td>
<td><%=cutstr(rst("a_title"),22,"...")%></td> 'cutstr是截止字符的函数!
<td><%=rst("a_intime")%></td>
<td><a href="admin_affiche_del.asp?id=<%=rst("a_id")%>" target="_blank" onclick="javascript:return confirm('您确定删除此公告吗?')">删除</a> <a href="admin_affiche_modify.asp?act=modify&id=<%=rst("a_id")%>" target="_blank">修改</a></td>
</tr>
<%
rst.movenext
loop
rst.close
set rst=nothing
%>
</table>
<%
conn.close
set conn=nothing
%>
我想把这段公告系统弄成分页了怎么弄啊? set rst=server.createObject("adodb.recordset") '这里是公告
sql="select * from tbl_affiche order by a_id desc"
rst.open sql,conn,1,1
do while not rst.eof
%>
<tr>
<td><%=rst("a_id")%></td>
<td><%=cutstr(rst("a_title"),22,"...")%></td> 'cutstr是截止字符的函数!
<td><%=rst("a_intime")%></td>
<td><a href="admin_affiche_del.asp?id=<%=rst("a_id")%>" target="_blank" onclick="javascript:return confirm('您确定删除此公告吗?')">删除</a> <a href="admin_affiche_modify.asp?act=modify&id=<%=rst("a_id")%>" target="_blank">修改</a></td>
</tr>
<%
rst.movenext
loop
rst.close
set rst=nothing
%>
</table>
<%
conn.close
set conn=nothing
%>