Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

süreli yönlendirme

Konu, 'ASP' kısmında byjoker tarafından paylaşıldı.

?

yönlendirme

  1. başarılı

    oy sayısı 1
    100.0%
  2. başarısız

    oy sayısı 0
    0.0%
Birden fazla oy kullanılabilir.
  1. byjoker

    byjoker Üye

    Kayıt:
    18 Nisan 2013
    Mesajlar:
    168
    Beğenilen Mesajlar:
    0
    Merhabalar şu şekilde bir şey yapmak istiyorum mümkünmüdür.

    www.siteadi.com/index.asp?no=1 bu şekilde linki çalıştırdığımda süreli olarak otomatik
    index.asp?no=2 index.asp?no=3 ... 3000 tane kadar kayıt var devam ettirmek istiyorum javascript olabilir veritabanın dan çektirme yöntemi de olabilir yardımlarınızı bekliyorum teşekkürler
     
  2. gk

    gk Üye

    Kayıt:
    24 Aralık 2009
    Mesajlar:
    146
    Beğenilen Mesajlar:
    21
    Meslek:
    Yazılım Geliştirici
    Şehir:
    İstanbul
    index.asp
    Kod:
    <%
    response.Buffer=true
    gecerlisayfa = cint(request.querystring("no"))
    
    'buraya yapma istediğiniz diğer işlemleri kodlayın
    
    if gecerlisayfa < 3000 then
        gecerlisayfa = gecerlisayfa + 1
        response.redirect "index.asp?no=" & gecerlisayfa
    end if
    %>
    
     
  3. byjoker

    byjoker Üye

    Kayıt:
    18 Nisan 2013
    Mesajlar:
    168
    Beğenilen Mesajlar:
    0
    merhabalar öncelikle teşekkür ederim yardımınızdan dolayı kodu eklediğimde
    sizi çok fazla kez yönlendirdi diye tarayıcı uyarı veriyor bu koda örneğin 5 saniye sonra yönlendir nasıl diye biliriz.
     
  4. gk

    gk Üye

    Kayıt:
    24 Aralık 2009
    Mesajlar:
    146
    Beğenilen Mesajlar:
    21
    Meslek:
    Yazılım Geliştirici
    Şehir:
    İstanbul
    Kod:
    <%
    response.Buffer=true
    Sub Pause(intSeconds)
        startTime = Time()
        Do Until DateDiff(“s”, startTime, Time(), 0, 0) > intSeconds
        Loop
    End Sub
    
    gecerlisayfa = cint(request.querystring("no"))
    
    'buraya yapma istediğiniz diğer işlemleri kodlayın
    
    if gecerlisayfa < 3000 then
        Pause(5)
        gecerlisayfa = gecerlisayfa + 1
        response.redirect "index.asp?no=" & gecerlisayfa
    end if
    %>
    
     
  5. byjoker

    byjoker Üye

    Kayıt:
    18 Nisan 2013
    Mesajlar:
    168
    Beğenilen Mesajlar:
    0
    üstad naaptıysam olmadı sayfa sürekli dönüyor elimdeki sayfanın kodları paylaşayım

    Kod:
    <%
    Response.CodePage = 65001
    Response.CharSet = "UTF-8"
    %>
    <!DOCTYPE html>
    <html>
    <head>
    <title>pdf</title>
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
      <meta name="robots" content="noindex, nofollow">
      <meta name="googlebot" content="noindex, nofollow">
      <meta name="viewport" content="width=device-width, initial-scale=1">
       <script type="text/javascript" src="https://code.jquery.com/jquery-compat-git.js"></script>
    
    
        <link rel="stylesheet" type="text/css" src="css/result-light.css">
    
          <script type="text/javascript" src="https://netdna.bootstrapcdn.com/bootstrap/3.1.1/js/bootstrap.min.js"></script>
    
          <link rel="stylesheet" type="text/css" href="https://netdna.bootstrapcdn.com/bootstrap/3.1.1/css/bootstrap.min.css">
    
          <script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/jspdf/1.2.61/jspdf.min.js"></script>
      
    
    
      <style type="text/css">
        .table-bordered {
      border:1px solid black
    }
    td{
      border:1px solid black
    
    
    }
      </style>
    
    
    
    </head>
    
    
    
    
    
        <%
    Dim fatura_no
    fatura_no = Request.QueryString("fatura_no" )
    Set rs = Server.CreateObject("ADODB.Recordset" )
    sql = "Select * From fatura where fatura_no = " &fatura_no&""
    rs.Open sql,db,1,3
      %>
    <%
    
    If rs.Eof Then
    Response.Write "HAZIR DEGiL."
    Else
    %>
    
    
    
    
    <script type="text/javascript">//<![CDATA[
    
    function demoFromHTML() {
        var pdf = new jsPDF('p', 'pt', 'a4');  
      
        source = $('#customers')[0];
      
    
        specialElementHandlers = {
            // element with id of "bypass" - jQuery style selector
            '#bypassme': function (element, renderer) {
                // true = "handled elsewhere, bypass text extraction"
                return true
            }
        };
        margins = {
            top: 40,
            bottom: 60,
            left: 20,
            width: '100%'
        };
        // all coords and widths are in jsPDF instance's declared units
        // 'inches' in this case
        pdf.fromHTML(
      
      
        source, // HTML string or DOM elem ref.
        margins.left, // x coord
        margins.top, { // y coord
            'width': margins.width, // max width of content on PDF
            'elementHandlers': specialElementHandlers
        },
    
        function (dispose) {
            // dispose: object with X, Y of the last line add to the PDF
            //          this allow the insertion of new lines after html
          
          
            pdf.save('<%=rs("fatura_no")%>.pdf');
        }, margins);
    }
    //]]>
    
    </script>
    
    
    
    
    
    
    <body onLoad="javascript:demoFromHTML();">
      <div id="customers">
        <div class="table-responsive">
        <table>
          
            <tr align="center">
            <td>Müsteri Adi</td>
            <td>Fatura No</td>
            <td>Fatura Tarihi</td>
          
          </tr>
            <tr>
    <!--                     < %
    Set musteri =db.Execute("SELECT * FROM fatura where fatura_no = " &fatura_no&"")
    %>-->
            <td style="font-size:9px;"><%=rs("musteri_adi")%></td>
            <td><%=rs("fatura_no")%></td>
            <td><%=rs("teslim_tarih")%></td>
          
          </tr>
          
          </table>
          <br>
      
          <table id="tbl" class="table table-hover">
          
          
            <thead>
                    <tr>
                        <th style="background-color: #928989; color; white;">Model Adi</th>
                        <th style="background-color: #928989; color; white;">Adet </th>
                        <th style="background-color: #928989; color; white;">Fiyat</th>
                        <th style="background-color: #928989; color; white;">Tutar</th>
                        <th style="background-color: #928989; color; white;">Firma</th>
                    </tr>
                </thead>
                <tbody>
                    <%
    do While Not rs.Eof
    
                  
                    %>
                  
                      <tr>
                        <td><%=rs("model_adi")%></td>
                                <td><%=rs("adet")%></td>
                                <td><%=FormatNumber(rs("fiyat"))%></td>
                                <td><%=rs("tutar")%></td>
                                <td><%=rs("firma")%></td>
                      </tr>
                    
                    
    <%
    rs.MoveNext
    Loop
    
    %>
      
                </tbody>
    
    
                        <tfoot>
                      
                  
            <tr>
            <th style="color; white;">Toplam : </th>
          
                                       <%
    end if
    rs.close : set rs = nothing
    %>
          
                 <%
    Set toplamadet =db.Execute("SELECT sum(adet) FROM fatura where fatura_no = " &fatura_no&"")
    %>
      
            <th style="color; white;"><%response.write ""&toplamadet(0)&"" %></th>
            <th style="color; white;"></th>
    
    <%
    Set topla =db.Execute("SELECT sum(tutar) FROM fatura where fatura_no = " &fatura_no&"")
    %>
            <th style="color; white;"><%response.write ""&topla(0)&""%></th>
          
            <th style="color; white;"></th>
                      </tr>
                      </tfoot>
                    
                    
                    
    
            </table>
          
        
        </div>
    </div>
    
    
      <script>
      // tell the embed parent frame the height of the content
      if (window.parent && window.parent.parent){
        window.parent.parent.postMessage(["resultsFrame", {
          height: document.body.getBoundingClientRect().height,
          slug: "ugD5L"
        }], "*")
      }
    </script>  
    
    </body>
    
    </html>
     
  6. byjoker

    byjoker Üye

    Kayıt:
    18 Nisan 2013
    Mesajlar:
    168
    Beğenilen Mesajlar:
    0
    kodlara benim kodları eklemeden bile çalıştıramadım :( aslında kod çalışıyor fakat sıkıntı ekrana yazdıklarımız gelmiyor tarayıcı uzun süre dönüyor görüntülemeden index.asp?no=20 olduğunu görüyorum ama dediğim gibi sayfada hiç bir yazı gelmiyor yardımlarınızı bekliyorum teşekkürler.


    Kod:
    <%
    response.Buffer=true
    Sub Pause(intSeconds)
        startTime = Time()
        Do Until DateDiff(“s”, startTime, Time(), 0, 0) > intSeconds
        Loop
    End Sub
    
    gecerlisayfa = cint(request.querystring("no"))
    
    'buraya yapma istediğiniz diğer işlemleri kodlayın
    
    Response.Write "Buradaki yazıyı bile göremedim "
    
    
    if gecerlisayfa < 3000 then
        Pause(5)
        gecerlisayfa = gecerlisayfa + 1
        response.redirect "index.asp?no=" & gecerlisayfa
    end if
    %>
     
  7. gk

    gk Üye

    Kayıt:
    24 Aralık 2009
    Mesajlar:
    146
    Beğenilen Mesajlar:
    21
    Meslek:
    Yazılım Geliştirici
    Şehir:
    İstanbul
    Başka bir yöntem deneyelim o zaman :

    Kod:
    <html>
    <head>
    <%
    gecerlisayfa = cint(request.querystring("no"))
    
    if gecerlisayfa < 3000 then
        gecerlisayfa = gecerlisayfa + 1
    %>
        <meta http-equiv="refresh" content="1;url=http://localhost/index.asp?no=<%=gecerlisayfa%>"/>
    <%
    end if
    %>
    </head>
    
    <body>
    <%
        'diğer işlemler, örnek olarak geçerli sayfa değerini ekrana yazdıralım
        response.write gecerlisayfa
    %>
    </body>
    </html>
    
     
    Son düzenleme: 26 Şubat 2018
    byjoker bunu beğendi.
  8. byjoker

    byjoker Üye

    Kayıt:
    18 Nisan 2013
    Mesajlar:
    168
    Beğenilen Mesajlar:
    0
    olay bu hocam Allah razı olsun çok sağolasın