ตั้งคำถามใหม่ | กลับหน้าแรก

<% '----------------------------------------------------------------- ' 1.ประกาศตัวแปร Dim page, rowCount, i On Error Resume Next '----------------------------------------------------------------- ' 2.Validate ตัวแปรที่เก็บค่าของหน้าในการแสดงผล RecordSet page = Trim(Request.QueryString("page")) If page = "" Then page = 1 '----------------------------------------------------------------- ' 3.ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง Questions มาแสดงผล Call ConnectDB() sql="select * from questions order by QNumber DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic ' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า rs.PageSize = 20 rs.Open sql,conn ' กำหนดว่าต้องการแสดงผลลัพธ์จากหน้าไหน rs.AbsolutePage = CInt(page) rowCount = 0 If Not rs.EOF Then Do While Not rs.EOF And rowCount < rs.PageSize %> <% rowCount = rowCount + 1 rs.MoveNext Loop End If %> <%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)%> "><%=Server.HTMLEncode(RS("QTopic"))%> จากคุณ <%=Server.HTMLEncode(RS("QName"))%> เมื่อวันที่ <%=rs("qdate")%> มีผู้ตอบ <%=Server.HTMLEncode(RS("NAnswer"))%> คน