<% Set conn=Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath(".") &"/board.mdb" 'I change 'Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\science\Webboard_general\board.mdb" 'oledb for ado2.0 up only run from client they don't know D: it is physical drive ' <************************************** keyword=Request.QueryString("keyword") If keyword="" Then keyword=Request.Form("keyword") End If If keyword="" Then 'เพิ่มเมื่อมีการ search Sql="Select * From Topics where ParentID=0 Order by LastUpdate DESC" Else Sql="Select * From Topics where Topics Like '%" & keyword & "%' Or Data Like '%" & keyword & "%'" End If ' >************************************** 'Set rs=Conn.Execute(Sql) Set rs=Server.CreateObject("ADODB.Recordset") rs.Open Sql, conn, 3, 3 ' ต้อง 1 กะ 3 ไม่งั้นใช้ PageSize PageCount ไม่ได้ rs.PageSize=10 ' default=10 If Request.QueryString("Page")="" Then CurrentPage=1 Else CurrentPage=CInt(Request.QueryString("Page")) ' ไม่แปลงจะเปรียบเทียบค่าไม่ได้ End If With Response .Write "" .Write "" .Write "" .Write "" .Write "" .Write "
" .Write "" .Write "" .Write "" ' <********************************************** .Write "" ' >********************************************** .Write "" .Write "

" .Write "" .Write "

" .Write "หน้า " .Write "" ' ******************** For i=1 To rs.PageCount .Write "" & i Next .Write "" .Write " จากทั้งหมด " & rs.PageCount & " หน้า" .Write "

" End With If Not rs.Eof Then ' ************************** rs.AbsolutePage=CurrentPage Response.Write "" Response.Write "" Else Response.Write "         ไม่พบกระทู้ที่ต้องการ" End If Color=0 i=1 Do While Not rs.Eof and i<= rs.PageSize With Response ' <*********************************** รู้ได้ไงว่าเขียน Parent เขียนหรือยัง ParentID=rs("ParentID") If ParentID<>0 Then myBookmark=rs.Bookmark rs.Find "ID=" & ParentID , 0, 1, 1 ' adSearchForward=1, adBookMarkFirst=1 ถ้าไม่ set อย่างนี้จะไม่หาตั้งแต่ record แรก If rs.EOF Then rs.Bookmark=myBookmark rs.Find "ParentID=" & ParentID, 1, -1, 0 If rs.BOF Then Sql="Select * from Topics Where ID=" & ParentID Set rs2=Conn.Execute(Sql) If Color=0 Then .Write "" Color=1 Else .Write "" Color=0 End If .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" Set rs2=Nothing ' ********************* End If End If rs.Bookmark=myBookmark Else ' >*********************************** If Color=0 Then .Write "" Color=1 Else .Write "" Color=0 End If .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" End If End With rs.MoveNext i=i+1 Loop With Response .Write "

ชื่อกระทู้	จากคุณ	อีเมล	ตอบทั้งหมด	ตอบครั้งล่าสุด
" & rs2("Topics") & "	" & rs2("User") & "	" & rs2("Email") & "	" & rs2("Replies") & "	" & rs2("LastUpdate") & "
" & rs("Topics") & "	" & rs("User") & "	" & rs("Email") & "	" & rs("Replies") & "	" & rs("LastUpdate") & "

" .Write "

---

" .Write "" End With rs.Close Set rs=Nothing conn.Close Set conn=Nothing %>