asp+ajax 无刷新新闻列表,点击分页不局部刷新(代码,有下载)
2009-08-16 15:55
711 查看
共有2个文件
<!--index.asp-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>公司新闻</title>
<script language="JavaScript" type="text/javascript">
function showpage(n){
document.scripts[1].src = "newslist.asp?page_no=" + n;
}
</script>
</head>
<body>
<div ID="titleLiNews">
</div>
<a href="javascript:showpage(1);">1</a> <a href="javascript:showpage(2);">2</a> <a href="javascript:showpage(3);">3</a>
<script language="JavaScript" type="text/javascript">showpage(1);</script>
</body>
</html>
----------------------------
<!--newslist.asp-->
<%
Dim conn
Set conn=server.createobject("ADODB.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db1.mdb")
conn.open
Dim page_no,sqlstr,rs,i,str
page_no = request.querystring("page_no")
if page_no="" then page_no=10
Sqlstr = "select * from news"
Set rs = Server.CreateObject("ADODB.RecordSet")
Rs.open sqlstr,conn,1,2
Rs.pagesize = 5
Rs.absolutepage = page_no
Str = "document.getElementById('titleLiNews').innerHTML = ""<Ul>"
If rs.eof then str = str & "<li>暂无新闻</li>" & "</Ul>';"
i = 5
Do while not rs.eof and i > 0
i = i-1
str = str & "<li><a href='newsview.asp?id=" & rs("id") & "'>" & rs("title") & "</a></li>"
rs.movenext
Loop
str = str & "</Ul>"";"
set rs=nothing
set conn = nothing
Response.write str
%>
------------------------
参考:http://www.blueidea.com/tech/program/2007/4436.asp
下载:http://files.cnblogs.com/dreamdo/aspajax.rar
<!--index.asp-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>公司新闻</title>
<script language="JavaScript" type="text/javascript">
function showpage(n){
document.scripts[1].src = "newslist.asp?page_no=" + n;
}
</script>
</head>
<body>
<div ID="titleLiNews">
</div>
<a href="javascript:showpage(1);">1</a> <a href="javascript:showpage(2);">2</a> <a href="javascript:showpage(3);">3</a>
<script language="JavaScript" type="text/javascript">showpage(1);</script>
</body>
</html>
----------------------------
<!--newslist.asp-->
<%
Dim conn
Set conn=server.createobject("ADODB.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db1.mdb")
conn.open
Dim page_no,sqlstr,rs,i,str
page_no = request.querystring("page_no")
if page_no="" then page_no=10
Sqlstr = "select * from news"
Set rs = Server.CreateObject("ADODB.RecordSet")
Rs.open sqlstr,conn,1,2
Rs.pagesize = 5
Rs.absolutepage = page_no
Str = "document.getElementById('titleLiNews').innerHTML = ""<Ul>"
If rs.eof then str = str & "<li>暂无新闻</li>" & "</Ul>';"
i = 5
Do while not rs.eof and i > 0
i = i-1
str = str & "<li><a href='newsview.asp?id=" & rs("id") & "'>" & rs("title") & "</a></li>"
rs.movenext
Loop
str = str & "</Ul>"";"
set rs=nothing
set conn = nothing
Response.write str
%>
------------------------
参考:http://www.blueidea.com/tech/program/2007/4436.asp
下载:http://files.cnblogs.com/dreamdo/aspajax.rar
相关文章推荐
- 黑马程序员之 ASP.NET学习笔记:jquery+ajax无刷新分页代码
- 用AJAX实现的无刷新的分页实现代码(asp.net)
- ASP.NET使用ajax实现分页局部刷新页面功能
- asp.net中利用Jquery+Ajax+Json实现无刷新分页的实例代码
- [收藏]asp.net 2.0 ajax无刷新分页代码
- asp.net中利用Jquery+Ajax+Json实现无刷新分页的实例代码
- 分页处理,使用ajax局部刷新列表
- 一步步打造漂亮的新闻列表(无刷新分页、内容预览)(2)
- 一步步打造漂亮的新闻列表(无刷新分页、内容预览)(4)
- Ajax 实现在WebForm中拖动控件并即时在服务端保存状态数据 (Asp.net 2.0)(示例代码下载)
- 简单实用的分页控件 AspNetPager.dll 下载地址、使用方法、含有代码示例
- 20150504工作日志(遮盖效果,点击div以外的地方就收起内容,ajax的局部刷新连接)
- asp.net中利用Jquery+Ajax+Json实现无刷新分页(二)
- asp.net中利用Jquery+Ajax+Json实现无刷新分页(二)
- 代码下行Jquery结合Ajax和Web服务使用三层架构实现无刷新分页
- jquery无刷新分页(附代码下载)
- Ajax 实现在WebForm中拖动控件并即时在服务端保存状态数据 (Asp.net 2.0)(示例代码下载)
- asp.net 新闻列表样式代码
- Asp.Net分页方法:JQuery插件实现Ajax无刷新分页、AspNetPager分页控件实现分页