<%
sql="select * from bbs where "
sql=sql&" topic_id=reply_id "
sql=sql&" order by date_post desc"
set rs=Conn.Execute(sql)
if not rs.eof then
do while not rs.eof
%>
<tr valign=top align=center bgcolor=f4f4f4>
<td width="85" class="style1"># <%=rs("topic_id")%></td>
<td width="380" align=left class="style1"><b><a href=bbs_open.asp?id=<%=rs("topic_id")%>><%=rs("title")%></a></b><br>
ผู้ส่ง <%=rs("poster")%>
</td>
<td width="110" class="style1"><%
response.write formatdatetime(rs("date_post"),1)&"<br>"
response.write formatdatetime(rs("date_post"),4)%></td>
<td width="32" class="style1"><%=rs("reads")%></td>
<td width="32" class="style1"><%=ctopic(rs("topic_id"))%></td>
<td width="110" class="style1"><%
if datediff("s",rs("date_reply"),rs("date_post"))=0 then
response.write "<br>"
else
response.write formatdatetime(rs("date_reply"),1)&"<br>"
response.write formatdatetime(rs("date_reply"),4)&"<br>"
if rs("post_reply")<>"" then
response.write "["&rs("post_reply")&"]"
end if
end if
%>
</td>
</tr>
<%
rs.movenext
loop
else
response.write "<tr height=60><td colspan=6 align=center bgcolor=#f4f4f4>ไม่พบข้อความในฐานข้อมูล.</td></tr>"
end if
set rs=nothing
%>
</table>
<table width="780" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
recNo=1
Do While Not RS.EOF and recNo <= pageLen
%>
<%
recNo=recNo+1
RS.MoveNext
Loop
rs.close
conn.close
%>
<%
end if
%>
<br>
<br>
จำนวน: <%=Nrecord%> รายการ<br>
ขณะนี้อยู่หน้า <%=pageNo%> ในทั้งหมด <%=totalPage%> หน้า
<%
if cint(pageno) > 1 then %>
<a href="bbs.asp?pageNo=1">หน้าแรก</a> <a href="bbs.asp?pageNo=<%=pageNo-1%>">ย้อนกลับ</a>
<% end if
if cint(pageno) < totalPage then %>
<a href="bbs.asp?pageNo=<%=pageNo+1%>">หน้าต่อไป</a> <a href="bbs.asp?pageNo=<%=totalPage%>">หน้าสุดท้าย</a>
<%
end if
%>
<br>
ไปหน้า
<%for idx = 1 to totalPage
%>
<a href="bbs.asp?pageNo=<%=idx%>">
<% if idx=cint(pageno) then%>
<b><%=idx%></b>
<%else %>
<%=idx%>
<%end if%>
</a>
<%
next%>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
function ctopic(x)
ctopic=0
sqlc="select count(reply_id) as topic from bbs where cstr(topic_id)='"&x&"' "
set rsc=Conn.Execute(sqlc)
if not rsc.eof then
ctopic=rsc("topic")-1
end if
set rsc=nothing
end function
%>
ที่ดูๆๆ รู้สึกว่าใช้ Rs กะ rs ใน ASp จะถือว่าเป้นตัวเดียวกันนะครับตัวเล็กตัวใหญ่มีค่าเท่ากัน (Insensitive) แก้เป้นชื่ออื่นดีกว่า เช่น Rs2 แต่ดู Code รวมๆ ก็ OK
=========================
มีข้อคิดเห้นนิดหน่อย
=======================
<%
sql="select * from bbs where "
sql=sql&" topic_id=reply_id "
sql=sql&" order by date_post desc"
set rs=Conn.Execute(sql)
if not rs.eof then
do while not rs.eof
%>
ส่วนใหญ่เค้าจะใช้ยังนี้นะ
<%
sql="select * from bbs where "
sql=sql&" topic_id=reply_id "
sql=sql&" order by date_post desc"
set rs=Conn.Execute(sql)
do while not rs.eof and not rs.bof
%>
Load balance : Server 00
) 
