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">
$(function(){
$("#blok").scroll(function(){
if ($(this).scrollTop() === $(".blok").height() - $(this).height()){
$("#loader").show();
var sira = $(".blok ul li:last").attr("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 * from fotolar order by sira desc"
WM.Open sor,db,1,3
do while j<11 and not WM.eof
%>
<li>
<%=WM("baslik")%> (<%=WM("sira")%>)
</li>
<%
WM.movenext
j=j+1
loop
%>
</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;"
%>
<!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>
</head>
<body>
<%if request.Form("sira") = 1 then%>
Bitti
<%else%>
<%
j=1
Set WM=Server.CreateObject("ADODB.Recordset")
sor = "Select * from fotolar where sira < "&request.form("sira")&" order by sira desc"
WM.Open sor,db,1,3
do while j<11 and not WM.eof
%>
<li>
<%=WM("baslik")%> (<%=WM("sira")%>)
</li>
<%
WM.movenext
j=j+1
loop
%>
<%end if%>
</body>
</html>default.asp içindeki javascript kodunda data kısmını elle girdiğimde oluyor da oraya ben en son görünen verinin sirasını nasıl yazdıracağım anlayamadım.
