广场 › 『网站建设』 › 这个是把数据库的东西都写出来， 只要前十条信息，加什么代码？？？？

jjqqhh 发表于 2005 年 12 月 12 日 16:06:48

这个是把数据库的东西都写出来， 只要前十条信息，加什么代码？？？？

<%
Set conn1 = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("/xuyuan/282836278.mdb")
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set Rs=Server.CreateObject("ADODB.RECORDSET")

 Sql="Select * From wish"
 Rs.Open Sql,Conn1,1,3
 while not rs.EOF
 response.Write("<font color=red>"&"姓名："& "</font>"&Rs(1)&"<hr align=center width=100% size=1 color=#FFCCFF noshade>")
 rs.MoveNext
wend
%>
这个是把数据库的东西都写出来，只要前十条加什么代码？？？？

泪下兰泽 发表于 2005 年 12 月 12 日 16:11:17

请详细说明wish表的结构~主码是什么?

泪下兰泽 发表于 2005 年 12 月 12 日 16:13:28

前面是不是有个代号?从小到大排列的

jjqqhh 发表于 2005 年 12 月 12 日 16:24:10

是这样的`
http://qqhu.net/k.jpg

jjqqhh 发表于 2005 年 12 月 12 日 16:29:36

高手快进来~~~~~~~~~~~~~~~~~~

泪下兰泽 发表于 2005 年 12 月 12 日 16:39:39

select top 10 from wish
这样就可以了哈,你试试

wangzz 发表于 2005 年 12 月 12 日 16:42:06

黑了哪个网站

jjqqhh 发表于 2005 年 12 月 12 日 16:44:39

可以了，谢谢你`~~~

jjqqhh 发表于 2005 年 12 月 12 日 16:45:18

怎么写出最新的10条啊`~

winsock 发表于 2005 年 12 月 12 日 16:46:14

<%
Dim i
Set conn1 = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("/xuyuan/282836278.mdb")
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set Rs=Server.CreateObject("ADODB.RECORDSET")

Sql="Select * From wish"
Rs.Open Sql,Conn1,1,3
For i=1 To 10
    response.Write("<font color=red>"&"姓名："& "</font>"&Rs(1)&"<hr align=center width=100% size=1 color=#FFCCFF noshade>")
    rs.MoveNext
Next
%>

查看完整版本: 这个是把数据库的东西都写出来， 只要前十条信息，加什么代码？？？？