| ลำดับ |
หัวข้อ |
จาก |
เมื่อวันที่ |
มีผู้ตอบ |
<%
'----------------------------------------------------------------------------
' 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)%> |
"><%=Server.HTMLEncode(RS("QTopic"))%> |
<%=Server.HTMLEncode(RS("QName"))%> |
<%=rs("qdate")%> |
<%=Server.HTMLEncode(RS("NAnswer"))%>
|
<%
rowCount = rowCount + 1
rs.MoveNext
Loop
End If
%>
|