ASP编程：asp模块化分页制造详解

使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。模块化分页
1.查询语句块
<%
获得以后文件名
temp=Split(request.ServerVariables("URL"),"/")
fy=temp(UBound(temp))
setrs=server.createobject("adodb.recordset")
ifnotisempty(request("page"))then
pagecount=cint(request("page"))
else
pagecount=1
endif
sql="select查询语句"
rs.opensql,conn,1,1
rs.pagesize=10分页纪录数
ifpagecount>rs.pagecountorpagecount<=0then
pagecount=1
endif
ifrs.eofandrs.bofthen%>
<divalign="center"class="001"><br>
对不起，没有切合搜刮前提的纪录！<br>
</div>
2.显现纪录块
<%
else
rs.AbsolutePage=pagecount
dowhilenotrs.eof%>
显现的纪录
<%i=i+2
rs.movenext
ifi>=rs.PageSizethenexitdo
loop
www.ckuyun.com
%>
3.
分页效果
<tablewidth="778"border="0"align="center"cellpadding="0"cellspacing="0">
<tralign="center">
<%ifrs.pagecount=1then%>
<tdheight="35"colspan="4"class=001><fontcolor="#000000">共有[<fontcolor="#ff0000"><%=rs.recordcount%></font>]条信息以后显现第<fontcolor="red">1～<%=rs.recordcount%></font>条</font></td>
</tr>
<tr>
<%else%>
<tdwidth="19%"height="35"align="center"valign="middle"class=001><fontcolor="#000000">
<%page_start=(pagecount-1)*rs.pagesize
ifpagecount=1thenpage_start=1
page_end=rs.pagesize*pagecount
ifpagecount*rs.pagesize=>rs.recordcountthenpage_end=rs.recordcountendif%>
共有[<fontcolor="#ff0000"><%=rs.recordcount%></font>]信息</font></td>
<tdwidth="58%"height="30"align="center"class="fy"><fontcolor="#000000">
<%
ifpagecount>5andpagecount<rs.PageCount-5andrs.pagecount>10then
qizu=pagecount-4
min=pagecount+5
response.write"<ahref="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<fontcolor=0000BE>首页</font></a>"
response.write"<ahref="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<fontcolor=0000BE>上一页</font></a>"
foripage=qizutomin
ifipagepagecountthen
response.write"<ahref="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><fontcolor=0000BE>"+cstr(ipage)+"</font></a>"
else
response.write"<fontcolor=#FF0000>"&ipage&"</font>"
endif
next
response.write"<ahref="&source&"?page="+cstr(pagecount+1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<fontcolor=0000BE>下一页</font></a>"
response.write"<ahref="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<fontcolor=0000BE>尾页</font></a>"
endif
ifrs.PageCount<11then
foripage=1tors.PageCount
ifipagepagecountthen
response.write"<ahref="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><fontcolor=0000BE>"+cstr(ipage)+"</font></a>"
else
response.write"<fontcolor=#FF0000>"&ipage&"</font>"
endif
next
endif
ifpagecount<6andrs.PageCount>10then
foripage=1to10
ifipagepagecountthen
response.write"<ahref="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><fontcolor=0000BE>"+cstr(ipage)+"</font></a>"
else
response.write"<fontcolor=#FF0000>"&ipage&"</font>"
endif
next
response.write"<ahref="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<fontcolor=0000BE>尾页</font></a>"
endif
ifpagecount>rs.PageCount-6andrs.PageCount>10then
response.write"<ahref="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<fontcolor=0000BE>首页</font></a>"
foripage=rs.PageCount-9tors.PageCount
ifipagepagecountthen
response.write"<ahref="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><fontcolor=0000BE>"+cstr(ipage)+"</font></a>"
else
response.write"<fontcolor=#FF0000>"&ipage&"</font>"
endif
next
endif
%>
</font></td><formname=go2toformmethod=Postaction=<%=fy%>>
<tdwidth="13%"align="center"valign="middle"class="fy">
<inputtype=hiddenname=sortidvalue="<%=sortid%>"><inputtype=hiddenname=typeidvalue="<%=typeid%>"><inputtype=hiddenname=qylbvalue="<%=qylb%>"><inputtype=hiddenname=titlevalue="<%title%>"><inputtype=hiddenname=cityidvalue="<%=cityid%>"><fontcolor=000064>转到第<inputtype=textname=pagesize=2maxLength=3>
页</font>
</td>
<tdwidth="10%"align="center"valign="middle"class="fy"><inputname="image"type=imageonClick=check()value=确定src=http://edu.cnzz.cn/images/button_h.jpg></td>
</form>
<tr>
<tdheight="20"colspan="6"valign="bottom"><fontcolor="#000000"></font></td>
</tr>
<%endif%>
<%endif%>
</table>

asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

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

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习