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）方式来编写的。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 那么，ASP.Net有哪些改进呢？ 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 那么，ASP.Net有哪些改进呢？
页:
[1]