asp¶à·ç¸ñ·ÖÒ³Àà
<%
'asp¶à·ç¸ñ·ÖÒ³Àà
'ʹÓ÷¶Àý
'==========================================================================
'Set test = New Page '´´½¨À²
'test.CurrentPage=1 '×Ô¼ºÈ¥¶ÁÈ¡À,µ±Ç°µÄÒ³Êý
'test.temp="{N1}{N2}{N3} {N4}"'ÕâÀïÊÇÏÔʾµÄÄ£°æ,×Ô¼º¿ÉÒÔ¶¨Òå,ÖÁÓÚ±êÇ©,¿ÉÒÔ×Ô¼ºÈ¥ÄǸöÀàÀïÕÒ
'test.Exec "Select * from [movie]",conn 'ÕâÀïÖ´ÐÐsqlÓï¾ä,conn¾ÍÊÇÊý¾ÝÁ¬½Ó¶ÔÏóÁË
'test.Show 1 'ÏÔʾ·ÖÒ³Ñùʽ,¿ÉÒÔ¸ù¾ÝÓû§ÊäÈëµÄ²ÎÊý°ÑÕâÀïµÄ1»»³É±äÁ¿
'=====================================================================
Class Page
Private CurrPage
Private PageN
Private UrlStr
Private TempStr
Private ErrInfo
Private IsErr
Private TotalRecord
Private TotalPage
Public PageRs
Private TempA(11)
Private TempB(8)
'------------------------------------------------------------
Private Sub Class_Initialize()
CurrPage=1'//ĬÈÏÏÔʾµ±Ç°Ò³ÎªµÚÒ»Ò³
PageN=10'//ĬÈÏÿҳÏÔʾ10ÌõÊý¾Ý
UrlStr="#"
TempStr=""
ErrInfo="ErrInfo:"
IsErr=False
End Sub
Private Sub Class_Terminate()
If IsObject(PageRs) Then
PageRs.Close
Set PageRs=Nothing
End If
Erase TempA
Erase TempB
End Sub
'----------------------------------------------------------
'//»ñÈ¡µ±Ç°Ò³Âë
Public Property Let CurrentPage(Val)
CurrPage=Val
End Property
Public Property Get CurrentPage()
CurrentPage=CurrPage
End Property
'//»ñȡÿҳÏÔʾÌõÊý
Public Property Let PageNum(Val)
PageN=Val
End Property
Public Property Get PageNum()
PageNum=PageN
End Property
'//»ñÈ¡URL
Public Property Let Url(Val)
UrlStr=Val
End Property
Public Property Get Url()
Url=UrlStr
End Property
'//»ñÈ¡Ä£°å
Public Property Let Temp(Val)
TempStr=Val
End Property
Public Property Get Temp()
Temp=TempStr
End Property
'------------------------------------------------------------
Public Sub Exec(Sql,ConnObj)
On Error Resume Next
Set PageRs=Server.CreateObject("ADODB.RecordSet")
PageRs.CursorLocation = 3 'ʹÓÿͻ§¶ËÓα꣬¿ÉÒÔʹЧÂÊÌá¸ß
PageRs.PageSize = PageN '¶¨Òå·ÖÒ³¼Ç¼¼¯Ã¿Ò³ÏÔʾ¼Ç¼Êý
PageRs.Open Sql
Ïà¹ØÎĵµ£º
½ñÌìÔÚÐÞ¸ÄÒÔÇ°¿ª·¢µÄÒ»¸öÍøÕ¾µÄʱºòÓöµ½Ò»¸öÎÊÌ⣬ÒòΪ¹¦ÄܵÄÐèÒª£¬ÒÔÇ°µÄÒ»¸öÊý×ÖÀàÐÍ×ֶθıäΪÎı¾×ֶΣ¬ÒòΪÕâ¸ö×Ö¶ÎÐèÒª°üº¬¶à¸öÀà±ðµÄID£¬ÒÔÇ°Õâ¸ö×Ö¶ÎÖ»¶ÔÓ¦Ò»¸öIDµÄ¡£
ÍøÕ¾ÊÇASP VBÓïÑԵģ¬Êý¾Ý¿âʹÓõÄÊÇAccess
ÐÞ¸ÄÊý¾ÝÀàÐÍÖ®ºóǰ̨µÄ²éѯ´úÂë¾Í²»ÄÜʹÓÃÖîÈçxID=1ÕâÖÖÌõ¼þÁË¡£ÓÉÓÚÏÖÔÚ¸Ã×ֶαäΪÎı¾ÀàÐ ......
ASPͨ¹ýcookieʵÏÖ×Ô¶¯¼ÇסÃÜÂëµÄ¹¦ÄÜ
°ÑÒÔÏ´úÂë¼ÓÈëÑéÖ¤Ò³£º
<%if Trim(Cstr(request.QueryString("check")))="true" then ‘ÓÃÀ´ÅжÏÊÇ·ñÓÐÑ¡Ôñ¼ÇסÃÜÂë
Response.Cookies("UserCookie")("username") = Trim(Cstr(request.Form("username")))
Response.Cookies("UserCookie")("passwords") = trim ......
´æ´¢½ø³Ì¾ÍÊÇ×÷Ϊ¿ÉÖ´ÐжÔÏó´æ·ÅÔÚÊý¾Ý¿âÖеÄÒ»¸ö»ò¶à¸öSQLÃüÁî¡£
¶¨Òå×ÜÊǺܳéÏó¡£´æ´¢½ø³ÌÆäʵ¾ÍÊÇÄÜÍê³ÉÒ»¶¨²Ù×÷µÄÒ»×éSQLÓï¾ä£¬Ö»²»¹ýÕâ×éÓï¾äÊÇ·ÅÔÚÊý¾Ý¿âÖеÄ(ÕâÀïÎÒÃÇ̸ֻSQL SERVER)¡£Èç¹ûÎÒÃÇͨ¹ý´´½¨´æ´¢½ø³ÌÒÔ¼°ÔÚASPÖе÷Óô洢½ø³Ì£¬¾Í¿ÉÒÔ±ÜÃ⽫SQLÓï¾äͬASP´úÂë»ìÔÓÔÚÒ ......
Èç¹ûÄãÒѾÓн϶àµÄÃæÏò¶ÔÏ󿪷¢¾Ñ飬Ìø¹ýÒÔÏÂÕâÁ½²½£º
µÚÒ»²½¡¡ÕÆÎÕÒ»ÃÅ¡£NETÃæÏò¶ÔÏóÓïÑÔ£¬C#»òVB.NET ÎÒÇ¿ÁÒ·´¶ÔÔÚûϵͳѧ¹ýÒ»ÃÅÃæÏò¶ÔÏó£¨OO£©ÓïÑÔµÄÇ°ÌáÏÂȥѧASP.NET¡£ ASP.NETÊÇÒ»¸öÈ«ÃæÏò¶ÔÏóµÄ¼¼Êõ£¬²»¶®OO£¬ÄǾø¶Ôѧ²»ÏÂÈ¥£¡
µÚ¶þ²½¡¡¶Ô¡£NET FrameworkÀà¿âÓÐÒ»¶¨µÄÁ˽⠿ÉÒÔͨ¹ý¿ª·¢Windows FormÓ¦ÓóÌÐòÀ´Ñ ......