<% PAGE = Request("PAGE") ' 接收所要瀏覽的頁次 Review = Request("Review") ' 接收快速瀏覽的模式 IF PAGE = "" THEN PAGE = 1 ELSE PAGE = PAGE END IF IF Review = "" THEN Review = "all" END IF ' 快速瀏覽模式 SELECT CASE Review CASE "all" viewmode = "顯示全部討論主題" Message = "抱歉!! 目前尚無任何討論主題..." Sql = "messageid <> 0" CASE "today" viewmode = "今日所發問的主題" Message = "抱歉!! 今天尚無網友張貼任何討論主題..." Sql = "postdate = cstr(date())" CASE "reply" viewmode = "已有所回應的主題" Message = "抱歉!! 所有的主題都尚未有回應..." Sql = "reply > 0" CASE "todayreply" viewmode = "今日己回應的主題" Message = "抱歉!! 今天所張貼的主題都尚未有回應..." Sql = "postdate = cstr(date()) and today > 0 " CASE "notreply" viewmode = "尚未有回應的主題" Message = "抱歉!! 所有的主題都已有回應了..." Sql = "reply = 0" CASE "hurry" viewmode = "特急件的討論主題" Message = "抱歉!! 目前尚無特別急須解決的主題..." Sql = "obj = '急件'" CASE "publ" viewmode = "普通件的討論主題" Message = "抱歉!! 目前尚無任何普通類型的主題..." Sql = "obj <> '急件'" CASE "hot" viewmode = "較熱門的討論主題" Message = "抱歉!! 目前尚無較熱門的主題..." Sql = "reply > 50" CASE else viewmode = "查詢相關討論主題" ' 過濾查詢字串中是否有 Sql 的特殊字元 find1 = instr( review,"|" ) find2 = instr( review,"'" ) IF find1 > 0 Or find2 > 0 Then Message = "抱歉!! 您所查詢的主題中含有 Sql 特殊字元,所以無法查詢..." Review = replace( review,"|" ,"chr(124)" ) Review = replace( review,"'" ,"chr(39)" ) Else Message = "抱歉!! 目前沒有您所查詢的主題...請張貼詢問網友..." End IF Sql = "subject Like '%" & Review & "%'" End Select ' 開啟資料檔 Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("board.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") SortSql = "Select *From boardtitle Where " & Sql & " order by postdate Desc,lastpostTime Desc" rs.Open SortSql, conn, 1,3 RS.PageSize = 10 ' 設定每頁顯示 10 筆 If Not rs.eof Then ' 有資料才執行 RS.AbsolutePage = PAGE ' 將資料錄移至 PAGE 頁 End if %> ASP 討論板
討論板
請網友發問前，先利用【查詢功能】，查詢是否已有您所要的答案
查詢相關主題
每頁 10 筆 | 第 <%=page%> / <%=rs.pagecount%> 頁 | 共 <%=rs.recordcount%> 筆
目前瀏覽模式為<%=viewmode%>
| 發起新討論　返回首頁　留言板 |
<% IF rs.eof then ' 如果沒資料 %> <%Else ' 如果有資料 %> <%FOR SH=1 to rs.pageSize ' 顯示資料 IF (page - 1) * rs.pagesize + sh/2 = (page - 1) * rs.pagesize + sh\2 Then ' 判斷編號是雙,則設定背景顏色為 backcolor = "#CCCCFF" ' 淡紫色 Else backcolor = "#FFFFFF" ' 白色 End If IF rs("obj") = "急件" Then ' 判斷編號是單或雙,來設定背景顏色 fontcolor = "#CC0000" ' 紅色 Else fontcolor = "#000000" ' 黑色 End If If rs("lastpost") <> "" Then IF CSTR(rs("lastpost")) <> CSTR(date()) then ' 如過了一天,則今日回應數清為 0 rs("today") = 0 rs.update End If End If %> > <% rs.MoveNext IF RS.EOF THEN EXIT FOR Next End If rs.close %>
編號
類型
討　　論　　主　　題
發 問 者
發問日期
回應
今日
人氣

<%=Message%>
<%=((rs.recordcount+1) - ((page-1) * rs.pagesize)) - sh%>
><%=rs("obj")%>
 ><%=rs("subject")%> <%If rs("sex")= "女" Then response.write ""%>
<%=rs("author")%>
<%If rs("sex")= "女" Then response.write ""%>
<%IF cstr(rs("postdate")) = CSTR(date()) Then response.write "" Else response.write rs("postdate") End If %>
<%=rs("reply")%>
<%=rs("today")%>
<%=rs("hit")%>

討論板 v1.0 Design by junior 友緣故事 1999/08/23