صفحه paging

s_moosavi

Member
مي خواهم يك صفحه paging درست كنم كه شماره صفحات بصورت لينك در هر صفحه نمايش داده شودبا ASP.
1و2و3و4و
5و..
اگر كدي در اين زمينه داريد لطفا ارسال نمائيد
متشكرم
 
آخرین ویرایش:

mehran_j

Member
اول توي تاپيك مشخص نكرده بودند كه بعدا اصلاحش كردن....من طبق تاپيك اوليه گفتم
 

s_moosavi

Member
من اين صفحه را با aspمي خواهم وشماره صفحات بصورت لينك نمايش داده شود
 

m_ziba

Member
خوب اين که کاری نداره مثلاً اگه می خوای در هر صفحه 20 رکورد نشون داده بشه خارج قسمت تعداد رکورد ها به 20 می شه تعداد صفحه ها.

بعد يه قطعه کد بنويی که اگه 1 کليک شد 20 رکورد اول رو بياره، اگه 2 کليک شد، 20 رکورد دوم...
 

s_moosavi

Member
اگر كدآن را براي من ارسال كنيد خيلي خيلي ممنون ميشوم حتما هم لينك صفحات باشد
 

m_ziba

Member
ببين خوب من می تونم راهنمايی کنم.

مثلاً يه صفحه داری به نام showRecords.asp که مثلاً رکوردها رو با paging در اون نشون می خوای بدی.

برای لينک ها از queryString استفاده کن.

مثلاً لينک صفحه يک اينه:ShowRecords.asp?id=1

صفحه دو: ShowRecords.asp?id=2

حالا در صفحه showRecords.asp يک query به DataBase هم می نويسی که QueryString رو می گيره و عددش هر چی بود (مثلاً n)با کمک محاسبات رياضی n امين 20 رکورد در صفحه نشون داده می شه

اگر در مورد QueryString اطلاعات نداری حتماً مطالعه کن!

اينکه يه نفر اينجا کدش رو حاضر و آماده برات بذاره و لقمه آماده داشته باشی برات فايده نداره. اين طوری هيچ وقت چيزی ياد نمی گيری.
 

leg_big

Member
baba hame bache ha khodeshoono loost kardan
age shoma ha inkare hastid javab bedid ?! in oghdeie bazi ha chie dige ?!
migid aval jostojoo , bad soal ?!
shayad karesh kheili lange vaght inkaroo nadashte bashe ?!
moshkeli darid shoma ha hame gi ?!
--------------------------------------------------------------------------------------------
 

s_moosavi

Member
من كد paging را از سايت دانلود كردم و تعداد صفحات را هم درست نمايش ميده ولي موقعي كه صفحه دو به بعد را مي زنم پيغام خطا مي دهد يعني صفحه را پيدا نكرده مشكل در چيست
 

m_ziba

Member
خدمت دوست عزيزی که فکر می کنن ما عقده ای هستيم!

اگه راهنمايی دادن به ديگران به نظر شما عقده ای بازيه؟! ديگه من نمی دونم چی جواب شما رو بدم!

اگر فکر می کنيد ما صبح تا شب بيکار نشستم تا برای ديگران کد بنويسيم و کامپايل کنيم و خدمتشون ارائه بديم،بايد بگم که اشتباه کردين!! اين طور نيست!

من خودم برنامه نويسم و کار دارم و فقط در همين حد می تونم کمک کنم که راهنمايی کنم.

زحمت برنامه نويسی ديگران با ما نيست.


در مورد دوستی که سوال کردن هنوز مشکلشون حل نشده..
شما می گيد يک قطعه کد پيدا کردين و دانلود کردين که کار نمی کنه. خوب ما که کد شما رو نديديم که بدونيم مشکلش چيه!

شما بهتره قطعه کدتون رو بذاريد.
 
آخرین ویرایش:

s_moosavi

Member
با تشكر از شما دوستان عزيزم و به خاطر راهنمائي خوب شما من بالاخره توانستم آن را درست كنم ايراد كار در ادرس اشتباه در لينك صفحات بود
خيلي خيلي ممنونم
كارت خيلي درسته
 

m1pfard

Member
اولا سلام.
ثانيا خوشحالم كه مشكلتون حل شده.
ثالثا به جاي اين همه داد و فرياد و محاسبات و ضرب و تقسيم ميتونستيد از دستورات و امكانات Ado استفاده كنيد:
[LTR]
کد:
Dim RS,strSQL
Dim intRecordPositionPageNum	'Holds the number of the page the user is on
Dim intTotalNumNewsEntries	      'Holds the number of News Items there are in the database
Dim intTotalNumNewsPages	    'Holds the number of pages the News Items cover
Dim intLinkPageNum					'Holds the number of the other pages of news itmes to link to
Dim intRecordsPerPage 			'Hold the number of Records per each page


intRecordsPerPage  = 20

Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT  * FROM table1 ;"
RS.Open strSQL,AdoCon_Sh ,1,1
RS.PageSize = intRecordsPerPage

If NOT RS.EOF Then RS.AbsolutePage = intRecordPositionPageNum

intTotalNumNewsEntries = RS.RecordCount	
intTotalNumNewsPages = RS.PageCount


For intNumber = 1 to intRecordsPerPage
	نوشتن تعداد ركوردهاي مورد نيازدر هر صفحه
	در اين مثال 20 ركورد
Next

بعد هرجا كه خواستيد با استفاده از تابع زير شماره صفحات رو نمايش بديد.
(Sub_Write_Navigation)



Sub  Sub_Write_Navigation

	Response.Write("<Center>")
		Response.Write "<span  > Total Records: "  & _
						intTotalNumNewsEntries & _
							"Record .:. Page " & intRecordPositionPageNum & " From " & intTotalNumNewsPages & "</span><BR>" 
		
		'If there are more pages to display then add a title to the other pages
		If intRecordPositionPageNum > 1 or NOT RS.EOF Then
		Response.Write vbCrLf & "		<span >Page</span>:&nbsp;&nbsp;"
		End If
		
		'If the News Items page number is higher than page 1 then display a back link    	
		If intRecordPositionPageNum > 1 Then 
		Response.Write vbCrLf & "		 <a  href=""show.asp?PagePosition=" &  intRecordPositionPageNum - 1  & """ >&lt;&lt;&nbsp;<span >Previous</span></a>&nbsp;"   	     	
		End If     	
		
		
		'If there are more pages to display then display links to all the pages
		If intRecordPositionPageNum > 1 or NOT RS.EOF Then 
		
		'Display a link for each page in the News Items     	
		For intLinkPageNum = 1 to intTotalNumNewsPages		
		
		'If the page to be linked to is the page displayed then don't make it a hyper-link
		If intLinkPageNum = intRecordPositionPageNum Then
		Response.Write vbCrLf & "		  <span >    " & intLinkPageNum & " <span lang=""fa"" style=""font-size: 10px"">"
		Else
		
		Response.Write vbCrLf & "		     &nbsp;<a  href=""show.asp?PagePosition=" &  intLinkPageNum  & """>" & intLinkPageNum & "</a>&nbsp;"			
		End If
		Next
		End If
		
		
		'If it is Not the End of the News Items entries then display a next link for the next News Items page      	
		If NOT RS.EOF then   	
		Response.Write vbCrLf & "		&nbsp;<a href=""show.asp?PagePosition=" &  intRecordPositionPageNum + 1  & """><span >Next</span>&nbsp;&gt;&gt;</a>"	   	
		End If      	
		
		
																		
End sub
[/LTR]
 

جدیدترین ارسال ها

بالا