仓酷云

标题: ASP网站制作之一个分页的例子 [打印本页]

作者: 乐观 时间: 2015-1-16 23:42
标题: ASP网站制作之一个分页的例子
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。分页|分页完成对旧事的分页例子，源代码以下：
<table>
<%
strCode=Request.QueryString("itemcode")
SetConn=Server.CreateObject("Adodb.Connection")
Conn.OpenApplication("tt18_ConnectionString")
SetRs=Server.CreateObject("Adodb.Recordset")
Sql="select*fromNewsHeadCwhereitemcode=""&strCode&""orderbyTrDateDESC,a.NewsTimeDESC"
Rs.OpenSql,Conn,1,3
Rs.PageSize=15
Count=Rs.PageCount
ifRs.BOForRs.EOFthen
Response.Write"<tr>"&vbCrlf
Response.Write"<tdwidth=120align=leftbgcolor=#538E7B></td>"&vbCrlf
Response.Write"<tdwidth=80%bgcolor=#95D2FF>Σ黄穑]有----相</span>"&vbCrlf
Response.Write"</td></tr>"&vbCrlf
else
Rs.AbsolutePage=page
fori=1toRs.PageSize
Trdate=left(RS("trdate"),4)&"-"&mid(RS("trdate"),5,2)&"-"&right(RS("trdate"),2)
Response.Write"<tr>"&vbCrlf
Response.Write"<tdwidth=120align=leftbgcolor=#C0DAD1>"&Trdate&"</td>"&vbCrlf
Response.Write"<tdwidth=80%bgcolor=#e4e4e4height=20>"&vbCrlf
Response.Write"<ahref=""javascript:goto_jump("&Rs("id")&","&Rs("trdate")&",""&
Rs("Newscode")&"","&Rs("Identity")&")"">"&vbCrlf
Response.WriteRs("HeadLine")&"</a></td>"&vbCrlf
Response.Write"</tr>"&vbCrlf
Rs.MoveNext
IfRs.EOFThenExitFor
next
Response.Write"<tr>"&vbCrlf
Response.Write"<tdalign=rightcolspan=3bgcolor=#99cccc>"&vbCrlf
ifpage1then
Response.Write"<ahref=relnews.asp?page=1&itemcode="&strCode&">首</a>"&vbCrlf
endif
tmppage=page-1
iftmppage<=0then
tmppage=1
else
Response.Write"<ahref=relnews.asp?page="&tmppage&"&itemcode="&strCode&">上一</a>"&vbCrlf
endif
tmppage=page+1
iftmppage>Rs.PageCountthen
tmppage=page
else
Response.Write"<ahref=relnews.asp?page="&tmppage&"&itemcode="&strCode&">下一</a>"&vbCrlf
endif
ifCstr(page)Cstr(Rs.PageCount)then
Response.Write"<ahref=relnews.asp?page="&Rs.PageCount&"&itemcode="&strCode&">尾</a>&vbCrlf
endif
Response.Write"<fontcolor:#ccffcc">第"&page&"</font>"
Response.Write"<fontcolor:#ccffcc">共有："&Rs.PageCount&"</font>"&vbCrlf
Response.Write"<INPUTtype=buttonvalue=P]窗口name=button1height=12size=18
style="BACKGROUND-COLOR:beige;FONT-SIZE:smaller;
HEIGHT:22px;WIDTH:66px"></td>"&vbCrlf
Response.Write"</tr>"&vbCrlf
endif
%>
</table></p>ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。

作者: 飘飘悠悠 时间: 2015-1-19 17:50
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 再现理想 时间: 2015-1-24 15:11
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 精灵巫婆 时间: 2015-1-25 21:57
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

作者: 小女巫 时间: 2015-1-27 07:10
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 不帅 时间: 2015-1-31 20:05
那么，ASP.Net有哪些改进呢？

作者: 深爱那片海 时间: 2015-2-2 21:44
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 变相怪杰 时间: 2015-2-8 07:29
不能只是将它停留在纸上谈兵的程度上。

作者: 乐观 时间: 2015-2-24 23:27
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

作者: 第二个灵魂 时间: 2015-3-7 14:02
他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

作者: 莫相离 时间: 2015-3-15 07:29
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

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