社保基金:用ASP如何在页面排列显示数据库表里的一字段值？

假设你要排列显示类名为“asp”的文章标题，这样写代码：

<%
'这里放你的数据库链接语句，假定为conn

psql="select title from News where classname='asp'"
rs.open psql,conn,3,3

do while not rs.eof

response.write(rs("title"))
response.write("<br>")

rs.movenext

loop

rs.close
set rs=nothing
%>

假设你要排列显示类名为“asp”的文章标题，这样写代码：

<%
'这里放你的数据库链接语句，假定为conn

psql="select title from News where classname='asp'"
rs.open psql,conn,3,3

do while not rs.eof

response.write(rs("title"))
response.write("<br>")

rs.movenext

loop

rs.close
set rs=nothing
%>
恩，是啊

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("×××.mdb")
'这是联接你的.mdb数据库
set rs=server.createobject("adodb.recordset")
sql="select title from News"
rs.open sql,conn,1,1
do while not rs.eof
response.write(rs("title"))
response.write("<br>")
rs.movenext
loop
rs.close
set rs=nothing
%>
这是一个最全面的答案了。

sql="select newsid,title from News where classname='类名' Order by newsid DESC"
rs.open psql,conn,1,1
do while not rs.eof

response.write(rs("title"))
response.write("<br>")

rs.movenext
loop

rs.close
set rs=nothing
%>
把上面 Order by newsid DESC 改成 Order by newsid ASC按升序排序

<%
set rs=server.createobject("adodb.recordset")
sql="select * from news where classname='" & request.querystring("classname") & "'"
rs.open sql,conn,1
response.write "<table border=0 width=680>"
if rs.eof and rs.bof then
response.write "<tr><td align=center> 还没有任何新闻！</td></tr>"
else
do while not rs.eof
response.write "<tr><td><a href='shownews.asp?id=" & rs("newsid") & "' >" & rs("title") & "</a></td></tr>"
rs.movenext
loop
end if
response.write "</table>"
rs.close
conn.close
set conn=nothing
%>

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("×××.mdb")
'这是联接你的.mdb数据库
set rs=server.createobject("adodb.recordset")
sql="select title from News"
rs.open sql,conn,1,1
do while not rs.eof
response.write(rs("title"))
response.write("<br>")
rs.movenext
loop
rs.close
set rs=nothing
%>
这是一个最全面的答案了。

sql="select newsid,title from News where classname='类名' Order by newsid DESC"
rs.open psql,conn,1,1
do while not rs.eof

response.write(rs("title"))
response.write("<br>")

rs.movenext
loop

rs.close
set rs=nothing
%>
把上面 Order by newsid DESC 改成 Order by newsid ASC按升序排序

<%
set rs=server.createobject("adodb.recordset")
sql="select * from news where classname='" & request.querystring("classname") & "'"
rs.open sql,conn,1
response.write "<table border=0 width=680>"
if rs.eof and rs.bof then
response.write "<tr><td align=center> 还没有任何新闻！</td></tr>"
else
do while not rs.eof
response.write "<tr><td><a href='shownews.asp?id=" & rs("newsid") & "' >" & rs("title") & "</a></td></tr>"
rs.movenext
loop
end if
response.write "</table>"
rs.close
conn.close
set conn=nothing
%>