三、解决问题
假设公司新闻页文件名:news.asp、查询页文件名:newslit.asp。
news.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> <script language="JavaScript" type="text/javascript" src=""></script> </head> <body> <div ID="titleLiNews"> </div> <a href="javascript:showpage(1);">1</a>& nbsp;<a href="javascript:showpage(2);">2</a>& nbsp;<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") Sqlstr = "select * from news" Set rs = Server.CreateObject("ADODB.RecordSet") Rs.open sqlstr,conn,1,2 Rs.pagesize = 3 Rs.absolutepage = page_no Str = "document.getElementById('titleLiNews').innerHTML = ""<Ul>" If rs.eof then str = str & "<li>暂无新闻</li>" & "</Ul>';" i = 3 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 %>
四、后记
从"动网验证码"到"script调用asp实现过程"再到"Javascript+ASP打造无刷新新闻列表",我们可以举一反三,例如注册用户时无刷新判断用户名是否被注册、无刷新表单验证等都可以用Javascript+ASP来实现了。
经典论坛讨论: http://bbs.blueidea.com/thread-2713701-1-1.html
出处:蓝色理想
责任编辑:blue
上一页 Javascript+ASP打造无刷新新闻列表 [1] 下一页
◎进入论坛网络编程版块参加讨论
|