page=request("page")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout = 15
Conn.Open Application("conn")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql=" SELECT * FROM MAS_WEBBOARD ORDER BY WEBBOARD_ID DESC "
Rs.open sql,Conn,1,3
%>
<html>
<head>
<script language="JavaScript" src="../include/elearn.js"></script>
<script language="JavaScript" src="../include/elearn_level.js"></script>
<link href="../include/elearn.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<meta http-equiv="Pragma" content="no-cache">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../pic_home/bg.gif">
<table border=0 cellpadding=0 cellspacing=0 width="780">
<tr>
<td width="780"><script language="JavaScript">pntHead_in(5);</script></td>
</tr>
</table>
<table width="780" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="144" align="left" valign="top"><script language="JavaScript">pntLevel_in2lev();</script></td>
<td width="636" align="left" valign="top">
<table width="100%" border="0" cellspacing="00" cellpadding="0">
<tr>
<td><img src="images/masthead_webboard.gif" width="636" height="60" alt="Webboard"></td>
</tr>
</table>
<!--#include file="../include/userlogged.asp"-->
<table width="100%" border="0" cellpadding="0" cellspacing="10">
<tr>
<td>
<p><font face="Arial" size="2">Make new friends and practice your
English. You can join our community to meet people, exchange your
ideas and update yourselves. The language required in our community
is English so that you can practice your English in the way of communication
for better improvement. </font></p>
<%
if not Rs.eof then
if page="" then page=1
if application("pagesize")="" then
application("pagesize")=20
end if
rs.pagesize=application("pagesize")
rs.absolutepage=page
intRowCount =0
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><font face="Arial" size="2"><b>Display all <%=rs.Recordcount%>
topic(s)</b></font></td>
<td width="50%" align="right"><a href="web_post.asp"><img src="images/postnew.gif" alt=" Post New Topics " width="119" height="21" vspace="10" border="0"></a></td>
</tr>
</table>
if not(rs.eof and rs.bof) then
' ** áÊ´§Ë¹éÒ·Ñé§ËÁ´·Õèà¡çºàä¤ÍÃì´äÇé â´ÂáÊ´§ÍÍ¡·Ò§ Anchor Link **
pg=cint(rs.pagecount)
if cint(page)>1 then
Response.write("<A class=normal HREF=index.asp?Page="&cint(page)-1&"&txbSearch="&server.urlencode(txbSearch)&"&dCREFROM="&server.urlencode(dCREFROM)&"&dCRETO="&server.urlencode(dCRETO)&">< Previous</a> ")
end if
For i = 1 To rs.PageCount
if i=cint(page) then
Response.Write "<b><font >" & i &"</font></b> |"&vbcrlf
else
Response.Write "<A class=normal HREF=index.asp?Page=" & i &"&txbSearch="&server.urlencode(txbSearch)&"&dCREFROM="&server.urlencode(dCREFROM)&"&dCRETO="&server.urlencode(dCRETO)&">" & i & " </A>|"&vbcrlf
end if
Next
npage=page+1
if cint(page)<>pg then
Response.write("<A class=normal HREF=index.asp?Page="&npage&"&txbSearch="&server.urlencode(txbSearch)&"&dCREFROM="&server.urlencode(dCREFROM)&"&dCRETO="&server.urlencode(dCRETO)&"> Next ></a>")
end if
<%
function retDate(ddate)
if ddate="" or isnull(ddate) then
retDate=""
else
retDate=day(ddate)&"/"&month(ddate)&"/"&year(ddate)
end if
end function
function retNumber(nnumber)
if nnumber="" or isnull(nnumber) then
retNumber="00000"
else
retNumber= right(("00000"&nnumber),5)
end if
end function
function retReply(id)
if id="" or isnull(id) then
retReply="0"
else
sql=" SELECT COUNT(*) AS NCOUNT FROM TRN_WEBBOARD_DETAIL WHERE WEBBOARD_ID="&id&" "
Set Rscount=Conn.execute(sql)
nCount=0
if not Rscount.eof then
nCount=Rscount("NCOUNT")
end if
Set Rscount=nothing
retReply=nCount
end if
end function
Load balance : Server 03
