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 connSet conn=server.createobject("ADODB.connection")conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db1.mdb")conn.openDim page_no,sqlstr,rs,i,strpage_no = request.querystring("page_no")Sqlstr = "select * from news"Set rs = Server.CreateObject("ADODB.RecordSet")Rs.open sqlstr,conn,1,2Rs.pagesize = 3Rs.absolutepage = page_noStr = "document.getElementById('titleLiNews').innerHTML = ""<Ul>"If rs.eof then str = str & "<li>暂无新闻</li>" & "</Ul>';"i = 3Do while not rs.eof and i > 0i = i-1str = str & "<li><a href='newsview.asp?id=" & rs("id") & "'>" & rs("title") & "</a></li>"rs.movenextLoopstr = str & "</Ul>"";"set rs=nothingset conn = nothingResponse.write str%>
