Question

关于asp读取access数据库里的数据

我现在想坐个新闻前台asp的,新闻分为国内新闻和国外新闻两种
access数据库里的表已经做好,数据库名为lxdz.mdb,数据库里有个表名为news,表里面有tille为新闻标题,content为新闻内容,lb为新闻类别(新闻类别为两种一种为国内新闻,一种为国外新闻)其它的没有什么必要了.
我现在想在前台只显示国外新闻,国内的新闻不要显示,这程序这么写请高手帮我填加一下.

前台代码为:
<%
dim conn
dim rst
dim connstr
dim sqlstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath("/db/lxdz.mdb")
set conn=Server.CreateObject("ADODB.CONNECTION")
set rst=Server.CreateObject("ADODB.RECORDSET")
conn.open connstr
%>

这里代码怎么写?读取数为前10条新闻标题,能加上分页更好~~~

<table width="97%" height="25" border="0" align="center" cellpadding="0" cellspacing="0" class="xia">
<tr>
<td width="2%"> </td>
<td width="68%" class="ddyyCopy"><img src="images/a5.jpg" width="11" height="11"> <a href='news.asp?id=<%=rs("id")%>' class='ddyycopy' target='_blank'>
<%if len(trim(rs("title")))>18 then
response.write left(trim(rs("title")),18)&"..."
else
response.write trim(rs("title"))
end if%>
</a></td>
<td width="30%" class="hd"><%=rs("addtime")%> </td>
</tr>
</table>

请高手帮帮忙啊~~~急啊~~~
不只是读取前10条新闻,还有如何打开数据库里的表,只读国外新闻哪种类型.希望高手能在我的代码直接修改和填加,谢谢啊

二楼的这里通过不了,错误如下:
错误类型：
Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/lx.asp, line 12, column 40
sql="select top10 * from News where lb="国外新闻" order by ID desc"

Answer 1

<table width="96%" border="0" align="right" cellpadding="2" cellspacing="0" bgcolor="#CCCCCC">
<%set rs=server.createobject("adodb.recordset")
sql="select * from News where lb="国外新闻" order by ID desc" //国际新闻全部读取
//sql="select top10 * from News where lb="国外新闻" order by ID desc"
//前10条的 自己根据需要再改一下
rs.open sql,conn,1,1
%>
<%
listnum=20
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
j=rs.recordcount
j=j-(page-1)*listnum
i=1
%>
<tr align="center">
<td height="10" colspan="3" align="center" valign="middle" bgcolor="#FFFFFF"></td>
</tr>
<tr align="center">
<td width="3" align="center" valign="middle" bgcolor="#FFFFFF"> </td>
<td width="400" height="23" align="center" valign="middle" bgcolor="#FFFFFF">新闻标题</td>
<td bgcolor="#FFFFFF">发布时间</td>
</tr>
<tr align="center">
<td height="1" colspan="3" align="center" valign="middle" bgcolor="#E6E6E6"></td>
</tr>

<%
do while not rs.eof and i<listnum
NewsTitle=trim(rs("Title"))
%>
<tr>
<td bgcolor="#FFFFFF"><img src="/Images/NewsIcon.gif" width="3" height="3"></td>
<td height="25" valign="bottom" bgcolor="#FFFFFF"> <a href="/News/NewsShow.asp?NewsId=<%=rs("NewsId")%>" target="_blank"><%=Left(NewsTitle,26)%></a></td>
<td height="21" align="center" valign="bottom" bgcolor="#FFFFFF"><%=year(rs("AddTime"))&"-"&month(rs("AddTime"))&"-"&day(rs("AddTime"))%></td>
</tr>
<tr>
<td height=1 colspan=3 background="/Images/NewTitleBg.gif" bgcolor=#FFFFFF></td>
</tr>
<%
rs.movenext
i=i+1
j=j-1
loop
%>
<tr>
<%filename="Index.asp"%>
<td colspan=3 align=right bgcolor=#FFFFFF height=22><strong><font color=#CC3300><%=rs.recordcount%></font></strong>条信息 共<strong><font color=#CC3300><%=Rs.pagecount%></font></strong>页
<% if page=1 then %>
<%else%>
<a href=<%=filename%>><strong>|<<</strong></a>
<a href=<%=filename%>?page=<%=page-1%>><strong><<</strong></a>
<a href=<%=filename%>?page=<%=page-1%>><strong>[<%=page-1%>]</strong></a>
<%end if%><% if Rs.pagecount=1 then %>
<%else%><strong>[<%=page%>]</strong>
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
<a href=<%=filename%>?page=<%=page+1%>><strong>[<%=page+1%>]</strong></a>
<a href=<%=filename%>?page=<%=page+1%>><strong>>></strong></a>
<a href=<%=filename%>?page=<%=Rs.pagecount%>><strong>>>|</strong></a>
<%end if%>  </td>
</tr>
<%
rs.close
%>
</table>

汗,你得看一下你的类别的设置的值,并不是直接用这个代码啊.

Answer 2

<%
dim conn
dim rst
dim connstr
dim sqlstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath("/db/lxdz.mdb")
set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
set rst=Server.CreateObject("ADODB.RECORDSET")
sql="select top 10 * from news where lb='国外新闻'"
rst.open spl,conn,1,1
%>

没给你写分页，你先拿这个看看能不能全读出来吧。

<table width="97%" height="25" border="0" align="center" cellpadding="0" cellspacing="0" class="xia">
<tr>
<td width="2%"> </td>
<td width="68%" class="ddyyCopy"><img src="images/a5.jpg" width="11" height="11"> <a href='news.asp?id=<%=rs("id")%>' class='ddyycopy' target='_blank'>
<%if len(trim(rs("title")))>18 then
response.write left(trim(rs("title")),18)&"..."
else
response.write trim(rs("title"))
end if%>
</a></td>
<td width="30%" class="hd"><%=rs("addtime")%> </td>
</tr>
</table>

Answer 3

要读出表中的所有记录，改一下这句：rs.open"select
top
10
from
test",conn,1,1
改成：rs.open"select
*
from
test",conn,1,1
然后通过循环，显示出来
do
while
not
rs.EOF
response.write
(rs(0))
response.write
(rs(1))
……
'test表有多少个字段，就写多少个
re.movenext
loop
'最后关闭记录集和链接并释放
rs.close
conn.close
set
rs
=
nothing
set
conn
=
nothing

Answer 4

<%
'on
error
resume
next
no=session("no")
'学号，文本型，在登录时保存的。
name=session("name")
'姓名，文本型，同上
response.write
no&name
'这样能取到数值么
？
%>你的语法应该没错，你还可以试试response.write
sqlstr看语法正确不？
是否取到的是空值？

Answer 5

读取前10条记录：
sqlstr = "Select top 10 * from news order by id desc"