ASP教程之排序体例办理“高低主题”成绩（三）

asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般办理|排序|成绩显现：（排序)main.asp

--------部分，未经优化处置-------

<%
ConstadOpenStatic=3
ConstadLockPessimistic=2
Setconn=Server.CreateObject("ADODB.Connection")
SetRS=Server.CreateObject("ADODB.Recordset")
DBPath=Server.MapPath("../fpdb/massege.mdb")
conn.Open"DRIVER={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
SQLcmd="Select*FromMASSEGEOrderByA_OrderIDDesc"
RS.OpenSQLcmd,conn,adOpenStatic,adLockPessimistic
page=CLng(Request("txtpage"))
RS.PageSize=30
IfPage<1ThenPage=1
Ifpage>RS.PageCountThenpage=RS.PageCount
RS.AbsolutePage=page
%>
<formaction="main.asp"method="get">
<tablealign="center"border="0"cellspacing="0"cellpadding="0">
<tr>
<tdstyle="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><ahref="speak.asp"target="rbottom"><fontcolor="#0000FF">讲话</font></a></td>
<tdstyle="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><ahref="main.asp"><fontcolor="#0000FF">革新</font></a></td>
<tdheight="1"style="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><fontcolor="#0000FF">留言笔数:<%=RS.RecordCount%></font></td>
<tdheight="1"style="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><fontcolor="#0000FF">总页数:<%=RS.PageCount%></font></td>
<tdheight="1"style="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><fontcolor="#0000FF">今朝页次:<%=page%></font></td>
<tdvalign="top"align="left"height="1"style="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><fontcolor="#0000FF">转到<inputtype="text"name="txtpage"size="2"style="font-size:8pt;border-style:dotted;border-width:1">页</font></td>
<tdstyle="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00">
<fontcolor="#0000FF">
<%
Ifpage1Then
Response.Write"<ahref=main.asp?txtpage=1>第一页</a>"%></font></td>
<tdstyle="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00">
<fontcolor="#0000FF">
<%Response.Write"<ahref=main.asp?txtpage="&(page-1)&">上一页</a>"%></font></td>
<%
EndIf
IfpageRS.PageCountThen%><tdstyle="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00">
<fontcolor="#0000FF">
<%Response.Write"<ahref=main.asp?txtpage="&(page+1)&">下一页</a>"%></font></td>
<tdstyle="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><fontcolor="#0000FF"><%Response.Write"<ahref=main.asp?txtpage="&RS.PageCount&">最初一页</a>"
EndIf
%></font></td>
<tdstyle="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><ahref="pob_massege.asp"><fontcolor="#0000FF">精髓</font></a></td>
<tdstyle="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><ahref="baoqian.htm"><fontcolor="#0000FF">检索</font></a></td>
<%
IfApplication("Ukingliu")="kingliu"Then
aaa="on"
Else
aaa="off"
EndIf
%>
<tdstyle="border-left:1solid#FFFF00;border-right:1solid#FFFF00;border-bottom:2solid#FFFF00"><fontcolor="#0000FF">本版斑竹：<ahref="mailto:kingliuzk@chinaren.com">沧海为水</a><imgsrc=http://www.163design.net/a/q/".images/<%=aaa%>.gif"width="15"height="15"></font></td></p>ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。

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

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

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。