<%@ codepage=874%> <%Option Explicit%> <%Session.LCID = 1054%> Free ASPwebboard
| ตั้งคำถามใหม่ | กลับหน้าแรก | " style="font-family: ms sans serif; font-size: 10pt; border: 1px double black;background:#ffffff; COLOR: #6870c0">
ฟรีเว็บบอร์ดจากขอนแก่นลิ้งก์  
<% '---------------------------------------------------------------------------- ' 1.ประกาศตัวแปร Dim page, rowCount, i, ans, sWhere, sSearch '---------------------------------------------------------------------------- ' 2.Validate ตัวแปรที่เก็บค่าของหน้าในการแสดงผล RecordSet page = Trim(Request.QueryString("page")) If page = "" Then page = 1 sSearch = Trim(Request.Form("search")) ans = Trim(Request.QueryString("ans")) If sSearch = "" Then If IsNumeric(ans) Then If ans=1 Then sWhere = " where nanswer>=1" If ans=0 Then sWhere = " where nanswer=0" If ans=2 Then sWhere = " order by nanswer DESC, qnumber DESC" If ans=3 Then sWhere = " order by nanswer, qnumber DESC" Else sWhere = "" End If Else sWhere = " where qtopic like '%"& sSearch &"%' Or qnote like '%"& sSearch &"%'" End If '----------------------------------------------------------------- ' 3.ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง Questions มาแสดงผล Call ConnectDB() sql="select * from questions" & sWhere & " order by QNumber DESC" If ans="2" Or ans="3" Then sql="select * from questions" & sWhere Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic ' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า rs.PageSize = 20 rs.Open sql,conn If Not rs.EOF Then ' กำหนดว่าต้องการแสดงผลลัพธ์จากหน้าไหน rs.AbsolutePage = CInt(page) rowCount = 0 Do While Not rs.EOF And rowCount < rs.PageSize %> <%If replace(left(rs("qdate"),10)," ","") = replace(formatdatetime(date,2)," ","") and rs("nanswer") = 0 then%>
<%elseif rs("nanswer") <> 0 then%> <%else%> <%end if%> #<%=right("0000" & RS("QNumber"),5)%> " target=_self><%=Server.HTMLEncode(RS("QTopic"))%> จากคุณ <%=Server.HTMLEncode(RS("QName"))%> เมื่อ <%=rs("qdate")%> ตอบ <%=Server.HTMLEncode(RS("NAnswer"))%> / อ่าน <%=rs("read")%>
<% rowCount = rowCount + 1 rs.MoveNext Loop End If %>
       
หมายเลขหน้าเรียงจาก คำถามใหม่ไปเก่า เช่น 1 คือหน้าที่มีคำถามใหม่ล่าสุด <% Call ShowPageNum(rs.PageCount, Page, "aspboard.asp", ans) rs.Close Set rs = Nothing Call DisconnectDB() %>