Tekil Mesaj gösterimi - ASP Ajax post işlemi

Konu ASP Ajax post işlemi

07-07-2015, 23:41:33

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