ASP教程之一种对照便利的ASP分页程序
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.<spanclass="style45"><%
setconn=server.createobject("adodb.connection")
DBPath=Server.MapPath("sap_mis.mdb")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
setrs=server.createobject("adodb.recordset")
sql="selectsap_adon_record.*fromsap_adon_recordorderbys_iddesc"
rs.opensql,conn,1,1
%>
</span>
<tablewidth="98%"height="10"border="1"align="center"cellpadding="0"cellspacing="0"bordercolor="#336699"bordercolordark="#FFFFFF"class="style45">
<%ifrs.EOFthen%>
<tr>
<tdalign="center"><spanstyle="color:#339933"><ahref="add.asp">体系中临时没有纪录，请点击此处增加！</a></span>
</td>
</tr>
<%else%>
<tr>
<tdalign="center"bgcolor="#f000ff"class="style45">111</td>
<tdalign="center"bgcolor="#f000ff"class="style45">222</td>
<tdalign="center"bgcolor="#f000ff"class="style45">333</td>
<tdalign="center"bgcolor="#f000ff"class="style45">444</td>
<tdalign="center"bgcolor="#f000ff"class="style45">555</td>
<tdalign="center"bgcolor="#f000ff"class="style45">666</td>
<tdalign="center"bgcolor="#f000ff"class="style45">777</td>
</tr>
<%
shownum=20
totalrecord=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount
requestpage=clng(request.querystring("page"))
ifrequestpage=""orrequestpage=0then
requestpage=1
endif
ifresquestpage>maxpagethen
resquestpage=maxpage
endif
ifnotrequestpage=1then
rs.move(requestpage-1)*rs.pagesize
endif
fori=1tors.pagesizeandnotrs.bof%>
<tr>
<tdalign="center"class="style45"><ahref=show.asp?s_id=<%=rs("s_id")%>target="_blank"><%=rs("prname")%></a></td>
<tdalign="center"class="style45"><%=rs("trscod")%></td>
<tdalign="center"class="style45"><%=rs("crname")%></td>
<tdalign="center"class="style45"><%=rs("crdate")%></td>
<tdalign="center"class="style45"><%=rs("prtype")%></td>
<tdalign="center"class="style45"><%=rs("fction")%></td>
<tdalign="center"class="style45"><ahref=edit.asp?s_id=<%=rs("s_id")%>>编纂</a></td>
</tr>
<%
rs.movenext
ifrs.eofthenexitfor
next
%>
</table>
<tablewidth="98%"height="10"align="center"border="1"bordercolor="#336699"bordercolordark="#FFFFFF"cellpadding="0"cellspacing="0">
<tr>
<tdalign="center"class="style45"><ahref=add.asp>增加纪录</a>|<ahref=readExcel.asptarget="_self">EXCEL文件批量导进</a>|<ahref=srch.asp>初级查询</a>
</td>
</tr>
<tr>
<tdalign=center>
<spanclass="style45">
<%
ifrequestpage-1mod10=0then
p=(requestpage-1)10
else
p=(requestpage-1)10
endif
ifrequestpage=1then
response.write"<fontface=webdingscolor=""#FF0000"">9</font>"
else
response.write"<ahref=index.asp?page=1title=首页><fontface=webdings>9</font></a>"
endif
ifp*10>0thenresponse.write"<ahref=index.asp?page="&p*10&"title=上十页><fontface=webdings>7</font></a>"
response.write"<b>"
forii=p*10+1toP*10+10
ifii=requestpagethen
response.write"<fontcolor=""#FF0000"">"&ii&"</font>"
else
response.write"<ahref=index.asp?page="&ii&">"&ii&"</a>"
endif
ifii=maxpagethenexitfor
next
response.write"</b>"
ifii<maxpagethenresponse.write"<ahref=index.asp?page="&ii&"title=下十页><fontface=webdings>8</font></a>"
ifrequestpage=maxpagethen
response.write"<fontface=webdingscolor=""#FF0000"">:</font>"
else
response.write"<ahref=index.asp?page="&maxpage&"title=尾页><fontface=webdings>:</font></a>"
endif
response.write"统共有"&maxpage&"页共"&totalrecord&"个纪录每页"&shownum&"个"
endif
%>
</span></td>
</tr>
</TABLE>
<spanclass="style45">
<%
rs.close
setrs=nothing
conn.close
setconn=nothing
%>
asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。
页:
[1]