¼±ÐèÇë½Ì¸÷λ´óÏÀASP·ÖÒ³ÏÔʾÎÊÌâ - Web ¿ª·¢ / ASP
СµÜ³õѧASP£¬×î½üÔÚ×öÒ»¸öÍøÕ¾Óöµ½·ÖÒ³ÏÔʾµÄÎÊÌ⣬¶Ô·ÖÒ³´úÂë²»´ó¶®¼±Ðè¸÷λ´óÏÀÖ¸½Ì¡£ÏÂÃæÊÇСµÜ×öµÄÍøÒ³´úÂ룬ÀïÃæµÄÊý¾Ý¼Ç¼·ÖÒ³ÏÔʾ´úÂë²»ÖªµÀÄijö´íÁË¡£
<%
' ×¢ÊÍ£º´´½¨²¢³õʼ»¯Recordset¶ÔÏó
Set rst = Server.CreateObject("ADODB.Recordset")
rst.ActiveConnection = Conn
rst.Source = "SELECT * from ¹ý³Ì¿¨1 where ljbh='"& ljbh &"'order by gxh asc"
rst.CursorType =1 ' Ö¸ÕëÀàÐÍΪ¾²Ì¬Ö¸Õë
rst.Open
rst.PageSize =5 ' Ò»Ò³ÏÔʾ20Ìõ¼Ç¼
' ×¢ÊÍ£º¸ù¾ÝÍøÒ³²ÎÊýDisplayPageÈ·¶¨µ±Ç°ÏÔʾҳ
If Request("DisplayPage") = "" then ' ûÓÐDisplayPage²ÎÊý
CurPage = 1 ' ¶¨ÒåÒªÏÔʾµÄÒ³Âë
Else
CurPage = CInt(Request("DisplayPage"))
End if
rst.AbsolutePage = CurPage ' Ö¸ÕëÖ¸Ïòµ±Ç°Ò³µÄµÚÒ»Ìõ¼Ç¼
' ×¢ÊÍ£º¸ù¾Ýµ±Ç°Ò³ÂëºÍÒ³Âë×ÜÊý£¬ÖÆ×÷·ÖÒ³µ¼º½Ìõ
ShowL1 = True : ShowL2 = True : ShowL3 = True : ShowL4 = True ' ¸³³õÖµ
If rst.PageCount < 2 Then ' ×ÜÒ³ÊýΪ1ʱ£¬²»ÏÔʾ·ÖÒ³µ¼º½Ìõ
ShowL1 = False : ShowL2 = False : ShowL3 = False : ShowL4 = False
ELse ' Èç¹ûÓжàÒ³
Select Case CurPage
Case 1 ' µ±Ç°Ò³ÂëΪ1£¬Ö»ÐèÏÔʾÏÂÒ»Ò³ºÍ×îºóÒ»Ò³
ShowL1 = False : ShowL2 = False
Case rst.PageCount ' Ò
Ïà¹ØÎÊ´ð£º
http://www.zgjhjy.com/Test/PrimaryTest/Index.aspx
¾ÍÊÇÀàËÆÒÔÉϵÄÔÚÏß²âÊÔϵͳ£¬ÐèÒªÓÐÒ»¸öºǫ́µÄ£¬ÓïÑÔÊÇaspµÄ£¬Êý¾Ý¿âÊÇaccessµÄ£¬»¹ÐèÒªÄÜÔÚºǫ́¶ÔÐÅÏ¢½øÐÐÌíɾ¸Ä²éµÄ¡£Ð»Ð»¸÷λÁË¡£¡£¡£
³ÌÐòÕæµÄºÜ¶à£¬²»Öª ......
ÎÒÒ»¸öÏîÄ¿£¬Óиö²åÈë²Ù×÷£¬¾ßÌåÊÇÕâÑùµÄ£º
ÎÒÓнø»õÐÅÏ¢±í¡£ÔÚ³ö»õʱѡÔñÏàÓ¦µÄ½ø»õÐÅÏ¢£¬ÊäÈëÊýÁ¿£¬Ñ¡Ôñ²¿Ãź󣬵㱣´æ°´Å¥£¬ÓÉÓÚÍøÂçÑÓʱ£¬µãÒ»ÏÂûÓз´Ó³£¬ÓÚÊÇÓû§¾ÍÓÖµãһϣ¬µ¼ÖÂÒ»´Î²åÈëÁËÁ½Ìõ¼Ç¼:
Àý£º
......
Microsoft JET Database Engine '80040e07'
±ê×¼±í´ïʽÖÐÊý¾ÝÀàÐͲ»Æ¥Åä¡£
\wwwroot\update.asp, line 20
--------------------------------------------------------------------------------
Ho ......
ÎÒÓÐÁ½¸ödropdownlist¶¼°óºÃÁËÖµ£¬ÏëÑ¡ÖÐÒ»¸ödropdownlistÖеÄÖµ£¬È»ºóÔÚÁíÒ»¸ödropdownlistÖÐÑ¡ÖÐÏàÓ¦µÄÒ»Ïî¡£
²»ÊÇ´Óа󶨵ڶþ¸ödropdownlist£¬ÊÇÔÚÒѾ°óºÃµÄÖµµ±ÖÐÑ¡ÖÐÒ»¸ö¡£
ÎÒÏëÓÃjsд
ÇóÖú
Äã¿ÉÒÔ°Ñdrop ......
C# code:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Runtime.InteropServices;
nam ......