<%
Mydatabase = "../DB/bbs.mdb"
Page = Cint(Request("Page"))
Discuss = Request("Discuss")
set adocon=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
adocon.Open param & ";dbq=" & Server.MapPath(Mydatabase)
set rs = Server.CreateObject("ADODB.Recordset")
set rs1 = Server.CreateObject("ADODB.Recordset")
if Discuss = "" then
sqlstr2 = "select * from Discuss"
rs1.Open sqlstr2, adocon, 1,1
if rs1.EOF then
response.write "目前沒有任何討論版面"
response.end
else
Discuss = rs1("Discuss_ID")
DiscussN = rs1("Discuss_Name")
findDiscuss = " AND Discuss_ID = '"&rs1("Discuss_ID")&"' "
rs1.MoveFirst
rs1.Close
end if
else
Discuss = Discuss
findDiscuss = " AND Discuss_ID = '"&Discuss&"' "
end if
if Page = "" then
Page = 1
else
Page = Page
end if
Find = Request("select")
Keyword = Request("keyword")
Select Case Find
Case "1"
findsql = " And Article_Title Like '%" & Keyword & "%'"
Case "2"
findsql = " And User_Name Like '%" & Keyword & "%'"
Case else
findsql = ""
End Select
'抓討論區的名字
sqlstr3 = "select * from Discuss"
rs1.Open sqlstr3, adocon, 1,1
while rs1("Discuss_ID") <> Discuss
rs1.MoveNext
wend
DiscussN = rs1("Discuss_Name")
rs1.MoveFirst
sqlstr = "select * from Article Where Article_Link = '0' " &findDIscuss & findsql & " Order by LastReply_Date + LastReply_Time Desc"
rs.Open sqlstr, adocon, 1,1
rs.PageSize = 10
if Page < 1 then Page = 1
if Page > rs.PageCount then Page = rs.PageCount
if Not rs.EOF then
rs.AbsolutePage = Page
end if
%>
goo討論區
討論區
[每頁 <% = rs.PageSize%> 筆/共
<% = rs.RecordCount %> 筆主題][目前在第 <% = Page %>
頁/共 <% =rs.PageCount %> 頁]
<%
If Page <> 1 Then %>
第一頁
上一頁 <%
End If
If Page <> rs.PageCount Then %>
下一頁
最後一頁 <%
End If
%>
編號
文章主題
作者
回應篇數
人氣指數
發表時間
最後回應時間
<%
if Not rs.EOF then
For i = 1 to rs.PageSize
RecNo = ( Page - 1 ) * rs.PageSize + i
if ( i Mod 2 ) = 0 then
bgcolor = "#e8f0ff"
else
bgcolor = "#ffffff"
end if
%>
<% = RecNo %>
<% = rs("User_Name") %> <% = rs("ReplyPost_Count") %> <% = rs("Article_BrowseTimes") %> <% = rs("Article_Date") %> <% = rs("Article_Time") %> <% = rs("LastReply_Date") %> <% = rs("LastReply_Time") %>
<%
rs.MoveNext
if rs.EOF then exit for
Next
else
nodata ="目前沒有資料"
Response.Write nodata
end if
rs.Close
rs1.Close
adocon.close
%>
蒼穹設計工作室設計製作 COPYRIGHT © 2000 SKY DESIGN
STUDIO ALL RIGHTS RESERVED
