Default.asp
<%
set db = Server.CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Server.MapPath("database.accdb") & ";Persist Security Info=False;"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<script type="text/javascript" src="http://code.jquery.com/jquery-2.1.4.min.js"></script>
<script type="text/javascript">
var sira = 1;
$(function(){
$("#blok").scroll(function(){
if ($(this).scrollTop() === $(".blok").height() - $(this).height()){
$("#loader").show();
sira++;
$.ajax({
type: "post",
url: "veri.asp",
data: {"sira":sira},
success: function(veri){
if(veri == 'bos'){
$("#loader").html("Başka Veri Yok");
}else{
$(".blok ul").append(veri);
$("#loader").hide();
}
}
});
};
});
});
</script>
<style type="text/css">
body{margin:auto;font:12px/21px Geneva, Arial, Helvetica, sans-serif;}
ul,li{padding:0;margin:0;list-style:none;}
#blok{width:250px; height:300px; position:fixed; top:0; right:0; background-color:#F1F1F1; border:#CCCCCC 1px solid; overflow:auto;}
.blok ul li{ padding:10px; border-bottom:1px solid #ddd;}
#loader{background:#FFFFFF; border:1px solid #CCCCCC; margin:10px; padding:8px; text-align:center; display:none;}
</style>
</head>
<body>
<div id="blok">
<div class="blok">
<ul>
<%
j=1
Set WM=Server.CreateObject("ADODB.Recordset")
sor = "Select TOP 10 * from fotolar order by sira desc"
WM.Open sor,db,1,3
do while not WM.eof
%>
<li>
<%=WM("baslik")%> (<%=WM("sira")%>)
</li>
<%
WM.movenext
loop
WM.Close
%>
</ul>
<div id="loader"><img src="loader.gif" width="18" height="18" /></div>
</div>
</div>
</body>
</html>
veri.asp
<%
set db = Server.CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Server.MapPath("database.accdb") & ";Persist Security Info=False;"
Dim sira
sira = Request("sira")
If Isnumeric(sira) = False Or sira = "" Then
sira = 2
End If
Set WM=Server.CreateObject("ADODB.Recordset")
sor = "Select * from fotolar order by sira desc"
WM.PageSize = 10
WM.AbsolutePage = sira
WM.Open sor,db,1,3
Dim i
i = 0
Do While Not (WM.Eof Or WM.AbsolutePage <> sira)
i = i + 1
Response.Write("<li> " & WM("baslik") & "</li>")
WM.movenext
loop
WM.Close
If i = 0 Then Response.Write("bos")
%>
denermisin
veri.asp yi açınca 10 veriyi gösteriyor ama default.asp de aşağı çekince gösterecek veri yok diyor.