|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般程序|分页|分页这只是个asp小技能类的器材,它固然合适在每一个分歧文件名里挪用这个函数,可是也是有条件的,上面让我们来细心看看个中的原委。
上面这段是基础的分页代码:
<%sql="select……………………省略了sql语句
Setrs=Server.Createobject("ADODB.RECORDSET")
rs.Opensql,conn,1,1
ifnotrs.eofthen
pages=30’界说每页显现的纪录数
rs.pageSize=pages’界说每页显现的纪录数
allPages=rs.pageCount’盘算一共能分几页
page=Request.QueryString("page")’经由过程扫瞄器传送的页数
’if语句属于基础的排错处置
ifisEmpty(page)orCint(page)<1then
page=1
elseifCint(page)>allPagesthen
page=allPages
endif
rs.AbsolutePage=page
Dowhilenotrs.eofandpages>0%>
这里输入你要的内容………………
<%pages=pages-1
rs.MoveNext
Loop
else
Response.Write("数据库暂无内容!")
Endif
rs.Close
Setrs=Nothing%>
体系已为数据分页了,上面就看看此次切磋的关头成绩分页函数的界说
<%SUBpageUrl(pUrl)
DimeUrl
txts=Request.ServerVariables("URL")
txts=left(txts,instrrev(txts,"/",len(txts))-1)
eUrl="http://";&Request.ServerVariables("server_name")&txts
Fori=1toallpages
txt=""
txt="<strong>"
txt=txt&"<ahref="&eUrl&pUrl&"page="&i&">"
ifi=Cint(Page)thentxt=txt&"<fontcolor=’bb0000’>"
txt=txt&(i)
ifi=Cint(Page)thentxt=txt&"</font>"
txt=txt&"</a>∥</strong>"
Response.Write(txt)
Next
ENDsub%>
把下面这个分页函数代码COPY存成一个ASP文件,在必要利用的页面里用include来引进他挪用的时分只需Call("/你挪用的文件名?")就ok了,好比我的news页面里要挪用那末就是<%Call("/news.asp?")%>
方才我们所到这是无限制的意义就是说第一段代码里除sql查询内容和输入内容能够变动,其他的声明纪录集的工具,page,pages,allpages这些变量都不克不及变动,不然将没法运转~实在这个程序是可有可无的,最次要的就是,这个分页函数能够在任何一个asp叶面里挪用。分页做的还不大度,妙手们能够修正修正,能发给我的话我会卖力给您宣布出来!
</p>强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|