asp 连接数据库代码实例

rs.open sql,conn,1,1

do while not rs.eof

%>

<a

href="class.asp?classname=<%=rs("classname")%>"><b><%=rs("classname")%></b></a>

<%

rs.movenext

i=i+1

loop

%>

---------------显示分类结束--------------------------

-------------显示现在所在分类开始-------------------

<%

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

sql="select top 1 * from class where classname='"&request("classname")&"'" rs.open sql,conn,1,1

do while not rs.eof

%>

<%=rs("classname")%>

<%

rs.movenext

i=i+1

loop

%>

-----------显示现在所在分类结束----------------------

-----------显示此分类的纪录开始------------

<%

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

sql="select * from biao where fenlei='"&request("classname")&"'"

rs.open sql,conn,1,1

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

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)