仓酷云

标题: ASP网页设计项目中的模块 [打印本页]

作者: 飘灵儿 时间: 2015-2-3 23:34
标题: ASP网页设计项目中的模块
我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。项目在大型的ASP项目中，良多的页面都触及到翻页功效。假如每一个页面都写一个翻页的法式的话，如许的任务即下降了任务效力，也晦气于工程的模块化，不克不及使代码重用。因而，把翻页如许的功效模块化是很有需要的。

设计办法：
1、挪用该模块时，只需求传递纪录集和每页显示的纪录的条数；
2、可以点击链接停止翻页，也能够直接输出页码，回车后翻页；
3、不要思索文件名，法式的每次翻页都能在以后页面。

想清晰了下面3个成绩，咱们的公共翻页模块就能够下手了。

<%
'+++++++++++++++++++++++++++++++++++++
'◆模块称号：公共翻页模块
'◆文件名： TurnPage.asp
'◆传入参数： Rs_tmp (纪录集), PageSize (每页显示的纪录条数)
'◆输出：纪录集翻页显示功效
'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(ByRef Rs_tmp,PageSize) 'Rs_tmp 纪录集 PageSize 每页显示的纪录条数;
Dim TotalPage '总页数
Dim PageNo '以后显示的是第几页
Dim RecordCount '总纪录条数
Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输出页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'假如没有选择第几页，则默许显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If

'获得以后文件名，使得每次翻页都在以后页面停止；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
'获得以后的文件称号，使翻页的链接指向以后文件；
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
以后第<font color=#ff3333><%=PageNo%></font>页</td>
<td align="right">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
Else%>
<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%End If

If PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>

<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
<td width=95>转到第
<%If TotalPage = 1 Then%>
<input type=text name=PageNo size=3 readonly disabled style="background:#d3d3d3">
<%Else%>
<input type=text name=PageNo size=3 value="" title=请输出页号,然后回车>
<%End If%>页
</td>
</tr>
</table>
<%End Sub%>

固然，人人可以把翻页的链接做成图片按钮，如许的话也面就加倍雅观了。

挪用办法:
1、在法式入手下手或要利用翻页的中央包括翻页模块文件；
2、界说变量：RowCount，每页显示的纪录条数
3、挪用翻页进程：Call TurnPage(纪录集,RowCount)
4、在Do While 轮回输入纪录集的前提中加上" RowCount > 0 " 前提
5、在轮回停止 "Loop前" 加上： RowCount = RowCount - 1

'-----------------------------------------------------
挪用典范：
文件名：News.asp

<%
Dim Conn，Rs_News
Set Conn = server.CreateObject("ADODB.CONNECTION")
Conn.Open "cpm","cpm","cpm"

Dim Sql
Sql = "Select * from News"
Set Rs_News = Server.CreateObject("ADODB.RECORDSET")
Rs_News.Open Sql,Conn,1,3 '获得的纪录集

'公共翻页模块入手下手%>

<%
Dim RowCount
RowCount = 10 '每页显示的纪录条数
Call TurnPage(Rs_News,RowCount)
'公共翻页模块停止%>

<table width=100%>
<tr>
<td>旧事编号</td>
<td>旧事题目</td>
<td>宣布日期</td>
<tr>
<%
If Not Rs_News.eof
Do while Not Rs_News.eof and RowCount>0
%>
<tr>
<td><%=Rs_News("ID")%></td>
<td><%=Rs_News("Name")%></td>
<td><%=Rs_News("Date")%></td>
<tr>
<%
RowCount = RowCount - 1
Rs_News.MoveNext
Loop
End If
%>

</p> 对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。

作者: 飘灵儿 时间: 2015-2-4 02:43
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

作者: 冷月葬花魂 时间: 2015-2-4 22:18
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 谁可相欹 时间: 2015-2-10 20:54
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

作者: 灵魂腐蚀 时间: 2015-2-21 20:16
封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

作者: 小女巫 时间: 2015-2-23 20:07
掌握asp的特性而且一定要知道为什么。

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

作者: 活着的死人 时间: 2015-3-8 18:17
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

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

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

作者: 飘飘悠悠 时间: 2015-3-10 13:26
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 山那边是海 时间: 2015-3-11 22:58
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

作者: 愤怒的大鸟 时间: 2015-3-14 00:23
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 海妖 时间: 2015-3-17 11:08
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 莫相离 时间: 2015-3-22 05:54
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 乐观 时间: 2015-3-25 11:42
Session:这个存储跟客户端会话过程的数据，默认20分钟失效

作者: 再现理想 时间: 2015-4-1 01:09
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

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

作者: 柔情似水 时间: 2015-4-4 17:42
Session:这个存储跟客户端会话过程的数据，默认20分钟失效

作者: 小魔女 时间: 2015-4-4 21:00
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 精灵巫婆 时间: 2015-4-16 14:49
另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

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