bohthia gia directory system script se asp

Πληροφορίες σχετικές με την ASP, ASP.NET και με τις εφαρμογές που είναι γραμμένες με αυτήν.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
telxina
Δημοσιεύσεις: 301
Εγγραφή: 29 Ιούλ 2002 20:36
Τοποθεσία: Moschato, Pireas
Επικοινωνία:

bohthia gia directory system script se asp

Δημοσίευση από telxina » 24 Ιούλ 2003 11:00

Agapiti mpempe, an exakoloutheis na mi vriskeis lisi, pes mou na do ti mporo na kano... :hammer:

mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 24 Ιούλ 2003 14:39

an tha mporoyses na bohthiseis tha me esozes.

Άβαταρ μέλους
Cha0s
SysAdmin
Δημοσιεύσεις: 10242
Εγγραφή: 28 Ιούλ 2001 03:00

bohthia gia directory system script se asp

Δημοσίευση από Cha0s » 24 Ιούλ 2003 20:05

Κώδικας: Επιλογή όλων

<?
$records_per_page = 5;           //records per page
$filename = "test.txt";          //records file
$split_character = "\n";         //character to split records &#40;default is \n &#40;newline&#41;&#41;

$handle = fopen &#40;$filename, "r"&#41;;
$contents = fread &#40;$handle, filesize &#40;$filename&#41;&#41;;
fclose &#40;$handle&#41;;

$lines = explode &#40;"\n", $contents&#41;;
$total_records  = count&#40;$lines&#41;;

if &#40;$total_records&#41;&#123;
    echo "<b>Page&#58;</b> | ";

    $pages = $total_records/$records_per_page;
    $o = $pageno;

         for&#40;$i=0;$i<$pages;$i++&#41;&#123;
         $y=$i+1;
         $pageno=$i*$records_per_page;
                 if &#40;$_GET&#91;pageno&#93;==$pageno&#41;&#123;
                 echo" <b>$y</b> |";
                 &#125;else&#123;
                 echo" <b><a href=\"$PHP_SELF?pageno=$pageno\">$y</a></b> |";
                 &#125;
         &#125;
$pageno=$o;
&#125;
echo "<br />";
$e=0;
$records_end = $pageno + $records_per_page;
for&#40;$q=0; $q<$total_records; $q++&#41;&#123;

    if &#40; &#40;$e >= $pageno&#41; && &#40;$e <= $records_end&#41;  &#41;&#123;
    echo "$lines&#91;$e&#93;<br />";
    &#125;
$e++;
&#125;
?>
Se php se boleyei ? :P:P:P:P
40 grammes kodikas kai katharises ;) PHP Rulez :P:P:P

(mipos anoixa flame tora ? :P xaaxaxaxaxxaax)

Άβαταρ μέλους
telxinas
Δημοσιεύσεις: 438
Εγγραφή: 15 Ιούλ 2002 03:10
Επικοινωνία:

bohthia gia directory system script se asp

Δημοσίευση από telxinas » 25 Ιούλ 2003 01:20

Pare auto opos einai, parametropiise ta recordsets analogos me to pos ta exis onomasi esi.
Stin arxi tis selidas:

<%
Dim oConn 'Allaxe auto
Dim ors 'Allaxe auto
Dim sSQL 'Allaxe auto
Dim mypage 'Edo den xriazete, einai variables
Dim numpages 'Edo den xriazete, einai variables
Dim numrecs 'Edo den xriazete, einai variables
Dim pagesize 'Edo den xriazete, einai variables

Set oConn = Server.CreateObject("ADODB.Connection")
Set ors = Server.CreateObject("ADODB.Recordset")

mypage = cint( Request("page"))
If mypage=0 then mypage=1
pagesize = cint( Request("recs"))
If pagesize = 0 then pagesize = 100 'Poses eggrafes thelis na exi kathe selida

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & Server.MapPath ("vasi.mdb;") & _
"Uid=admin;" & _
"Pwd=kodikos"

sSQL = "SELECT * FROM table_name"
ors.CursorLocation = adUseClient
ors.Open sSQL, oConn, adOpenDynamic,adLockOptimistic


ors.PageSize = pagesize
ors.CacheSize = pagesize

numpages = ors.PageCount
numrecs = ors.RecordCount

If mypage > numpages then mypage = numpages
If mypage < 1 then mypage = 1

ors.AbsolutePage= mypage
%>

Emfanisi tou paging:

<%
For x=1 To numpages
lb = (x-1) * pagesize + 1
ub = x * pagesize
if ub > numrecs then ub = numrecs
if x <> mypage then
response.write("<a href=selida.asp?page=" & x & "&recs=" & pagesize & ">" & lb & "-" & ub & "</a>")
ipagecurrent = ipagecurrent + 1
else
response.write(lb & "-" & ub)
end if
if x <> numpages then response.write(" | ") 'Mesa sta quotes, vazis ena simvolo, auto pou thelis na kani tous arithmous(links) na xexorizoun metaxi tous
next
%>

Me auto emfanizis to Προηγούμενη - Επόμενη:

<%
if mypage > 1 then
response.write("<a href=selida.asp?page=" & mypage -1 & "&recs=" & pagesize & ">Προηγούμενη</a>")%>
end if
response.write("&nbsp;&nbsp;&nbsp;")
if mypage < numpages then
response.write("<a href=selida.asp?page=" & mypage +1 & "&recs=" & pagesize & ">Επόμενη</a>")
end if
%>

Elegxe to config.asp pou exis san include.
Rixe mia matia edo:
http://www.freestuff.gr/forums/viewtopi ... c&start=15

Kane prota mia prospathia na kanis include auto. Meta dokimase ton parapano kodika.

mpempe
Δημοσιεύσεις: 156
Εγγραφή: 23 Ιουν 2003 02:48
Τοποθεσία: peloponisos

bohthia gia directory system script se asp

Δημοσίευση από mpempe » 29 Ιούλ 2003 03:23

telika malon zhthsa kati poly dyskolo :(

Άβαταρ μέλους
Cha0s
SysAdmin
Δημοσιεύσεις: 10242
Εγγραφή: 28 Ιούλ 2001 03:00

bohthia gia directory system script se asp

Δημοσίευση από Cha0s » 29 Ιούλ 2003 03:36

Oxi apla to zitises se lathos glossa giayto :P

:kaloe: :kaloe: :kaloe: :kaloe: :kaloe: :kaloe: :kaloe: :kaloe:

Απάντηση

Επιστροφή στο “ASP, ASP.NET”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες