给你一个列子研究一下好了
<table width="754" border="0" cellspacing="0" cellpadding="1" height="10">
<tr bgcolor="#FFFFCC">
<td width="38">序号</td>
<td width="38">等级</td>
<td width="473">标题</td>
<td width="139">发布时间</td>
<td width="96">操作</td>
</tr>
<%
Dim ps
ps=26
Dim cp
cp=Request.QueryString("cp")
If cp="" then
cp=1
Else
cp=Cint(cp)
End If
Dim conn,sql,rs,vout
dim i,pc
vout=""
set conn=server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};server=***********888"
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT NID,NTITLE,INTIME,NLEVEL FROM NEWS ORDER BY INTIME DESC"
rs.pagesize=ps
rs.open sql,conn,1
pc=rs.pagecount
If pc<>0 then
vout=vout+"共"& pc &"页 - "&rs.recordcount &"条记录"
rs.absolutepage=cp
for i=1 to ps
If rs.eof then
Exit for
End If
vout=vout + "<tr>"
vout=vout + "<td>"& i+(cp-1)*ps &"</td><td>"& rs("nlevel") &"</td><td>"& rs("ntitle") &"</td><td>"& rs("intime") &"</td><td><a href=/news/deletenews.asp?nid="& rs("NID") &">删除</a> - <a href=/news/x_news.asp?nid="& rs("NID") &">修改</a></td></tr>"
rs.MoveNext
If rs.eof then
Exit for
End If
i=i+1
vout=vout + "<tr bgcolor=#ffffcc>"
vout=vout + "<td>"& i+(cp-1)*ps &"</td><td>"& rs("nlevel") &"</td><td>"& rs("ntitle") &"</td><td>"& rs("intime") &"</td><td><a href=/news/deletenews.asp?nid="& rs("NID") &">删除</a> - <a href=/news/x_news.asp?nid="& rs("NID") &">修改</a></td></tr>"
rs.MoveNext
Next
vout=vout + "<tr><td colspan=4>"
vout=vout + "<a href=/admin/news/menu.asp?cp=1>首页</a>"
If cp > 1 Then
vout=vout + " - <a href=/admin/news/menu.asp?cp="& cp-1 &">前页</a>"
End If
If cp < pc Then
vout=vout + " - <a href=/admin/news/menu.asp?cp="& cp+1 &">后页</a>"
End If
vout=vout + " - <a href=/admin/news/menu.asp?cp="& pc &">尾页</a>"
vout=vout + "</td></tr>"
response.write vout
Else
response.write "没有记录!"
End If
set vout=nothing
set i=nothing
set pc=nothing
set cp=nothing
set ps=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
set sql=nothing
%>
</table>