台灣最大程式設計社群網站
線上人數
642
 
會員總數:245143
討論主題:189047
歡迎您免費加入會員
討論區列表 >> ASP >> [ASP]留言板一問
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[ASP]留言板一問
價值 : 0 QP  點閱數:5187 回應數:43

樓主

Kevin
初學者
238 90
472 221
發送站內信

如果我想一頁只容納10編留言,第11編自動移去下一頁,那可以怎做?
還有的是,第二頁是會自動創造的嗎???

例如第一頁GuessBook.asp已有10編留言,那第11編會怎樣???
第二頁又怎樣?

本篇文章發表於2002-03-12 13:39
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

lgwlee
檢舉此回應
這是基本的功能與問題喔!
去找找教學的網頁吧!
本篇文章回覆於2002-03-12 15:45
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

Kevin
檢舉此回應
可到那兒呀??? 
我很趕哦,下星期要交那個ASP網頁了∼...很苦哦...
本篇文章回覆於2002-03-12 18:23
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

Kevin
檢舉此回應
找個人來回答我一下吧.......
本篇文章回覆於2002-03-13 13:24
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應


檢舉此回應
我想你去下載個有分頁功能的流言版程式回去研究一下就該知道了...

第11篇流言不會顯示出來的..因為你的loop最多只會跑10次...
至於第2頁..基本上是不存在的..網頁只會有一頁...
第2頁不過是叫程式從第11篇開始顯示罷了...
本篇文章回覆於2002-03-13 13:44
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
作者回應

Kevin
檢舉此回應
我的老師給了我一編...但無論我怎看...都不明白...可以教我一下嗎?
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>公告信息</title>
</head>
<%
Dim Total
Total=0

Page=Clng(request("Page"))
a_class=left(session("stu_class"),2)
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset") 

drivers="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
users_driver = drivers & Server.MapPath("/admin/db/users.mdb")
exec="select * from  messages  where users = '全校'  order by send_date DESC"
conn.Open users_driver
rs.open exec,Conn,1,1
rs.PageSize=6
if Page<1 then Page=1
if Page>rs.PageCount then Page=rs.PageCount
%>
<BODY background="/images/Bg1.jpg">
<%
if rs.EOF then
 response.write "<center>沒有信息!</center><p>"
 response.end
else
 k=(page-1)*rs.pagesize
 rs.AbsolutePage=Page
%>
<table width="100%">
<% for i=1 to rs.PageSize  
     response.write "<font size=2>收件者: " & rs("id") & "</font><br>"
     rs.MoveNext
     if rs.EOF then exit for 
   next
end if
%>
 </table>
<hr color=red>
<center><table width="80%"><tr>
<%
 if Page<>1 then
   response.write "<td><a href=look.asp?Page=1&k=" & ">第一頁</a></td>"
   response.write "<td><a href=look.asp?Page=" & Page-1 & ">上一頁</a></td>"
 end if
 if Page<>rs.PageCount then
   response.write "<td><a href=look.asp?Page=" & Page+1 &">下一頁</a></td>"
   response.write "<td><a href=look.asp?Page=" & rs.PageCount & ">最後一頁</a></td>"
 end if
%>
</tr></table></center>
</body>
</html>
本篇文章回覆於2002-03-13 20:09
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
回應

KirinLin
檢舉此回應
嗯....請你指出哪裡不明白...
該不會說每個英文字都看的懂, 加在一起就不懂了吧?
全部解說就是給你魚吃, 不是教你釣魚...
本篇文章回覆於2002-03-13 22:45
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
教您一下釣魚的方式
首先您先將這程式翻譯成中文
什麼意思呢?
如:
 if Page<>1 then
中文為 
"假如頁數不等於一然後"

您先學我的方式
將整個程式寫成中文
這樣您就知道程式在寫什麼呢
也知道要如何改 
本篇文章回覆於2002-03-13 23:03
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
回應

小勝
檢舉此回應
學習任何東西都要靠自己,別能只能指點你,我指點你一下:

'@@@@    上一頁,下一頁的程式      
           if Page=1 or Page="" then   
             Response.Write "<font size=2>上一頁</font>"   
           Else   
             PageNo=Page-1   
             Response.Write "<A href=board.asp?Page=" & PageNo & "><font color=#008080 size=2>上一頁</font></a>"   
           end if   
           Response.Write "<font color=#008080 size=2> || </font>"   
           if Page=rs3.PageCount then   
             Response.Write "<font size=2>下一頁</font>"   
           Else   
             PageN=Page+1   
             Response.Write "<A href=board.asp?Page=" & PageN & "><font color=#008080 size=2>下一頁</font></a>"   
           end if   

最重要的是還是到教學區看個仔細
本篇文章回覆於2002-03-14 09:24
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
9樓
作者回應

Kevin
檢舉此回應
我看這麼久也不明原理是怎樣...唉...
以下這兩種開數據庫的方法有什么不同???
Set conn = Server.CreateObject("ADODB.Connection") 
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../Access/book.mdb") 
    exec="select * from gbook order by data Desc"
    rs.open exec,Conn,1,1

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset") 
drivers="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
users_driver = drivers & Server.MapPath("/admin/db/users.mdb")
exec="select * from  messages  where users = '全校'  order by send_date DESC"
conn.Open users_driver
rs.open exec,Conn,1,1

還有上面程式碼的這兩句又怎樣?
Page=Clng(request("Page"))
a_class=left(session("stu_class"),2)
本篇文章回覆於2002-03-14 19:50
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
10樓
作者回應

Kevin
檢舉此回應
Request("Page")
中的Page在那來的???
本篇文章回覆於2002-03-14 19:51
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
11樓
回應

Allen
捐贈 VP 給 Allen 檢舉此回應
Response.Write "<A href=board.asp?Page=" & PageNo & "><font color=#008080 size=2>上一頁</font></a>"   

您可以從上面的程式碼中找到
board.asp?Page=
Request("Page")就從這裡來的
本篇文章回覆於2002-03-14 20:43
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
12樓
回應

Allen
捐贈 VP 給 Allen 檢舉此回應
如果您實看不懂, 不妨去找一本ASP的書來看看, 應該不難找到如何做到分頁顯示的說明, 這樣的資訊會完整一些, 等您的ASP比較熟以後, 再來看別人的 Sample code。
本篇文章回覆於2002-03-14 20:47
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
13樓
作者回應

Kevin
檢舉此回應
我買了四本ASP的書...但真的沒一本介紹過怎做分頁...
只提一下子的就有...
請問下面有什么問題呢? 我原意想做留言板的那個SELECT,到第几頁...這個功能的...
<%
rs.PageSize=6
if Page<1 then Page=1
if Page>rs.PageCount then Page=rs.PageCount
A=rs.PageCount
%>
<select name="select" size="1">
    <option>請跳頁</option>
    <option value='<% response.write (response.redirect "guessbook.asp?Page=A") %>' >hihi</option>          
</select>
本篇文章回覆於2002-03-14 23:51
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
14樓
作者回應

Kevin
檢舉此回應
出現錯誤:
Microsoft VBScript 編譯階段錯誤 錯誤 '800a03ee' 

必須要有 ')' 

/exam/asp/guessbook.asp, 列36 

response.write (response.redirect "guessbook.asp?Page=A")
----------------------------------^
本篇文章回覆於2002-03-14 23:52
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
15樓
回應

maduka
捐贈 VP 給 maduka 檢舉此回應
不能這樣作喔
response.write (response.redirect "guessbook.asp?Page=A")

Response.Write 是將文字或資料作顯示的動作,所以這樣作是"不合法"的喔
本篇文章回覆於2002-03-15 00:16
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   

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