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

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

是这样的`

登录/注册后可看大图

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

账号		自动登录	找回密码
密码			注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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