asp连接数据库代码实例(6)

asp 连接数据库代码实例

else

response.redirect("index.asp")

end if

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,1

rs.pagesize=15 '-------设置每页显示的记录数

dim page

page=request("page")

if page<>"" and IsNumeric(page) then

page=clng(page)

else

page=1

end if

n=rs.pagecount

if page>n then

page=clng(n)

end if

if rs.eof then

response.write"<font color=#FF0000>查询的信息不存在或者已经删除！</font>" 'response.end

else

rs.absolutepage=page

end if

i=0

do while not rs.eof and i<rs.pagesize

'do while not rs.eof

%>

<%=rs("id")%>

<% rs.movenext

i=i+1

loop

%>

-----------------------------------------

6.有分类的纪录代码

---------------显示分类开始---------------------------------

<%

set rs=server.createobject("adodb.recordset")

sql="select all * from class order by id desc"