<iframe name="google_ads_frame" marginwidth="0" marginheight="0" src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-4490194096475053&dt=1225360882406&lmt=1219829520&prev_slotnames=1891601125&output=html&slotname=3685991503&correlator=1225360882343&url=http%3A%2F%2Fwww.corange.cn%2Farchives%2F2008%2F08%2F1433.html&ea=0&ref=http%3A%2F%2Fwww.corange.cn%2Fhtml%2Fcorange__71.html&frm=0&ga_vid=794657364.1225360561&ga_sid=1225360561&ga_hid=113458765&ga_fc=true&flash=9.0.124.0&u_h=768&u_w=1024&u_ah=715&u_aw=1024&u_cd=32&u_tz=480&u_his=1&u_java=true" frameborder="0" width="300" scrolling="no" height="250" allowtransparency></iframe>
list.asp
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>default</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<style>
*
{
margin:0;
padding:0;
}
#contain
{
width:770px;
margin:10pxauto;
}
#header
{
width:768px;
border:1pxsolid#eeaaee;
margin-bottom:10px;
height:100px;
}
#main
{
width:770px;
margin-bottom:10px;
}
#main_L
{
width:148px;
border:1pxsolid#eeaaee;
float:left;
margin-right:10px;
height:400px;
}
#main_M
{
width:348px;
border:1pxsolid#eeaaee;
float:left;
margin-right:10px;
height:400px;
}
#main_R
{
width:248px;
border:1pxsolid#eeaaee;
float:left;
height:300px;
}
#footer
{
width:768px;
border:1pxsolid#eeaaee;
height:40px;
}
</style>
</head>
<bodyonLoad="FF()">
<divid="contain">
<divid="header">rr</div>
<divid="main">
<divid="main_L">rr</div>
<divid="main_M"></div>
<divid="main_R">rr</div>
<brstyle="clear:both">
</div>
<divid="footer">rr</div>
</div>
<scripttype="text/javascript">
functionFF(y){
if(!y){
y=1;
}
varxmlhttp;
if(window.ActiveXObject){
xmlhttp=newActiveXObject("Microsoft.XMLHTTP");
}elseif(window.XMLHttpRequest){
xmlhttp=newXMLHttpRequest();
}
if(xmlhttp){
xmlhttp.onreadystatechange=function(){
if(xmlhttp.readyState==4){
if(xmlhttp.status==200){
varyy=unescape(xmlhttp.responseText);
show(yy);
}else{
alert("error");
}
}
}
xmlhttp.open("get","page.asp?page="+y);
xmlhttp.send(null);
}
}
functionshow(text){
document.getElementById("main_M").innerHTML=text;
}
</script>
</body>
</html>
page.asp
<%
dimconn,rs
dimconnstr,sqlcmd
setconn=server.CreateObject("ADODB.connection")
connstr="Driver={MicrosoftAccessDriver(*.mdb)};dbq="&server.MapPath("mydata.mdb")
conn.openconnstr
sqlcmd="selectid,name,telfromcontact"
setrs=server.CreateObject("ADODB.recordset")
rs.opensqlcmd,conn,1,1
rs.pagesize=6
page=clng(request.QueryString("page"))
ifpage<1thenpage=1
ifpage>rs.pagecountthenpage=rs.pagecount
rs.absolutepage=page
response.Write("<tablewidth='300px'border='1'>")
fori=1tors.pagesize
response.Write("<tr>")
response.Write("<td>"&rs(0)&"</td>")
response.Write("<td>"&escape(rs(1))&"</td>")
response.Write("<td>"&rs(2)&"</td>")
response.Write("</tr>")
rs.movenext
ifrs.EOFthenexitfor
next
response.Write("</table>")
ifpage=1then
response.write(escape("首页上一页"))
response.write("<ahref='javascript:FF("&(page+1)&")'>"&escape("下一页")&"</a>")
response.write("<ahref='javascript:FF("&rs.pagecount&")'>"&escape("末页")&"</a>")
elseifpage=rs.pagecountthen
response.write("<ahref='javascript:FF(1)'>"&escape("首页")&"</a>")
response.write("<ahref='javascript:FF("&(page-1)&")'>"&escape("上一页")&"</a>")
response.write(escape("下一页末页"))
else
response.write("<ahref='javascript:FF(1)'>"&escape("首页")&"</a>")
response.write("<ahref='javascript:FF("&(page-1)&")'>"&escape("上一页")&"</a>")
response.write("<ahref='javascript:FF("&(page+1)&")'>"&escape("下一页")&"</a>")
response.write("<ahref='javascript:FF("&rs.pagecount&")'>"&escape("末页")&"</a>")
endif
%>
注:数据库为mydata.mdb表名:contact字段:id,name,tel
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>default</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<style>
*
{
margin:0;
padding:0;
}
#contain
{
width:770px;
margin:10pxauto;
}
#header
{
width:768px;
border:1pxsolid#eeaaee;
margin-bottom:10px;
height:100px;
}
#main
{
width:770px;
margin-bottom:10px;
}
#main_L
{
width:148px;
border:1pxsolid#eeaaee;
float:left;
margin-right:10px;
height:400px;
}
#main_M
{
width:348px;
border:1pxsolid#eeaaee;
float:left;
margin-right:10px;
height:400px;
}
#main_R
{
width:248px;
border:1pxsolid#eeaaee;
float:left;
height:300px;
}
#footer
{
width:768px;
border:1pxsolid#eeaaee;
height:40px;
}
</style>
</head>
<bodyonLoad="FF()">
<divid="contain">
<divid="header">rr</div>
<divid="main">
<divid="main_L">rr</div>
<divid="main_M"></div>
<divid="main_R">rr</div>
<brstyle="clear:both">
</div>
<divid="footer">rr</div>
</div>
<scripttype="text/javascript">
functionFF(y){
if(!y){
y=1;
}
varxmlhttp;
if(window.ActiveXObject){
xmlhttp=newActiveXObject("Microsoft.XMLHTTP");
}elseif(window.XMLHttpRequest){
xmlhttp=newXMLHttpRequest();
}
if(xmlhttp){
xmlhttp.onreadystatechange=function(){
if(xmlhttp.readyState==4){
if(xmlhttp.status==200){
varyy=unescape(xmlhttp.responseText);
show(yy);
}else{
alert("error");
}
}
}
xmlhttp.open("get","page.asp?page="+y);
xmlhttp.send(null);
}
}
functionshow(text){
document.getElementById("main_M").innerHTML=text;
}
</script>
</body>
</html>
page.asp
<%
dimconn,rs
dimconnstr,sqlcmd
setconn=server.CreateObject("ADODB.connection")
connstr="Driver={MicrosoftAccessDriver(*.mdb)};dbq="&server.MapPath("mydata.mdb")
conn.openconnstr
sqlcmd="selectid,name,telfromcontact"
setrs=server.CreateObject("ADODB.recordset")
rs.opensqlcmd,conn,1,1
rs.pagesize=6
page=clng(request.QueryString("page"))
ifpage<1thenpage=1
ifpage>rs.pagecountthenpage=rs.pagecount
rs.absolutepage=page
response.Write("<tablewidth='300px'border='1'>")
fori=1tors.pagesize
response.Write("<tr>")
response.Write("<td>"&rs(0)&"</td>")
response.Write("<td>"&escape(rs(1))&"</td>")
response.Write("<td>"&rs(2)&"</td>")
response.Write("</tr>")
rs.movenext
ifrs.EOFthenexitfor
next
response.Write("</table>")
ifpage=1then
response.write(escape("首页上一页"))
response.write("<ahref='javascript:FF("&(page+1)&")'>"&escape("下一页")&"</a>")
response.write("<ahref='javascript:FF("&rs.pagecount&")'>"&escape("末页")&"</a>")
elseifpage=rs.pagecountthen
response.write("<ahref='javascript:FF(1)'>"&escape("首页")&"</a>")
response.write("<ahref='javascript:FF("&(page-1)&")'>"&escape("上一页")&"</a>")
response.write(escape("下一页末页"))
else
response.write("<ahref='javascript:FF(1)'>"&escape("首页")&"</a>")
response.write("<ahref='javascript:FF("&(page-1)&")'>"&escape("上一页")&"</a>")
response.write("<ahref='javascript:FF("&(page+1)&")'>"&escape("下一页")&"</a>")
response.write("<ahref='javascript:FF("&rs.pagecount&")'>"&escape("末页")&"</a>")
endif
%>
注:数据库为mydata.mdb表名:contact字段:id,name,tel