<% set conn=server.createobject("ADODB.Connection") conn.open"Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../private/wb.mdb") sql="select * from Question order by Qid desc" set rs =server.createobject("ADODB.Recordset") rs.open sql, conn, 3, 3 rs.pagesize=10 if request.querystring("page")="" then currentpage=1 else currentpage=CInt(Request.querystring("page")) End if with response .write "" end with %>
 
 
หน้าแรก 
ความเป็นมา 
สมาชิก-สิทธิประโยชน์ 
ข่าวสาร 
บริการของสมาคม 
เครือข่ายและการสนับสนุน 
 
 
         
 
 
<% with response .write"" end with %> <%=rs.pagecount%>
 
 
     หัวข้อ โดย   อ่าน    ตอบ      เวลา
 
<% rs.absolutepage=currentpage color=0 j=1 do while not rs.EOF and j<=rs.pagesize if color=0 then %> <% color=1 else %> <% color=0 End if %> <% rs.movenext j=j+1 loop %>
','tt','scrollbars=yes,width=500,height=500')"><%=rs("Qtopic")%>
 <%=rs("Qname")%> <%=rs("Qview")%> <%=rs("Qanswer")%> <%=rs("Qposttime")%>
 
   
คำแนะนำ : กรุณาแสดงความคิดเห็นด้วยถ้อยคำที่สุภาพและไม่กล่าวถึงผู้อื่นในทางที่เสียหาย
 

© Copyright 2003 YMCA All Right Reserved.