仓酷云

标题: ASP网站制作之分页显现的例子(显现纪录背景致交换变... [打印本页]

作者: 愤怒的大鸟    时间: 2015-1-16 23:22
标题: ASP网站制作之分页显现的例子(显现纪录背景致交换变...
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码分页|显现CodeTitle:Paging(modifiable)
Description:Addpagingtoyourrecordretrieval.But,doitwiththegoodolformfieldthatallowsyou
tojusttypeindirectlywhatpageyawannagoto.Thisoneisourfave!Itevenalternatesthebackground
color(bgcolor)ofeachrow,tomakeviewingtherecordseteveneasier..Weusedifferenttweakedversions
ofthisonealloveroursite!SeeanexampleofthiscodesnippetonourInternationalpage.

Wehavemadeitsothatitwilldisplayahyperlinkedfirstiteminonecolumn,thenatruncated
descriptionusingtheLeft()functioninthenextcolumn.Thehyperlinkwilltakeyoutothespecific
articleorrecord,(whateveryoureusingitfor).

Weuseajavascriptvalidnumbercheckeronthisone,justtomakesurethepersondoesntenteranyweird
charactersintothepagenumberfieldoftheform.Wedontnormallydothis,butifyawantthe
javascriptfornumberchecking,checkoutourjsNumberValidator.
Copyandpastethissnippetas-isintoyoureditor:


<%
ConstadUseClient=3
ConstadOpenStatic=3
specific=Request.QueryString("specific")
Ifspecific=""Then
Setrs=Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation=adUseClient
rs.CacheSize=5
mypage=Request.Form("pgNum")
Ifmypage=""Thenmypage=1
rs.Open"SELECT*FROMTABLEORDERBYFIELDASC",cnDZ,adOpenStatic
IfNotrs.EOFThen
rs.MoveFirst
rs.PageSize=20changethisnumbertoexactlyhowmanyrecordsperpageyawannashow
maxcount=cint(rs.PageCount)
rs.AbsolutePage=mypage
howmanyrecs=0
Response.Write"<tableborder=0>"
LinkCount=0
WhileNotrs.EOFAndhowmanyrecs<rs.pagesize
IfLinkCountMod2=0ThenbgColor="bgcolor=#F0F0F0"ElsebgColor=""
Response.Write"<tr"&bgColor&"><tdnowrap>"&_
"<ahref=""myPage.asp?specific="&rs("ID")&""">"&rs("FIELD")&"</a></td>"&_
"<tdwidth=""100%""nowrap>"&Left(rs("FIELD2"),40)&"</td></tr>"
LinkCount=LinkCount+1
rs.MoveNext
howmanyrecs=howmanyrecs+1
Wend
Response.Write"</table>"
Ifmaxcount>1Then
Ifmypage+1>maxcountThennextPg=1ElsenextPg=mypage+1
Response.Write"<formmethod=postaction=""myPage.asp"">"&_
"<nobr>Page"&mypage&"of"&maxcount&"NavigatetoPage:<input
type=textname=pgNumsize=3maxlength=3value="""&nextPg&"""><inputtype=submitname=gopgNum
value=GO></nobr></form>"
EndIf
ElseResponse.Write"Sorry,nothingisavailableatthemoment."
EndIf
rs.Close
Setrs=Nothing
Else
Setrs=cnDZ.Execute("SELECT*FROMTABLEWHEREID="&specific&"")
DoUntilrs.EOF
Response.Write""&rs("FIELD")&"<br>"&_
""&rs("FIELD2")&"<br>"
rs.MoveNext
Loop
rs.Close
Setrs=Nothing
EndIf
%>

</p>ASP脚本是采用明文(plaintext)方式来编写的。
作者: 莫相离    时间: 2015-1-19 16:11
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
作者: 小魔女    时间: 2015-1-22 19:52
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
作者: 飘飘悠悠    时间: 2015-1-31 09:32
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
作者: 活着的死人    时间: 2015-2-1 21:40
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
作者: 仓酷云    时间: 2015-2-7 15:13
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
作者: 透明    时间: 2015-2-22 09:21
那么,ASP.Net有哪些改进呢?
作者: 第二个灵魂    时间: 2015-3-6 23:49
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
作者: 飘灵儿    时间: 2015-3-13 22:54
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
作者: 金色的骷髅    时间: 2015-3-20 20:56
那么,ASP.Net有哪些改进呢?




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2