سعيد آقاي گل و البته ناشناس به بنده لطف كردند و چون توي مجيد آنلاين آي. دي. نداشتند،
جواب سوال من رو به آدرس ايميلم فرستاده بودند.
من هم چون ديدم تعداد بازديد كننده از اين سوال در عرض دو روز زياد شده بهتر ديدم هم
به خاطر قدرداني از آقا سعيد و هم براي آشنايي بيشتر دوستان، اين كدها رو اينجا بذارم.
دست همه دوستاني كه به همديگه كمك ميكنن و از دادن اطلاعات دريغ نميكنن رو بايد بوسيد.
[align=left:fd3e5339d5]
کد:
mpage=cint(request.form("PageNo"))
if mpage=0 then
mpage=1
end if
.
.
.
.
SQLstr = .....
.
.
.
rs.CursorType=adOpenStatic
rs.PageSize=5
rs.Open Sqlstr,Conn
rs.AbsolutePage=mpage
rsNo=0
do while rs.eof=false and rsNo<RS.PageSize
%>
.
.
.
.
.
<%
rs.movenext
rsNo=rsNo+1
loop
%>
.
.
.
<p>Number page to view
<%
for i=1 to rs.PageCount
%> <a href="test.asp?pageno=<%=i%>(see
*)"><b><%=i%></b></a> <%
next
%>
[/align:fd3e5339d5]
اگه آقا مجيد هم لطف كنن و اين فونت نمايش كدها رو تغيير بدن، خيلي خوب ميشه.