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

2025-01-01 11:17:36

推荐回答（5个）

回答1：

<%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
%>

<%
do while not rs.eof and iNewsTitle=trim(rs("Title"))
%>

<%
rs.movenext
i=i+1
j=j-1
loop
%>

<%filename="Index.asp"%>

<%
rs.close
%>


	新闻标题	发布时间

	" target="_blank"><%=Left(NewsTitle,26)%>	<%=year(rs("AddTime"))&"-"&month(rs("AddTime"))&"-"&day(rs("AddTime"))%>

<%=rs.recordcount%>条信息共<%=Rs.pagecount%>页 <% if page=1 then %> <%else%> >\|<< ?page=<%=page-1%>><< ?page=<%=page-1%>>[<%=page-1%>] <%end if%><% if Rs.pagecount=1 then %> <%else%>[<%=page%>] <%end if%> <% if Rs.pagecount-page <> 0 then %> ?page=<%=page+1%>>[<%=page+1%>] ?page=<%=page+1%>>>> ?page=<%=Rs.pagecount%>>>>\| <%end if%>

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

回答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
%>

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

' 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%>

<%=rs("addtime")%>

回答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

回答4：

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

回答5：

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