asp دا سانداننى ئوقوپ چىقىرىش ئۇسۇلى
1-باسقۇچ ئاۋال index.asp نىڭ ئىچىگە تۇۋەندىكى كودلارنى يىزىڭ
كود كۆچۈرۈش- سانداننى ئوقوپ چىقىرىش
-
- <%
- const MaxPerPage=25
- dim sql
- dim rs
- dim totalPut
- dim CurrentPage
- dim TotalPages
- dim i,j
- %>
سانداننى ئۇقۇتۇش تىخنىكىسى - <%
- conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
- sql = "SELECT * FROM mytable"
- set rs=server.createobject("adodb.recordset")
- rs.open SQL,conn,1,1
- rs.MoveFirst
- rs.pagesize=MaxPerPage
- howmanyfields=rs.Fields.Count-1
- If trim(Request("Page"))<>"" then
- CurrentPage= CLng(request("Page"))
- If CurrentPage> rs.PageCount then
- CurrentPage = rs.PageCount
- End If
- Else
- CurrentPage= 1
- End If
- if rs.eof then
- response.write "
ERROR! " - else
- totalPut=rs.recordcount
- if CurrentPage<>1 then
- if (currentPage-1)*MaxPerPage
- rs.move(currentPage-1)*MaxPerPage
- dim bookmark
- bookmark=rs.bookmark
- end if
- end if
- dim n,k
- if (totalPut mod MaxPerPage)=0 then
- n= totalPut \ MaxPerPage
- else
- n= totalPut \ MaxPerPage + 1
- end if%>
-
PAGE <%=currentpage%> OF <%=n%> جەمئىي<%=rs.recordcount%>خاتىرە بار - <% k=currentPage
- if k<>1 then
- response.write "["+"باش بەت] "
- response.write "["+"ئالدىنقى بەت] "
- else
- Response.Write "[باش بەت] [ئالدىنقى بەت]"
- end if
- if k<>n then
- response.write "["+"كىيىنكى بەت] "
- response.write "["+"ئاخىرقى بەت] "
- else
- Response.Write "[كىيىنكى بەت] [ئاخىرقى بەت]"
- end if
- %>
-
- <%
- for i= 0 to howmanyfields%>
-
<%=rs(i).name%> | - <%
- next
- i=0
- do while not rs.eof and i
-
- <%for j=0 to howmanyfields%>
-
- <%=rs(j)%>
-
| - <%next%>
-
- <%
- i=i+1
- rs.movenext
- loop
- %>
- <%
- end if
- rs.close
- set rs=nothing
- %>
|
2-باسقۇچ ساندان لاھىلەش توۋەندىكى رەسىمدىكىدەك قىلسىڭىز بولىدۇ
ساندان لاھىلەش ئاخرىلاشتى ئەمدى ساندان ئىچىگە خەت يىزىپindex.asp نى ئىجىرا قىلىسىڭىز سانداندىكى مەزمۇننى ئوقوپ چىقىرىدۇ
ئەگەر چۇشەنمىگەن ياكى باشقا سۇئالىرىڭىز بولسا تىما ئاستىغا قالدۇرۇڭ
1 ياكى 2 كۇندە بىر دەرسىلىك يولىنىدۇ ۋاقتىدا خەۋەردار بولاي دىسىڭىز ئايپاك مۇنبىرىگە كىرىڭ
مەنبە
http://aypak.cn/bbs/