asp分页代码是什么.docx

asp分页代码是什么ASP即ActiveServerPages，是MicroSOft公司开发的服务器端脚本环境，可用来创建动态交互式网页并建立强大的web应用程序。下面就由yjbys小编给大家介绍ASP分页代码。用这一句调用:callPageControl(iCount,maxpage,page,"border=0align=right","",per_page)%>SubPageControl(iCount,pagecount,page,table_style,font_style,per_page)'生成上一页下一页链接Dimquery,a,x,tempaction="http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")temp=""Response.Write(""&vbCrLf)Response.Write(""&vbCrLf)Response.Write(""&vbCrLf)Response.Write(font_style&vbCrLf)ifpageResponse.Write("首页"&vbCrLf)Response.Write("上页"&vbCrLf)elseResponse.Write("首页"&vbCrLf)Response.Write("上页"&vbCrLf)endififpage>=pagecountthenResponse.Write("下页"&vbCrLf)Response.Write("尾页"&vbCrLf)elseResponse.Write("下页"&vbCrLf)Response.Write("尾页"&vbCrLf)endifResponse.Write("页次："&page&"/"&pageCount&"页"&vbCrLf)Response.Write("共有"&iCount&"条/每页"&per_page&"条"&vbCrLf)Response.Write("转到"&""&"页"&vbCrLf&"Response.Write(""&vbCrLf)Response.Write(""&vbCrLf)Response.Write(""&vbCrLf)EndSub%>读取数据库代码：iftab_recall_tga="1"theno_zid=zidzid=tab_recall_cd(0)subt_where="wherenewtype='"&tab_recall_cd(1)&"'"endifi=0exec="selectnewsname,adddate,newsid,imgurl,summaryfromMlist_"&zid&subt_where&"orderbyadddatedesc"setrs=server.CreateObject("adodb.recordset")rs.openexec,conn,1,1ifrs.eofandrs.bofthenresponse.write"目前还没有任何数据"elsers.PageSize=5'每页记录条数iCount=rs.RecordCount'记录总数iPageSize=rs.PageSizemaxpage=rs.PageCountpage=request("page")per_page=rs.PageSizeifNotIsNumeric(page)orpage=""thenpage=1elsepage=cint(page)endififpagepage=1elseifpage>maxpagethenpage=maxpageendifrs.AbsolutePage=Pageifpage=maxpagethenx=iCount-(maxpage-1)*iPageSizeelsex=iPageSizeendifFori=1Toxifrs("newtype")=0thenshow_type=""elseshow_type=""endifuimg="0"imgurl=trim(rs("imgurl"))iflen(imgurl)>0thenuimg="1"ifuimg"1"thenimgurl="img/no.jpg"%>"alt=""width="174"height="91"border="0">  发布时间: &id=">详细>>nextendifrs.closesetrs=nothingiftab_recall_tga="1"thenzid=o_zid'重新恢复虚拟定向表%>插入代码：exec="insertintoAdmin(user_id,user_pwd,lev)values('"&o