仓酷云

标题: ASP网页编程之一个有用的ASP分页函数，办理你反复写分... [打印本页]

作者: 透明 时间: 2015-1-16 22:26
标题: ASP网页编程之一个有用的ASP分页函数，办理你反复写分...
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码偶然候，人人是否是由于写一些反复的代码而感应懊恼呢？因为在做ASP程序时，良多时分都要用到分页，反复作分页程序毛病多不说了，并且影响到作程序的主动性，故写一分页函数，便利人人挪用。以下：<%
=================ProgrammName:分页函数=======================
================ProgrammedbyBubuy=====================
====================2003.10.16========================
FunctioncutPage(sqlStr,Conn,dateNums,pageNums,URLs)使用ADO分页的函数
Dimsql,Cn,dateNum,pageNum,URL,rsDate
Sql=Trim(sqlStr)取得sql语句。
SetCn=Conn取得数据工具
dateNum=Cint(dateNums)取得每页得纪录数
pageNum=Cint(pageNums)取得以后页码
URL=Trim(URLs)取得路径
SetrsDate=Server.CreateObject("ADODB.Recordset")
rsDate.PageSize=dateNum
rsDate.OpenSql,cn,1,1
IFrsDate.EofThen
Response.Write("<center><fontstlye=font-size:14px;color=#ff0000>对不起，没有纪录！</font></center>")
Else
IFpageNum=""orpageNum<1Then
pageNum=1
ElseIfpageNum>rsDate.PageCountThen
pageNum=rsDate.PageCount
EndIF
rsDate.absolutepage=pageNum
DimrecordHead,recordLast界说以后页开首纪录和停止纪录
recordHead=1
IfpageNum>1ThenrecordHead=dateNum*(pageNum-1)
IfpageNum>=rsDate.PageCountThen
recordLast=rsDate.RecordCount
Else
recordLast=dateNum*pageNum
EndIf
Response.Write("<tablewidth=100%border=0cellpadding=0cellspacing=0style=font-size:12px;>")
Response.Write("<tr><tdheight=38align=left><fontstly=font-size:12px;>（第"&recordHead&"-"&recordLast&"条，共"&rsDate.Recordcount&"条，每页显现"&dateNum&"条）</font></td></tr>")
DimURLa界说判别输出得URL包括?没有的变量
DimupPage,downPage,allPage界说向上和向下翻的变量
DimallWrite界说输入
upPage=pageNum-1
downPage=pageNum+1
URLa=Split(URL,"?",-1,1)
IfURLa(0)=URLThen
upPage="<ahref="&URL&"?page="&upPage&"stlye=font-size:12px;>上一页</a>"
IfpageNum=1ThenupPage=""
downPage="<ahref="&URL&"?page="&downPage&"stlye=font-size:12px;>下一页</a>"
IfpageNum=rsDate.PageCountThendownPage=""
Else
upPage="<ahref="&URL&"&page="&upPage&"stlye=font-size:12px;>上一页</a>"
IfpageNum=1ThenupPage=""
downPage="<ahref="&URL&"&page="&downPage&"stlye=font-size:12px;>下一页</a>"
IfpageNum=rsDate.PageCountThendownPage=""
EndIf
allWrite=upPage&downPage&"共"&rsDate.PageCount&"页"&"今朝第"&pageNum&"页"
allwrite="<fontstyle=font-size:12px;>"&allWrite&"到第<inputtype=textstyle=width:30px;>页<inputtype=submitvalue=GO></font>"
Response.Write("<tr><formname=formPagemethod=postaction="&URL&"><tdheight=30align=rightstyle=font-szie=12px;>"&allWrite&"</td></form></tr>")
Response.Write("<tr><tdalign=center>")
Response.Write("<tablewidth=100%border=0cellpadding=0cellspacing=0style=font-size:12px;>")
Response.Write("<tr>")
Response.Write("<trbgcolor=#efffceheight=25>")
Dimid,i
Fori=0torsDate.Fields.Count-1设置表头
Response.Write("<tdalign=center><fontstyle=font-size:14px;><b>"&rsDate.Fields(i).Name&"</b></font></td>")
Next
Response.Write("</tr>")
id=0
WhilenotrsDate.EOFandid<dateNum
id=id+1
IfidMod2=0then
Response.Write("<trbgcolor=#f7f6e7>")
Else
Response.Write("<trbgcolor=#ffffff>")
EndIf
ForEachfilsinrsDate.Fields
Response.Write("<tdalign=centerheight=20>"&fils&"</td>")
Next
Response.Write("</tr>")
rsDate.MoveNext
Wend
Response.Write("<trheight=25bgcolor=#efffce>")
Fori=0torsDate.Fields.Count-1设置表尾
Response.Write("<tdalign=center><fontstyle=font-size:14px;><b>"&rsDate.Fields(i).Name&"</b></font></td>")
Next
Response.Write("</tr>")
Response.Write("</table></td></tr>")
Response.Write("<tr><formname=formPage1method=postaction="&URL&"><tdheight=30align=right>"&allWrite&"</td></form></tr>")
EndIF
rsDate.close
SetrsDate=nothing
EndFunction
%>
如许利用
page=request("page")
sql="select*from[table]"写sql语句
url="xx.asp"固然也能够是"xx.asp?bubuy=1"
conn人人都晓得是界说的甚么吧
挪用就如许
CallcutPage(sql,conn,"3",page,url)3代表每页显现3笔记录

缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。

作者: 灵魂腐蚀 时间: 2015-1-19 11:56
弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

作者: 活着的死人 时间: 2015-1-25 22:12
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

作者: 因胸联盟 时间: 2015-2-4 08:43
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 蒙在股里 时间: 2015-2-9 20:22
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 分手快乐 时间: 2015-2-27 20:59
ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

作者: 若天明 时间: 2015-3-9 14:07
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

作者: 飘飘悠悠 时间: 2015-3-16 23:23
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

作者: 海妖 时间: 2015-3-23 06:46
不能只是将它停留在纸上谈兵的程度上。

欢迎光临仓酷云 (http://ckuyun.com/)