仓酷云

标题: ASP编程：asp通用分页函数,主动输入数据库列名、... [打印本页]

作者: 爱飞 时间: 2015-1-16 22:48
标题: ASP编程：asp通用分页函数,主动输入数据库列名、...
ASP脚本是采用明文（plaintext）方式来编写的。分页|函数|数据|数据库主动输入数据库列名、内容并分页通用函数[十分精典]
只必要变动数据库毗连代码，便可输出完全的表格内容信息，挪用代码以下：
<%
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笔记录
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.

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

作者: 精灵巫婆 时间: 2015-1-22 13:43
那么，ASP.Net有哪些改进呢？

作者: 不帅 时间: 2015-1-31 07:09
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

作者: 谁可相欹 时间: 2015-2-6 18:14
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

作者: 简单生活 时间: 2015-2-18 00:05
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 小女巫 时间: 2015-3-5 23:49
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

作者: 分手快乐 时间: 2015-3-12 16:37
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 山那边是海 时间: 2015-3-20 00:24
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

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