Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 108,482

HOME > ASP > ASP Forum > ASP Row No/ID นับแถวต่อกันเวลาเลือกขึ้นหน้าใหม่ คือเวลาเราเลือกหน้าต่อไป ให้ตรงลำดับที่ มันรันต่อกันไปเลย



 

ASP Row No/ID นับแถวต่อกันเวลาเลือกขึ้นหน้าใหม่ คือเวลาเราเลือกหน้าต่อไป ให้ตรงลำดับที่ มันรันต่อกันไปเลย

 



Topic : 083184



โพสกระทู้ ( 31 )
บทความ ( 0 )



สถานะออฟไลน์




err

จากรูป ใครพอมีแนวทางหรือ code บางค่ะ คือเวลาเราเลือกหน้าต่อไป ให้ตรงลำดับที่ มันรันต่อกันไปเลย

เช่น ที่ 1- 10 อยู่หน้าที่ 1 พอเลือกหน้าที่ 2 ให้ต่อเป็นลำดับที่ 11-20 ค่ะ ซึ่งตอนนี้มันเป็น 1-10 พอเลือกหน้าที่ 2 ก็ เป็น 1-10



Tag : ASP, Ms SQL Server 2005, Ms SQL Server 2008







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-08-30 16:13:35 By : teeraporn.r View : 1122 Reply : 3
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

เขียนให้เลยครับ

Code (ASP)
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & MySQL Tutorial</title>
</head>
<body>
<%
	Dim Conn,strSQL,objRec
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
	"pwd=root;database=mydatabase;option=16384;"
	strSQL = "SELECT * FROM customer "
	Set objRec = Server.CreateObject("ADODB.Recordset")
	objRec.Open strSQL, Conn, 1,3
	
	If objRec.EOF Then
		Response.write (" Not found record.")	
	Else
	
	'**** Paging/Pagination Calculator ***'
	Dim PageLen,PageNo,TotalRecord,TotalPage,intID
	Dim PageStart,PageEnd
	PageLen = 2 
	PageNo = Request.QueryString("Page")
	if PageNo = "" Then PageNo = 1
	TotalRecord = UBound(objRec.GetRows,2)+1
	PageStart = ((PageLen*PageNo)-PageLen)
	PageEnd = PageLen
	If TotalRecord <= PageLen Then
		TotalPage =1
	ElseIf (TotalRecord Mod PageLen = 0) Then
		TotalPage =(TotalRecord/PageLen)
	Else
		TotalPage =(TotalRecord/PageLen)+1
		TotalPage = Cint(TotalPage)
	End If
	
	'*** Close Object and Open New RecordSet ***'
	objRec.Close()
	strSQL = strSQL&"ORDER BY CustomerID ASC LIMIT "&PageStart&" , "&PageEnd&""
	objRec.Open strSQL, Conn, 1,3

%>
<table width="600" border="1">
  <tr>
    <th width="91"> <div align="center">No </div></th>
    <th width="91"> <div align="center">CustomerID </div></th>
    <th width="98"> <div align="center">Name </div></th>
    <th width="198"> <div align="center">Email </div></th>
    <th width="97"> <div align="center">CountryCode </div></th>
    <th width="59"> <div align="center">Budget </div></th>
    <th width="71"> <div align="center">Used </div></th>
  </tr>
<%
	Dim i
	i = 1 
	IF Cdbl(PageNo) > 1 Then
		i = (PageLen * (PageNo-1)) + 1
	End IF
	While Not objRec.EOF
%>
	  <tr>
		<td><div align="center"><%=i%></div></td>
		<td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td>
		<td><%=objRec.Fields("Name").Value%></td>
		<td><%=objRec.Fields("Email").Value%></td>
		<td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td>
		<td align="right"><%=objRec.Fields("Budget").Value%></td>
		<td align="right"><%=objRec.Fields("Used").Value%></td>
	  </tr>
<%
	i = i + 1
	objRec.MoveNext
	Wend
%>
</table>
	Total : <%=TotalRecord%>  Page <%=PageNo%> All Page <%=TotalPage%>
	<% IF Cint(PageNo) > 1 then %>
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=1"><< First</a> 
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo-1%>">< Back</a>
	<% End IF%>
	<% IF Cint(PageNo) < TotalPage Then %>
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo+1%>">Next ></a> 
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=TotalPage%>">Last >></a>
	<% End IF%>
	<br>
	Go to
	<% For intID = 1 To TotalPage%>
	<% if intID = Cint(PageNo) Then%>
	<b><%=intID%></b>
	<%Else%>
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=intID%>"><%=intID%></a>
	<%End IF%>
	<%Next%>
<%
End IF
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
</body>
</html>







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-08-31 06:42:06 By : mr.win
 


 

No. 2

Guest


คุณวินค่ะ

Code
Microsoft OLE DB Provider for SQL Server error '80040e14'

Incorrect syntax near 'LIMIT'.

/test/test_page.asp, line 47



มันแจ้ง err ดังข้างบน ส่วนบรรทัดที่ 47 คือ

Code (ASP)
	objRec.Close()
	strSQL = strSQL&" order by  comsub_id  asc LIMIT  "&PageStart&" , "&PageEnd&""
	objRec.Open strSQL, Conn, 1,3


ไม่แน่ใจว่าเกิดจากอะไรค่ะ LIMIT
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-09-04 09:53:47 By : Teeraporn
 

 

No. 3



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

อ้าวผิดครับ อันใหม่ ASP + SQL Server ครับ

Code (ASP)
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & SQL Server Tutorial</title>
</head>
<body>
<%
	Dim Conn,strSQL,objRec
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "Driver={SQL Server};Server=localhost;Database=mydatabase;UID=sa;PWD=;" 
	strSQL = "SELECT * FROM customer "
	Set objRec = Server.CreateObject("ADODB.Recordset")
	objRec.Open strSQL, Conn, 1,3

	If objRec.EOF Then
		Response.write (" Not found record.")	
	Else

	Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
	PageLen = 2 
	PageNo = Request.QueryString("Page")
	if PageNo = "" Then PageNo = 1
	TotalRecord = objRec.RecordCount
	objRec.PageSize = PageLen
	TotalPage = objRec.PageCount
	objRec.AbsolutePage = PageNo
%>
<table width="600" border="1">
  <tr>
  <th width="91"> <div align="center">No </div></th>
    <th width="91"> <div align="center">CustomerID </div></th>
    <th width="98"> <div align="center">Name </div></th>
    <th width="198"> <div align="center">Email </div></th>
    <th width="97"> <div align="center">CountryCode </div></th>
    <th width="59"> <div align="center">Budget </div></th>
    <th width="71"> <div align="center">Used </div></th>
  </tr>
<%
	Dim i
	i = 1 
	IF Cdbl(PageNo) > 1 Then
		i = (PageLen * (PageNo-1)) + 1
	End IF
	No=1
	Do While Not objRec.EOF and No <= PageLen
%>
	  <tr>
		<td><div align="center"><%=i%></div></td>
		<td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td>
		<td><%=objRec.Fields("Name").Value%></td>
		<td><%=objRec.Fields("Email").Value%></td>
		<td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td>
		<td align="right"><%=objRec.Fields("Budget").Value%></td>
		<td align="right"><%=objRec.Fields("Used").Value%></td>
	  </tr>
<%
	No = No + 1
	objRec.MoveNext
	Loop
%>
</table>
	Total : <%=TotalRecord%>  Page <%=PageNo%> All Page <%=TotalPage%>
	<% IF Cint(PageNo) > 1 then %>
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=1"><< First</a> 
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo-1%>">< Back</a>
	<% End IF%>
	<% IF Cint(PageNo) < TotalPage Then %>
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo+1%>">Next ></a> 
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=TotalPage%>">Last >></a>
	<% End IF%>
	<br>
	Go to
	<% For intID = 1 To TotalPage%>
	<% if intID = Cint(PageNo) Then%>
	<b><%=intID%></b>
	<%Else%>
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=intID%>"><%=intID%></a>
	<%End IF%>
	<%Next%>
<%
End IF
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
</body>
</html>

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-09-04 20:45:37 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ASP Row No/ID นับแถวต่อกันเวลาเลือกขึ้นหน้าใหม่ คือเวลาเราเลือกหน้าต่อไป ให้ตรงลำดับที่ มันรันต่อกันไปเลย
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , รับทำบัญชี , โรงงานผลิตครีม , สำนักงานบัญชี , รับจดทะเบียนบริษัท , Pangpond , รถมือสอง

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2020 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่