asp查询数据库的问题

conn.asp的代码为：
<%
DBPath = Server.MapPath("/data/data.mdb") 
constr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
%>


首页index.asp为：

<!--#include virtual="conn.asp" -->
<%

代码

这里读取数据库data.mdb，读取news表中的字段newstitle（文本型）的最新5条数据,加上字段newsid（自动编号）的数据！！！然后输出到网页上！！

%>


代码怎么写呢？

谢谢了！！！

希望不要有注入漏洞！！谢谢了！！！

< % 
set rs=server.CreateObject("adodb.recordset") (建立recordset对象) 
sqlstr="select * from message" ---- >(message为数据库中的一个数据表，即你要显示的
数据所存放的数据表) 
rs.open sqlstr,conn,1,3 ---- >(表示打开数据库的方式) 
rs.movefirst ---- >(将指针移到第一条记录) 
while not rs.eof ---- >(判断指针是否到末尾) 
response.write(rs("name")) ---- >(显示数据表message中的name字段) 
rs.movenext ---- >(将指针移动到下一条记录) 
wend ---- >(循环结束) 
------------------------------------------------------ 
rs.close 
conn.close 这几句是用来关闭数据库 
set rs=nothing 
set conn=nothing 
------------------------------------------------------- 
% > 

VBScript code

<!--#include virtual="conn.asp" -->
<%
sql = "SELECT TOP 5 newstitle, newsid FROM news ORDER BY newsid DESC"
Set conn = CreateObject("ADODB.Connection")
conn.Open constr
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open sql, conn, 1, 1
Set rs.ActiveConnection = Nothing
%>
<table>
<%
Do While Not rs.EOF
   Response.Write "<tr><td><a href='deatial.asp?id=" & rs("newsid").Value & "'>" & rs("newstitle").Value & "</a></td></tr>"
   rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
</table>

顶,并且让我知道还有CursorLocation 属性感谢

rs.Open sql, conn, 1, 1 后面的两个1，1 是什么意思，难道你不知道吗？ 这样学你就毁了。

是我看差了，习惯看成CursorType了。