set rs=server.CreateObject("adodb.recordset")
nowpage=trim(request("nowpage"))
keyword=trim(request("keyword"))
strlink="keyword="&keyword&"pointname="&pointname&"&pointId="&pointId&"&pointAdd="&pointAdd
'=======ส่วนสำคัญของการแบ่งบล็อกหน้า===============================
pSize=30 'จำนวนเรคอร์ดต่อ 1 หน้า
BlockSize=20 'ขนาดของบล็อกที่แสดงลิงค์เลขหน้าว่าจะให้แสดงกี่หมายเลข
if nowPage="" then
nowPage=1
else
nowpage=((nowpage\blocksize)*blocksize)+(nowpage mod blocksize)
end if
inta=nowpage\blocksize
imod=nowpage mod blocksize
if imod=0 then inta=inta-1
If keyword="" Then sql="SELECT [useradmin].*,[checkpoint].* FROM useradmin RIGHT JOIN checkpoint ON useradmin.username = checkpoint.pointname ORDER BY timestamp] DESC,useradmin.userId " 'ดึงข้อมูล admin
If keyword<>"" Then sql="SELECT [useradmin].*,[checkpoint].* FROM useradmin INNER JOIN checkpoint ON checkpoint.pointname = useradmin.username where username= '"&keyword&"'" 'ดึงข้อมูล admin
'If keyword="" Then sql="SELECT * FROM useradmin" 'ดึงข้อมูล admin
'If keyword<>"" Then sql="SELECT * FROM useradmin where username= '"&keyword&"'" 'ดึงข้อมูล admin
'response.Write(sql)
'response.End()
rs.open(sql),conn,1,3 'สำหรับรายการ
rs.pagesize=psize
totalrec=rs.recordcount
totalpage=rs.pagecount
ขึ้น Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near the keyword 'checkpoint'.
/Online/admin/showadmin.asp, line 59
If keyword="" Then sql="SELECT * FROM useradmin LEFT JOIN [checkpoint] ON useradmin.username = [checkpoint].pointname ORDER BY useradmin.username " 'ดึงข้อมูล admin
If keyword<>"" Then sql="SELECT * FROM useradmin LEFT JOIN [checkpoint] ON useradmin.username = [checkpoint].pointname where username= '"&keyword&"'" 'ดึงข้อมูล admi