<% page=request.querystring("page") if page="" then page=1 page=cint(page) gsql=request.form("sql") if gsql="" then gsql=session("sql") gsubm=request.form("subm") thmonth=array("Á.¤.","¡.¾.","ÁÕ.¤.","àÁ.Â.","¾.¤.","ÁÔ.Â.","¡.¤.","Ê.¤.","¡.Â.","µ.¤.","¾.Â.","¸.¤.") SQL="SELECT * FROM Question WHERE verify=true" if gsubm="´Ù¤ÓµÍºÅèÒÊØ´" then gsql="" SQL2=" ORDER BY Ldate DESC; " elseif gsubm="¡Ãͧ" and gsql<> "" then SQL2= " and qtitle like '%" & gsql & "%' ORDER BY IDQuestion DESC; " elseif gsubm="´Ù·Ñé§ËÁ´" then gsql="" SQL2=" ORDER BY IDQuestion DESC; " elseif gsql<> "" then SQL2= " and qtitle like '%" & gsql & "%' ORDER BY IDQuestion DESC; " else SQL2=" ORDER BY IDQuestion DESC; " end if session("sql")=gsql SQL=SQL & SQL2 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 1, 3 On Error Resume Next gtotal=rs.RecordCount RS.pagesize=10 ttpage=rs.pagecount rs.absolutepage=page %> Welcome to Perspective Webboard

Perspective Webboard

µÑé§ËÑÇ¢éÍãËÁè  

<%count=1 Do while Not RS.EOF and count <= 15 %> <% if rs("qdate")+5 >date then %> <% else %> <% end if %> <%rs.MoveNext count=count+1 %> <% loop rs.Close conn.close %>
àÅ¢·Õè ¢éͤÇÒÁ à»Ô´ µÍº â¾Êµìâ´Â Çѹ·Õè

<%= right("0000" & rs("IDQuestion"),5)%>

  "><%=rs("QTitle")%>  ãËÁè !!   "><%=rs("QTitle")%> <%=rs("qview")%> <%=rs("Nanswer")%> <%=rs("Qname")%> <%=day(rs("Qdate")) & " " & thmonth(month(rs("Qdate"))-1) & " " & right(year(rs("Qdate"))+543,2)%>
˹éÒ·Õè : : : <% if page=1 then response.write "<<<Prev" & "  " else response.write "<<<Prev  " end if for i = 1 to cint(ttpage) response.write " " & i & "   " next if cint(page)=cint(ttpage) then response.write "Next>>>" else response.write "Next>>>" end if response.write "" %>