台灣最大程式設計社群網站
線上人數
1257
 
會員總數:246143
討論主題:189729
歡迎您免費加入會員
討論區列表 >> MS SQL >> [SQL]又要麻煩大家了..^^
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[SQL]又要麻煩大家了..^^
價值 : 0 QP  點閱數:1547 回應數:7
樓主

玄靈澈明
初學者
67 19
244 27
發送站內信

<%
Set cons = Server.CreateObject("ADODB.Connection")
DBmPath = Server.MapPath("document.mdb")
cons.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBmPath
set rsm = Server.CreateObject("ADODB.Recordset")
sql="Select top 5 * From forum order by click desc"
rsm.Open sql, cons,1, 3
%>
<center>
<table border=1 cellspacing=0 cellpadding=3 width=195 class=search height="123"> 
<tr>
<td class=searchbox align=center width="116" height="1"><font size="2">主題</font></td> 
<td class=searchbox align=center width="61" height="1"><font size="2">回覆 / 點選</font></td> 
</tr>
<tr>
<td width="116" height="113" valign="top"><A HREF=showdiscuss.asp?id=<%=rsm("id")%> target=_self><font size="2"><%=rsm("topic")%></font></a> </td>  
<td class=tableboxformat align="center" width="61" valign="top" height="113"><font size="2"><%=rsm("replies")%>/<%=rsm("click")%></font></td>  
</tr>  
</table> 
................................................................................
以上是我做討論區的TOP5,可是它只會顯示出一條主題而已,不知道是那有問題!

能不能請大家幫我看看呢??

謝謝大家了...^^

本篇文章發表於2002-07-03 01:15
1樓
回應

阿利
檢舉此回應
試試這樣...:)

<%do while not rsm.eof%>
<td width="116" height="113" valign="top"><A HREF=showdiscuss.asp?id=<%=rsm("id")%> target=_self><font size="2"><%=rsm("topic")%></font></a> </td>  
<td class=tableboxformat align="center" width="61" valign="top" height="113"><font size="2"><%=rsm("replies")%>/<%=rsm("click")%></font></td>  
<%
rsm.movenext
loop
%>
本篇文章回覆於2002-07-03 01:25
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

玄靈澈明
檢舉此回應
我試了,可是卻變成連回覆都一起顯示出來了。
本篇文章回覆於2002-07-03 01:30
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

阿利
檢舉此回應
只出現一筆主題的原因在於沒有做 Do Loop ...
原來不加 Do Loop 時也會顯示出回應吧??
<%=rsm("replies")%>

本篇文章回覆於2002-07-03 01:35
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

玄靈澈明
檢舉此回應
..........................................................................................
Microsoft VBScript 編譯階段錯誤 錯誤 '800a03fb' 

必須要有 'Loop' 

/top1.asp, 列18 
...........................................................................................
不加loop時出現了以上的錯誤訊息,為什麼會這樣呢??

能否請教一下??

謝謝你了.......^^
本篇文章回覆於2002-07-03 01:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

scribe
檢舉此回應
那用While呢?

<% While rsm.EOF = True %>
<td width="116" height="113" valign="top">
<A HREF=showdiscuss.asp?id=<%=rsm("id")%> target=_self><font size="2"><%=rsm("topic")%></font></a> 
</td>  
<td class=tableboxformat align="center" width="61" valign="top" height="113">
<font size="2"><%=rsm("replies")%>/<%=rsm("click")%></font>
</td>  
<%
rsm.MoveNext
Wend
%>
本篇文章回覆於2002-07-03 10:08
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
回應

scribe
檢舉此回應
寫錯了...
While rsm.EOF = False才對
之前那樣不會去執行
本篇文章回覆於2002-07-03 10:11
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
回應

玄靈澈明
檢舉此回應

我試試看

謝謝你了......^^
本篇文章回覆於2002-07-03 20:42
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.