asp连接数据库代码实例(6)
时间：2025-07-02
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"
asp连接数据库代码实例(6).doc
将本文的Word文档下载到电脑
