Question

求助！怎样在asp中调用一个分类。

下面这段程序是一个新闻系统里调用新闻标题的程序。但是它调用出来的是所有的新闻标题，那如果我只想调用其中的一个分类的前10条新闻标题。怎样实现？（我是个初学者，请大虾指教，谢谢！）

程序说明：
数据库是access的,"news"是新闻表名，"bh"是新闻ID，"bigclassname"是新闻分类。

<table width="725" border="0">
<tr>
<td colspan="5" bgcolor="#F2F2F2" class="STYLE3"><div align="center">新闻详细信息列表</div></td>
</tr>
<tr>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">编号</div></td>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">新闻标题</div></td>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">所属分类</div></td>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">发布日期</div></td>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">操作</div></td>
</tr>

<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from NEWS order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录")
else
rs.PageSize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page

for j=1 to rs.PageSize
%> <tr>
<td class="STYLE3"><div align="center"><%=rs("bh")%></div></td>
<td class="STYLE3"><div align="center"><a href="show.asp?bh=<%=rs("bh")%>" target="_blank" title="<%=rs("title")%>"><%=left(rs("title"),12)%></a></div></td>
<td class="STYLE3"><div align="center"><%=rs("BigClassName")%></div></td>
<td class="STYLE3"><div align="center"><%=rs("time")%></div></td>
<td class="STYLE3"><div align="center"><a href="admin_modi.asp?bh=<%=rs("bh")%>">修改</a> <a href="admin_del.asp?bh=<%=rs("bh")%>">删除</a></div></td></tr>
<%
rs.movenext
if rs.eof then exit for
next
%>

</table>

Answer 1

<table width="725" border="0">
<tr>
<td colspan="5" bgcolor="#F2F2F2" class="STYLE3"><div align="center">新闻详细信息列表</div></td>
</tr>
<tr>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">编号</div></td>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">新闻标题</div></td>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">所属分类</div></td>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">发布日期</div></td>
<td bgcolor="#F2F2F2" class="STYLE3"><div align="center" class="STYLE3">操作</div></td>
</tr>

<%
dim classname
classname="您想要的分类名称"

'page=clng(request("page")) '这个不需要了 10条不用分页
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from NEWS where bigclassname='"&classname&"' order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录")
else
'rs.PageSize=10 '这个不需要了 10条不用分页
'if page=0 then page=1 '这个不需要了 10条不用分页
'pages=rs.pagecount '这个不需要了 10条不用分页
'if page > pages then page=pages '这个不需要了 10条不用分页
'rs.AbsolutePage=page '这个不需要了 10条不用分页

for j=1 to 10

%> <tr>
<td class="STYLE3"><div align="center"><%=rs("bh")%></div></td>
<td class="STYLE3"><div align="center"><a href="show.asp?bh=<%=rs("bh")%>" target="_blank" title="<%=rs("title")%>"><%=left(rs("title"),12)%></a></div></td>
<td class="STYLE3"><div align="center"><%=rs("BigClassName")%></div></td>
<td class="STYLE3"><div align="center"><%=rs("time")%></div></td>
<td class="STYLE3"><div align="center"><a href="admin_modi.asp?bh=<%=rs("bh")%>">修改</a> <a href="admin_del.asp?bh=<%=rs("bh")%>">删除</a></div></td></tr>
<%
rs.movenext
if rs.eof then exit for
next
%>

</table>

Answer 2

top 10。这个可实现前10条，不过，你要做好数据库的判断，如果不够10条时，可能会出错的。

比如：
select top 10 * from news order by bh desc

如果要查找一个分类，或是有更多组合条件查寻的话，如下：
sql = "select top 10 * from news where 1=1"
if fenlei<>"" then sql = sql&" and fenlei="&fenlei&"'"
'if 条件<> "" then sql = sql&" and 字段="&变量&"'"
...
sql = sql&" order by bh desc"
这样，可实现自动判断条件来组合SQL语句，实现多条件查询SQL语句

Answer 3

yj fa le nikan kanduima